Tema
:
Leer cada linea de un memo y como determinar si llego al final
Ver Mensaje Individual
#
12
27-09-2007
amezeta32
Miembro
Registrado
: ago 2006
Ubicación
: Mérida Yucatán Mex.
Posts
: 32
Reputación
:
0
Saludos a todos!!!
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.Strings[i];//prueba de esta forma
end;
amezeta32
Ver Perfil
Encontrar Todos los Mensajes de amezeta32