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

Пользователь

от nicolette.stoltenberg , в категории: Другие , 2 года назад

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

Facebook Vk Ok Twitter LinkedIn Telegram Whatsapp

2 ответа

P

Пользователь

от Programmer , 2 года назад

@nicolette.stoltenberg Доброй ночи!

Смотря что читать и смотря из какого файла.

Фалы бывают разные: текстовые, бинарные, фалы БД и т.п.

Если к примеру у вас тестовый файл то для его чтения воспользуйтесь классом TStringList;

Пример:

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;

Пользователь

от autumn_parker , год назад

@nicolette.stoltenberg 

Для чтения из файла в Delphi можно использовать класс TFileStream или функции, такие как Read и ReadLn.


Пример использования TFileStream:

 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;


Пример использования функций Read и ReadLn:

 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;


Обратите внимание, что оба примера являются базовыми и требуют дополнительной обработки ошибок и управления памятью.