Ver Mensaje Individual
  #6  
Antiguo 11-07-2013
Avatar de newtron
[newtron] newtron is offline
Membrillo Premium
 
Registrado: abr 2007
Ubicación: Motril, Granada
Posts: 4.215
Reputación: 24
newtron Va camino a la fama
Bueeeeeeeeeeeeeeeeeeeeeno.... a ver si esto es lo que quieeeeeeeeeeres....

Código Delphi [-]
var
MiFichero : TextFile;
valor :dword;
valor1 :dword;
valorsting : TStringList;
sAux: String;
begin
  valorsting: TStringList.Create;
  AssignFile (MiFichero,(C:\nombre.txt'));
  Reset (MiFichero);
  While not MiFichero.eof do begin
    Readln(MiFichero,sAux);
    valorsting.add(sAux);
  end;
  .....

end;

de esta manera te encontrarás en la variable valorsting[N] los valores de cada una de las lineas del fichero de texto, recuerda hacer un "free" a la variable valorsting cuando ya no la necesites para liberarla de la memoria.

(seguro que alguno de estos "listillos" tiene una forma más simple, efectiva o que use menos recursos para hacer esto, lo estoy viendo...)
__________________
Be water my friend.
Responder Con Cita