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 22:56:20.
|