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]]

...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:


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í:


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