Hola.
Código Delphi
[-]
procedure PasarAMemos(NomArch: string; M1,M2,M3: TMemo);
var
F: TextFile;
TS: TStrings;
s: string;
begin
AssignFile(F, NomArch);
try
Reset(F);
ReadLn(F); try
TS:= TStringList.Create;
TS.Delimiter:= ' ';
while not Eof(F) do
begin
ReadLn(F,s);
TS.DelimitedText:= s;
M1.Lines.Add(TS[0]);
M2.Lines.Add(TS[1]);
M3.Lines.Add(TS[2]);
end;
finally
TS.Free;
end;
finally
CloseFile(F);
end;
end;
Ejemplo de llamada:
Código Delphi
[-]
...
Memo1.Clear;
Memo2.Clear;
Memo3.Clear;
PasarAMemos('C:\TU_ARCHIVO.TXT', Memo1,Memo2,Memo3);
...
Saludos.