小弟不才，在此請教各位先進，這是我第一次使用 TFileStream ，程式碼如下，現在的問題是TFileStream 在存入檔案時，為何都會多存入一個'?'，造成檔案讀取錯誤，請各位先進幫幫忙，謝謝啦！ //***** 程式碼 procedure TForm1.Button1Click(Sender: TObject); var sFileName: String; Attrs: Integer; bDelete: Boolean; WriteStream: TFileStream; begin guSrvInfo.sTitle := Trim('ABCDEFGHIJKLMNOPQRSTUVWXYZ1234'); sFileName := 'C:\text.txt'; if FileExists(sFileName) then begin //先取得原先的檔案屬性 Attrs := FileGetAttr(sFileName); FileSetAttr(sFileName, 0); bDelete := DeleteFile(sFileName); if bDelete then //如果檔案刪除成功才能新增檔案，否則只能開啟檔案 WriteStream := TFileStream.Create(sFileName, fmCreate) else WriteStream := TFileStream.Create(sFileName, fmOpenWrite); WriteStream.Write(guSrvInfo, SizeOf(guSrvInfo)); WriteStream.Free; FileSetAttr(sFileName, Attrs); end else begin //存檔 WriteStream := TFileStream.Create(sFileName, fmCreate); WriteStream.Write(guSrvInfo, SizeOf(guSrvInfo)); WriteStream.Free; FileSetAttr(sFileName, faReadOnly faArchive); end; end; //***** 執行結果 ?ABCDEFGHIJKLMNOPQRSTUVWXYZ123

What is definition of guSrvInfo? BTW please enclose your code with [ code ] [ /code ] next time.

procedure TForm1.Button1Click(Sender: TObject); var sFileName,str: String; WriteStream: TFileStream; strstream:TStringStream; begin str:= Trim('ABCDEFGHIJKLMNOPQRSTUVWXYZ1234'); sFileName := 'C:\text.txt'; strstream:=TStringStream.Create(str) ; if FileExists(sFileName) then begin FileSetAttr(sFileName, 0); WriteStream := TFileStream.Create(sFileName, fmOpenWrite); end else WriteStream := TFileStream.Create(sFileName, fmCreate); try strstream.Position :=0; WriteStream.CopyFrom(strstream,0); finally strstream.Free ; WriteStream.Free; end; FileSetAttr(sFileName, faReadOnly faArchive); end; 这样就可以了！

感謝各位先進的回應，我試過sos_admin 前輩的方式確實可行，但是如果變數本身不是String，而是 Record 時又該如何處理呢？ 以下再將程式碼完整的貼上!    

 
type
   NewSaveInfo = Record
   sTitle: String[29];                //Server的資訊
  end;      TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;
  guSrvInfo: NewSaveInfo;          //保留登錄資訊    implementation    {$R *.DFM}    procedure TForm1.Button1Click(Sender: TObject);
var sFileName: String;
    Attrs: Integer;
    bDelete: Boolean;
    WriteStream: TFileStream;
begin
  guSrvInfo.sTitle := Trim('ABCDEFGHIJKLMNOPQRSTUVWXYZ1234');
  sFileName := 'C:\text.txt';
  if FileExists(sFileName) then begin
    //先取得原先的檔案屬性
    Attrs := FileGetAttr(sFileName);
    FileSetAttr(sFileName, 0);
    bDelete := DeleteFile(sFileName);
    if bDelete then
      //如果檔案刪除成功才能新增檔案，否則只能開啟檔案
      WriteStream := TFileStream.Create(sFileName, fmCreate)
    else
      WriteStream := TFileStream.Create(sFileName, fmOpenWrite);
    WriteStream.Write(guSrvInfo, SizeOf(guSrvInfo));
    WriteStream.Free;
    FileSetAttr(sFileName, Attrs);
  end else begin
    //存檔
    WriteStream := TFileStream.Create(sFileName, fmCreate);
    WriteStream.Write(guSrvInfo, SizeOf(guSrvInfo));
    WriteStream.Free;
    FileSetAttr(sFileName, faReadOnly   faArchive);
  end;
end;

No space in [ code ] [ /code ].... BTW, you are using short string and the first byte (i.e. sTitle[0]) stored its length.... For an ansi string you should use this:    

if length(AString)>0 then
    AStream.Write(AString[1],length(AString));

And you may want to store the length of you string first....

kaoworld 兄： 对于record等自定义类型数据，只有将它保存为文件档，然后再可以用“流“传输哦！

 
 ARecord = record
 xxx...
 .
 .
 .
 end;
 .
 .
var
 Data: array of ARecord;
 .
 .
 SetLength(Data,Size_U_Want)
 .
 .
 .
 UR_FileStream.Write(Data,Length(Data) * SizeOf(ARecord));
 .
 .    

Notic: Do not contain any LifeTime Management type in record like String, Object, Dynamic array ....ect, if u want to write them to file cause them won't be calculated in function of SizeOf and won't write anything to file use String[1] ~ String[255] no Object, Dynamic array

感謝各位先進的幫忙，我已經依照 William 版主的指導找到解決方法了！ 原來大家都很熱心的！