Доброго времени суток!
Есть текст подгружаемый в 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
Пожалуста, помогите!