Importar archivo de texto

[trabuc]

Hola
Alguien me podria decir como se hace en delphi para importar un archivo de texto, y usar meter el texto de respectivas lineas en variables?

Gracias y un saludo a todos

[Neftali [Germán.Estévez]]

Empezado por trabuc

...como se hace en delphi para importar un archivo de texto, y usar meter el texto de respectivas lineas en variables?

Hay varias formas de hacerlo; Una es utilizando TextFile y segun la ayuda de Delphi éste sería un ejemplo:

Código Delphi [-]
var 
  F: TextFile;
  S, var1: string;
begin
    AssignFile(F, 'C:\MiFichero.txt'); // Cargar el fichero
    Reset(F);         // Inicializar
    Readln(F, S);    // Leer la primera linea
    var1 := S;                     // guardarle en una variable    
    CloseFile(F);   // cerrar el fichero
end;

La otra que a veces se utiliza (si el fichero es pequeño) es cargarlo en un TStrings; Y ahí manipularlo. Algo así:

Código Delphi [-]
var
  TS:TStrings;
  var1, var2:Strings;
begin
  TS := TStringList.Create(nil);  // crear el TStrings
  try
    TS.LoadFromFile('C:\MiFichero.txt'); );   // cargar el fichero
    var1 := TS.Strings[0];  // primera linea
    var2 := TS.Strings[1];  // segunda línea
    ...
  finally
    TS.Free;
  end;

[jeronimo]

Si es un archivo de texto separado por coma, esta Commatext(en delphi4).-

[trabuc]

Gracias, ya me va bien