在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控件中顯示其內容。您可以將上述代碼根據您的需求進行修改和擴展。
