[tesla]

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

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

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

test
red
edfrtg
erwgr

Код:

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]

А так?:

Код:

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

А так?:

Код:

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;

ругается на

Код:

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

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

[poli-smen]

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

ругается на

Код:

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

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

Код:

uses StrUtils;

[tesla]

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

Код:

uses StrUtils;

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

[tesla]

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

Код:

uses StrUtils;

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



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