[DELPHI]Creare file txt

[DrPereppe]

Salve ragazzi qualche illustrissimo che saprebbe indicarmi come posso creare un file txt in delphi e scriverci qualcosa dentro?

Grazie a tutti

[alka]

Puoi usare diversi approcci, uno più "procedurale" ereditato dal buon vecchio Pascal, mentre l'altro è "object oriented" e usa una classe particolarmente funzionale e, a mio avviso, molto comoda.

const
  SFileName = 'MyTextFile.txt';
var
  T: TextFile;
begin
  AssignFile(T, SFileName);
  Append(T);
  try
    WriteLn(T, 'Some text...');
    Flush(T);
  finally
    CloseFile(T);
  end;
end;

Questa sopra è la prima versione, in cui si assegna ad una variabile TextFile un file di testo da aprire per accodare dati (con Append); la procedura WriteLn scrive una riga di testo e riporta il cursore a capo, la Flush garantisce il salvataggio dei dati nel file mentre la CloseFile, essenziale, provvede a chiudere il file.

const
  SMyFile = 'MyTextFile.txt';
var
  S: TStringList;
begin
  S := TStringList.Create;
  try
    S.Add('Some text...');
    S.SaveToFile(SMyFile);
  finally
    S.Free;
  end;
end;

Questa versione usa un'istanza della classe TStringList: si tratta della stessa classe usata dai TMemo e da altri controlli per memorizzare una lista di stringhe; attraverso il metodo Clear, si può cancellare il contenuto, mentre Add aggiunge righe di testo con ritorni a capo e i metodi LoadFromFile e SaveToFile implementano rispettivamente il caricamento e il salvataggio del file da/su disco.

In generale, preferisco il secondo metodo, anche se nel caso in cui si debbano sempre accodare righe al file di testo, il primo metodo è logicamente e praticamente più performante (nel secondo caso, si dovrebbe prima caricare il contenuto del file di testo, aggiungere le righe mancanti e salvarlo nuovamente).

Spero di essere stato sufficientemente prolisso...

Ciao!