|
через буфер
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
BufString:string;
begin
i:=0;
BufString:='';
repeat
BufString:=(memo1.Lines[i]);
delete(BufString,1,Pos(':', BufString));
memo1.Lines[i]:=BufString;
i:=i+1;
until i=memo1.Lines.Count;
end;
и нумерация строк в мено начинается с нуля
|