Wie speichere ich in Delphi eine Zeichenkette in eine .txt-Datei?

Ich brauche, um ein Programm erzeugt, dass ein Passwort gespeichert ist, in eine text-Datei-format in ein bestimmtes Ziel habe ich gesetzt und der Benutzer muss zum öffnen des .txt um das Passwort zu erhalten, um "entsperren" ein anderes Programm.

Ich hab schon den code zum generieren des Kennworts in der Zeichenfolge sPass und jetzt muss ich verwenden die Funktion SaveToFile zu speichern in die text-Datei, die ich erstellt namens Password.txt aber ich kann nicht finden, die Allgemeine form zu verwenden, die SaveTo File-Funktion in Delphi, und ich weiß nicht, wo der sPass und Password.txt in der Funktion.

Es sollte so etwas wie : SaveToFile(...) aber ich weiß nicht, wie sparen sPass in Password.txt

Edit :

Nur eine Frage noch, wie kann Sie löschen, was zuvor gespeichert Password.txt bevor Sie fügen Sie die Zeichenfolge, so dass Password.txt ist das Leerzeichen vor dem string Hinzugefügt wird ? Dank

InformationsquelleAutor der Frage Nyt Ryda | 2011-10-13

  1. 20

    Den modernen Weg ist das erstellen einer stringlist, und speichern Sie die Datei.

    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;

    Beachten Sie, dass Delphi bereits eine Verwandte Klasse, die tut alles, was Sie wollen: TInifile.

    Es speichert Werte und Schlüssel in einem 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}

    Warnung

    Beachten Sie, dass beim speichern der Passwörter unverschlüsselt in einer Textdatei ist ein Sicherheits-Leck. Es ist besser, hash Ihre Passwörter mit einem hashfunction finden Sie unter: Passwort-Verschlüsselung in Delphi

    Für Tipps, wie Sie sparen Kennwörter in einer sicheren Weise.

    InformationsquelleAutor der Antwort Johan

  2. 34

    Den Modernen Modernen Weg ist TFile.WriteAllText im IOUtils (Delphi 2010 und höher)

    Verfahren WriteAllText(const Path: string; const Inhalt: string);
    überlastung; statisch;

    Erstellt eine neue Datei, schreibt die angegebene Zeichenfolge in die Datei und dann
    schließt die Datei. Wenn die Zieldatei bereits existiert, wird Sie überschrieben.

    InformationsquelleAutor der Antwort awmross

  3. 13

    Können Sie die TFileStream Klasse zum speichern eines string in einer Datei:

    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;

    und zu Lesen

    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;

    InformationsquelleAutor der Antwort RRUZ

  4. 4

    Schnellste und einfachste Weg, keine Notwendigkeit zum deklarieren der Variablen:

    with TStringList.Create do
 try
  Add(SomeString);
  SaveToFile('c:\1.txt');
 finally
  Free;
 end;

    InformationsquelleAutor der Antwort TPAKTOPA

Schreibe einen Kommentar