溫馨提示×

delphi怎么讀取txt文件內容

小億
674
2024-02-19 16:29:37
欄目: 編程語言

在Delphi中讀取txt文件內容可以使用TStringList組件和TFileStream組件來實現。下面是一個簡單的示例代碼:

procedure ReadTxtFile(const FileName: string; var Content: TStringList);
var
  FileStream: TFileStream;
begin
  Content.Clear;
  FileStream := TFileStream.Create(FileName, fmOpenRead);
  try
    Content.LoadFromStream(FileStream);
  finally
    FileStream.Free;
  end;
end;

在上面的代碼中,我們首先創建一個TFileStream對象來打開txt文件,然后將文件內容加載到TStringList中。使用示例代碼:

procedure TForm1.Button1Click(Sender: TObject);
var
  Content: TStringList;
begin
  Content := TStringList.Create;
  try
    ReadTxtFile('example.txt', Content);
    Memo1.Lines.Assign(Content);
  finally
    Content.Free;
  end;
end;

在上面的示例中,我們創建了一個TStringList對象來存儲txt文件的內容,并在Memo1控件中顯示其內容。您可以將上述代碼根據您的需求進行修改和擴展。

0
亚洲午夜精品一区二区_中文无码日韩欧免_久久香蕉精品视频_欧美主播一区二区三区美女