我需要制作一个程序来生成密码，该密码以文本文件格式保存在我设置的特定目标中，用户需要打开 .txt 以获取密码以“解锁”另一个程序。
我已经获得了在字符串 sPass 中生成密码的代码，现在我需要使用 SaveToFile 函数将其保存到我创建的名为 Password.txt 的文本文件中，但我找不到使用 SaveTo 的一般形式Delphi中的文件函数，我不知道将sPass和Password.txt放在函数中的什么位置。
它应该类似于：SaveToFile(...) 但我不知道如何将 sPass 保存在 Password.txt 中
编辑：
还有一个问题，在添加字符串之前如何删除之前存储在 Password.txt 中的内容，以便在添加字符串之前 Password.txt 为空白？谢谢
【问题讨论】：
标签： string delphi delphi-7 text-files
现代方法是创建一个字符串列表并将其保存到文件中。
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;
请注意，Delphi 已经有一个相关的类可以满足您的所有需求：TInifile。
它以key = 'value' 格式存储值和键。
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}
警告
请注意，将未加密的密码保存在文本文件中是一种安全漏洞。最好使用哈希函数对您的密码进行哈希处理，请参阅：Password encryption in Delphi
有关如何以安全方式保存密码的提示。
【讨论】：
TIniFile 不是TStrings 的后代。
Modern Modern 方式是在 IOUtils（Delphi 2010 及更高版本）中使用 TFile.WriteAllText
procedure WriteAllText(const Path: string; const Contents: string); 超载;静态的；
创建一个新文件，将指定的字符串写入文件，然后 关闭文件。如果目标文件已经存在，则覆盖。
【讨论】：
最快最简单的方法，无需声明任何变量：
with TStringList.Create do
try
Add(SomeString);
SaveToFile('c:\1.txt');
finally
Free;
end;
【讨论】：
您可以使用TFileStream 类将字符串保存到文件中：
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;
阅读
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;
【讨论】：