delphi - 如何在TFileStream上操作

您好，最近我用TextFile替换了TFileStream。我从不使用它，所以我对此没有什么疑问。

将文件分配给变量后，如何在文件中添加内容？

如何读取该文件的内容？

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

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];

最佳答案

如果需要读取文本文件并访问每一行，请尝试使用带有该类的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;