Comment enregistrer une chaîne .fichier txt en Delphi?

La façon moderne est de créer une stringlist et enregistrer dans un fichier.

procedure MakeAStringlistAndSaveThat;
var
  MyText: TStringlist;
begin
  MyText:= TStringlist.create;
  try
    MyText.Add('line 1');
    MyText.Add('line 2');
    MyText.SaveToFile('c:\folder\filename.txt');
  finally
    MyText.Free
  end; {try}
end;

Noter que Delphi a déjà liés classe qui fait tout ce que vous voulez: TInifile.

Il stocke les valeurs et les clés dans un key = 'value' format.

passwordlist:= TInifile.Create;
try
  passwordlist.LoadFromFile('c:\folder\passwords.txt');
  //Add or replace a password for `user1`
  passwordlist.WriteString('sectionname','user1','topsecretpassword');
  passwordlist.SaveToFile('c:\folder\passwords.txt');
finally
  passwordlist.Free;
end; {try}

Avertissement

Notez que l'enregistrement de unecrypted les mots de passe dans un fichier de texte de la sécurité, de la fuite. Il est préférable de hachage des mots de passe à l'aide d'un hashfunction, voir: Cryptage de mot de passe en Delphi

Pour des conseils sur la façon d'enregistrer les mots de passe de manière sécurisée.

Vous pouvez utiliser le TFileStream classe pour enregistrer une chaîne de caractères dans un fichier:

uses
  Classes;

procedure StrToFile(const FileName, SourceString : string);
var
  Stream : TFileStream;
begin
  Stream:= TFileStream.Create(FileName, fmCreate);
  try
    Stream.WriteBuffer(Pointer(SourceString)^, Length(SourceString));
  finally
    Stream.Free;
  end;
end;

et à lire

function FileToStr(const FileName : string):string;
var
  Stream : TFileStream;
begin
  Stream:= TFileStream.Create(FileName, fmOpenRead);
  try
    SetLength(Result, Stream.Size);
    Stream.Position:=0;
    Stream.ReadBuffer(Pointer(Result)^, Stream.Size);
  finally
    Stream.Free;
  end;
end;