Código Delphi [-] AssignFile (MiFichero,(C:\nombre.txt')); Reset (MiFichero); While not Eof(MiFichero) do begin ReadLn(MiFichero,valorsting); ShowMessage(valorsting); end;
AssignFile (MiFichero,(C:\nombre.txt')); Reset (MiFichero); While not Eof(MiFichero) do begin ReadLn(MiFichero,valorsting); ShowMessage(valorsting); end;