Как вернуть курсор на начало текущей строки?

ACMilian, Это в мемо что-ли



Это сообщение отредактировал(а) alexeis1 - 18.9.2006, 17:27

Читается файл. И прочитав, строку до определённого момента, нужно вернуть курсор на начало текущей строки.

ACMilian, в файле нет курсора, только файловый указатель. Он имелся ввиду?

Добавлено @ 17:30 
Каким образом производится чтение из текстового файла?

И после возвращения к бегину, нужно прочитать строку с начала.

Только reset и возврат к началу файла.

Добавлено @ 17:47 
ACMilian, вообще в этом мало смысла обычно текстовый файл грузят в stringlist и там производят все операции.

Но мне нужно именно таким способом. Неужели нет никакого способа в начало строки вернуться или хотя бы на строку вверх подняться?   

ACMilian, можно только файл должен быть открыт не в текстовом режиме.

Можно. Или копаться во внутренней структуре TTextRec(t).*.
Или Запоминать на какой строке находишся в переменную, Reset(t) и циклом readln(t) переменная-1. Второй вариант проще

Добавлено @ 22:06 
PS 
Зачем такие замарочки? Может стоит пересмотреть реализацию

Это уже будет мало похоже на работу с текстовыми файлами. В этом случае проще вообще отказатся от работы с файлами как с текстовыми. Что касается 2 то это сброс на начало файла а не строки со всеми вытекающими последствиями

ACMilian
Этого нельзя сделать.

Добавлено @ 13:08 
Придётся ипользовать метод, который предложил Matematik. С запоминанием номера строки...

а если перед этим запоминать положение в файле ?


или я не понял правильно ?

В файле четыре столбца:  
высота(см)  объём(м3)  Кэф. вместимомости   Погрешность
    0              0.093                  0.003                       -
    1              0.123                  0.003                       -
    2              0.155                  0.004                   1.557
    3              0.191                  0.005                   1.361
    4              0.238                  0.004                   1.207
.............и т.д.
В каждой строке нужно только читать только первые два столбца,
и водить писать в базу высоту в мм, а объём по мм брать.
Для этого читаю сразу две строки, считаю разницу, делю на десять..., а потом нужно вернуться в начало второй считанной строки, опять читать две строки и по кругу.  
here всего лишь возвращает к бегину.
  

тогда можно сделать так создаешь массив из 2 строк,
допустим var sx: array [0..1] of string; или через TStringList, суть не в этом
читаем из файла первую строку
sx[0]:=1 строка 
sx[1]:= 2 строка 
обработал
и дальше читаешь уже в 
sx[0]:= 3 строка
обработка
далее sx[1]:=4 строка 
и т.д.
надо вести только учет индексов куда писать в 0 или в 1

Зачем же возвращатся не проще ли переприсвоить значения из переменных нижней строки в переменные верхней и считать только одну, следующую сторку.

Это сообщение отредактировал(а) alexeis1 - 19.9.2006, 16:26