问个简单问：怎么创建、并把一串字符写到一个txt文件里？

Question

帮忙提供一下代码，谢谢

Answer 1

var MyFile:TextFile;
begin
    try
        AssignFile(MyFile,'c:\a.txt');
        ReWrite(MyFile);
        WriteLn(MyFile,'把一串字符写到一个txt文件里');
    Finally
        CloseFile(MyFile);
    end;
end;
//在c盘创建一个a.txt文件，然后写入“把一串字符写到一个txt文件里”到文件中

Answer 2

TextFile  StringList都可以

Answer 3

TextFile  StringList都可以

Answer 4

function SaveStringToFile(S; string; FileName: string): Boolean;
begin
  with TStringList.Create do try
    Append(S);
    SaveToFile(FileName);
    Result := True;
    Free;
  except
    Result := False;
    Free;
  end;
end;

Answer 5

FS: TFileStream;
S: string = 'hello, test filestream.';
FS := TFileStream.Create('c:\test.txt', fmCreate); 
try
  FS.WriteBuffer(PChar(S)^, L);
finally
  FS.Free;
end;