no hay pena contraveneno
mira ya pude pero suceque me lee todo el memo, pero necesito que me lea una linea primero y luego otra, te muestro el codigo
procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
area:array[1..15] of string;
begin
for i:=0 to memo1.Lines.Count-1 do
edit1.Clear;
edit1.Text:=memo1.Lines.GetText;
end;
pero de esta manera me lee todo el memo, io necesito ordenarle que lo haga linea por linea.
|