Flenov
16.08.2009, 02:26
Привет всем, кто меня читает.
Прошу мне немножко помоч.
Пишу прогу на Delphi, она работает с текстовым файлом.
Мне нужно в определённый момент вернуть курсор на нулевую позицию, незакрывая файл.
Поясню:
var
F: TextFile;
S: String;
begin
AssignFile(F, 'MyTextFile.txt'); //Связываем файловую переменную с файлом
{$I-} //Отключаем сообщения об ошибках
Reset(F); //Открываю файл для чтения (Позиция равна нулю)
Readln(F, S); //Читаю первую строку (Позиция изменлась)
Flush(F); //Освобождаю память (Не уверен, что это нужно делать при чтении,
если кто знает поясните)
Closefile(F); //Закрываю файл
end;
Прошу мне немножко помоч.
Пишу прогу на Delphi, она работает с текстовым файлом.
Мне нужно в определённый момент вернуть курсор на нулевую позицию, незакрывая файл.
Поясню:
var
F: TextFile;
S: String;
begin
AssignFile(F, 'MyTextFile.txt'); //Связываем файловую переменную с файлом
{$I-} //Отключаем сообщения об ошибках
Reset(F); //Открываю файл для чтения (Позиция равна нулю)
Readln(F, S); //Читаю первую строку (Позиция изменлась)
Flush(F); //Освобождаю память (Не уверен, что это нужно делать при чтении,
если кто знает поясните)
Closefile(F); //Закрываю файл
end;