Ver Mensaje Individual
  #2  
Antiguo 30-11-2004
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.297
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Cita:
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;
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita