Чтобы прочитать файл в Delphi, вы можете использовать несколько методов. Вот несколько примеров кода:

Метод 1: использование класса TFileStream

TStringList;
begin
FileName := ‘path_to_file.txt’;
FileContent := TStringList.Create;

try
FileStream := TFileStream.Create(FileName, fmOpenRead);
FileContent.LoadFromStream(FileStream);
ShowMessage(FileContent.Text);
наконец
FileStream.Free;
FileContent.Free;
конец;
конец;

Метод 2: использование класса TStreamReader

var
  FileName: string;
  StreamReader: TStreamReader;
  Line: string;
begin
  FileName := 'path_to_file.txt';

  try
    StreamReader := TStreamReader.Create(FileName);
    while not StreamReader.EndOfStream do
    begin
      Line := StreamReader.ReadLine;
      // Process each line of the file
      ShowMessage(Line);
    end;
  finally
    StreamReader.Free;
  end;
end;

Метод 3: использование процедур AssignFile и Reset

var
  FileHandle: TextFile;
  FileName: string;
  Line: string;
begin
  FileName := 'path_to_file.txt';

  AssignFile(FileHandle, FileName);
  Reset(FileHandle);

  try
    while not Eof(FileHandle) do
    begin
      ReadLn(FileHandle, Line);
      // Process each line of the file
      ShowMessage(Line);
    end;
  finally
    CloseFile(FileHandle);
  end;
end;

Это всего лишь несколько способов чтения файла в Delphi. Каждый метод имеет свои преимущества и может быть более подходящим для различных сценариев. Не забудьте заменить 'path_to_file.txt'фактическим путем к файлу, который вы хотите прочитать.