Как читать из файла в delphi?

1
2
3
4
5
6
7
8
9

var Liast: TStringList;
	 FileName: string;
begin
	FileName:= 'C:\Temp\Test.txt';
	List:= TStringList.Create;
	List.LoadFromFile(FileName);
	ShowMessage(List.Text); //Содержимое текстового файла лежит в List.Text
	List.Free;
end;

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13

var
  FileStream: TFileStream;
  Buffer: array[0..255] of Byte;
  BytesRead: Integer;
begin
  FileStream := TFileStream.Create('myfile.txt', fmOpenRead);
  try
    BytesRead := FileStream.Read(Buffer, SizeOf(Buffer));
    // использование прочитанных данных
  finally
    FileStream.Free;
  end;
end;

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16

var
  TextFile: TextFile;
  Line: string;
begin
  AssignFile(TextFile, 'myfile.txt');
  Reset(TextFile);
  try
    while not Eof(TextFile) do
    begin
      ReadLn(TextFile, Line); // чтение текущей строки
      // использование прочитанной строки
    end;
  finally
    CloseFile(TextFile);
  end;
end;