Ver Mensaje Individual
  #7  
Antiguo 18-12-2007
sépoco sépoco is offline
Miembro
 
Registrado: dic 2007
Posts: 10
Reputación: 0
sépoco Va por buen camino
Leer linear de archivo .txt

IMP20983;0;IMP20983
VK RF SE1052 SO M;9008;60490001070

Dejar en una variable cada campo separado por ;
es un archivo .txt y los campos son variables. Leo el archivo y lo traspaso a un Memo.

if OpenDialog1.Execute then
begin
AssignFile(F, OpenDialog1.FileName);
Reset(F);
while not eof(F) do
begin
Readln(F, S);
Memo.Lines.Add(S);
end;
CloseFile(F);
end;

Última edición por sépoco fecha: 18-12-2007 a las 23:56:20.
Responder Con Cita