delphi - 如何对TFileStream进行操作

Question

您好，最近我用 TFileStream 替换了 TextFile。我从来没有使用过它，所以我有一些小问题。

• 将某些内容分配给变量后，如何向文件添加内容？
• 如何读取该文件中的某些内容？

我需要从该文件中定义行，所以我正在做类似的事情:

var linia_klienta:array[0..30] of string;
AssignFile(tempPlik,'klienci.txt');
Reset(tempPlik);
i:=0;
While Not Eof(tempPlik) do
  begin
    Readln(tempPlik,linia_klient[i]);
    inc(i);
  end;
CloseFile(tempPlik);

然后当需要第二行时我只需

edit1.text = linia_klienta[1];

Answer 1

如果您需要读取文本文件并访问每一行，请尝试使用 TStringList使用此类，您可以加载文件、读取数据(使用索引访问每一行)并将数据保存回来。

类似这样的事情

FText  : TStringList;
i : integer;
begin
 FText := TStringList.Create;
 try
  FText.LoadFromFile('C:\Foo\Foo.txt');

    //read the lines
    for i:=0 to FText.Count-1 do    
     ProcessLine(FText[i]);  //do something   

  //Add additional lines
  FText.Add('Adding a new line to the end');
  FText.Add('Adding a new line to the end');    

  //Save the data back
  FText.SaveToFile('C:\Foo\Foo.txt');

 finally
  FText.Free;
 end;

end;

end;