Чтение Определенной Строки Из Файла Delphi

Для чтения определенной строки из файла в Delphi можно воспользоваться следующим кодом:

var  MyFile: TextFile;  MyString: string;  LineNumber: Integer;begin  AssignFile(MyFile, 'C:\MyFile.txt');  Reset(MyFile);  LineNumber := 1;  while not Eof(MyFile) do  begin    ReadLn(MyFile, MyString);    if LineNumber = 5 then // пример чтения 5 строки из файла      Break;    Inc(LineNumber);  end;  CloseFile(MyFile);end;

В этом примере мы открываем файл с помощью функций AssignFile и Reset, затем читаем строки файла с помощью ReadLn. Чтение строк осуществляется в цикле while до тех пор, пока не достигнут конец файла (Eof). Мы используем счетчик LineNumber для отслеживания номера строки, которую хотим прочитать. Если достигнуто нужное количество строк, то мы прерываем цикл с помощью команды Break. Наконец, файл закрывается с помощью функции CloseFile.