@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; |
@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; |
Обратите внимание, что оба примера являются базовыми и требуют дополнительной обработки ошибок и управления памятью.