Разбор строки

← →
DeMoN-777 © (2003-12-14 19:06) [0]

Бр...голова уже вообще не работает. Помогите плиз как из строки, например "Содержать (12) зоопаку не выгодно" выдрать всё что идёт в скобках, а сами скобки и то что в них удалить. Т.е. чтоб только осталось "Содержать не выгодно", а то что в скобках было запомнить ?

Я понимаю что надо оперировать ф-иями Pos, Delete, Length и Copy, но что-то никак не сообразить...

← →
TUser © (2003-12-14 19:48) [1]

i:=pos("(",s);
j:=pos(")",s);
res:=inttostr(copy(s,i+1,j-i-1));
delete(s,i,i-j+1)

← →
Anatoly Podgoretsky © (2003-12-14 19:50) [2]

Вместо delete должно быть s := "Содержать не выгодно"; иначе заявленный результат не получится. Если неверишь, то можешь програнать в отладчике.

← →
TUser © (2003-12-14 20:34) [3]

2 Anatoly Podgoretsky
Чего-то delete действитедьбно не работает, когда парамертры ему передаются в виде переменных. А почему?

2 DeMoN-777
Тогда так
procedure TForm1.FormCreate(Sender: TObject); var s:string; i,j:integer; k:integer; res:string; begin s:="Содержать (12) зоопаку не выгодно"; i:=pos("(",s); j:=pos(")",s); res:=copy(s,i+1,j-i-1); label2.Caption:=res; res:=""; for k:=1 to i-1 do res:=res+s[k]; for k:=j+1 to length(s) do res:=res+s[k]; label1.Caption:=res; end;

← →
wnew © (2003-12-14 21:33) [4]

Странно. Проверил - "delete" вполне нормально работает.

procedure TForm1.FormCreate(Sender: TObject); var s,res: string; i,j: integer; begin s := ""behalten (12) dem Zoo unvorteilhaft""; i:=pos("(",s); j:=pos(")",s); res:=copy(s,i,j-i+1); delete(s,i,j-i+2); Label1.Caption := s; Label2.Caption := res; end;

← →
MBo © (2003-12-15 07:12) [5]

Дежавю?

http://www.delphimaster.ru/nuts/nuts.html внизу страницы

← →
Anatoly Podgoretsky © (2003-12-15 07:45) [6]

wnew © (14.12.03 21:33) [4]
Естественно, ты же не делаешь так delete(s,i,i-j+1)

← →
Gero © (2003-12-15 08:14) [7]

> MBo © (15.12.03 07:12) [5]

:)

← →
TUser © (2003-12-15 10:19) [8]

Ну, во всем виновата арифметика. as usual :)

Удалено модератором

← →
Проходил мимо (2003-12-15 11:29) [10]

Удалено модератором

Разбор строки Найти похожие ветки