[tesla]

Доброго времени суток!
Есть текст подгружаемый в Memo1 из файла, пример:

:test;1111@4444%8u#
:red;regr@5555%5r#
:edfrtg;rgwrf@6666%6t#
:erwgr;erger@7777%8u#

В Memo2 нужно скопирвоать и вывести текст, который находится ":" и ";"
Пример:

test
red
edfrtg
erwgr

Код:

1 2 3 4 5 6 7 8 9 10 11

procedure TForm1.Button1Click(Sender: TObject); var   f: string;   k: Integer; begin   for k:=0 to Memo1.Lines.Count-1 do   begin    f:=Copy(Memo1.Lines.Text, Pos(':',Memo1.Lines.Text)+1, Pos(';',Memo1.Lines.Text)-2);    Memo2.Lines.Add(f);   end; end;

но в memo2 получаю:
test
test
test
test

Пожалуста, помогите!

[poli-smen]

А так?:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

procedure TForm1.Button1Click(Sender: TObject); var   f: string;   k, p1, p2: Integer; begin   for k := 0 to Memo1.Lines.Count - 1 do   begin     f := Memo1.Lines[k];     p1 := Pos(':', f);     if p1 > 0 then     begin       Inc(p1);       p2 := PosEx(';', f, p1);       if p2 > 0 then Memo2.Lines.Add(Copy(f, p1, p2 - p1));     end;   end; end;

[tesla]

Сообщение от poli-smen

А так?:

Код:

ругается на

Код:

1	p2 := PosEx(';', f, p1);

[Error] Unit1.pas(49): Undeclared identifier: 'PosEx'

[poli-smen]

Сообщение от tesla

ругается на

Код:

[Error] Unit1.pas(49): Undeclared identifier: 'PosEx'

Код:

1	uses StrUtils;

[tesla]

Сообщение от poli-smen

Код:

Большое Спасибо!

[tesla]

Сообщение от poli-smen

Код:

Большое Спасибо!



Извеняюсь, заглючило...