Código Delphi [-]var i: integer; begin for i:= 0 to Memo1.Lines.Count-1 do Memo1.Lines[i]; //....... end;
var i: integer; begin for i:= 0 to Memo1.Lines.Count-1 do Memo1.Lines[i]; //....... end;