на шаг назад...

[malevich]

есть текстовый файл типа
0 10
1 20
2 22
3 22
4 23
,,,,,

надо прочитать первую и вторую строку,потом вторую и третью,третью и четвертую и т.д

for i:=1 to 20000 do
begin
readln(tp,tn,pn);
readln(tp,tk,pk);
// на стороку назад ????
,,,,,,,,,,,,,,,,,,,,,,,,,,
,,,,,,,,,,,,,,,,,,,,,,,,,,
как поместить ФУ в начало предшествующей записи?????

Кто знает фортран,там это делает BACKSPASE

[Квэнди]

while not(eof(file)) do
begin
readln(file,st1);
readln(file,st2);
end;
в чем проблема ?

[Umen]

Тут нужно использовать либо типизированный файл, либо TFileStream
в них обоих есть метод seek, который позволяет установить указатель на произвольное мето в файле.

[malevich]

to Квенди: В приведенном Вами коде получится чтение первой и второй строки,третей и четвертой строки, пятой и шестой.....
а надо 1,2 2,3 3,4 4,5........

[Квэнди]

Не вижу препятствий
readln(file,st1);
while not(eof(file)) do
begin
readln(file,st2);
//St1-Первая строка, St2-вторая строка
st1:=st2;
//При следующем проходе St1-2-я строка.
end;

[Kostyan]

Привет!
А если такая идея.. Читать весь файл сначала в список строк, а потом уже двигаться по этому списку, как требуется

[malevich]

Понимаете, тогда приходиться использовать массивы, а массивы таких размеров (порядка 300000) помоему нельзя создать, ошибки выдаются. так что работа с одной-двумя переменными выгоднее...

[Kostyan]

А при чем тут массивы?

[rpy3uH]

var
  str:tstringlist;

begin
  str:=tstringlist.create;
  str.loadfromfile(......);
  str.strings[line]

line это номер строки, нумерация начитаетя с нуля

[Kostyan]

вот я примерно про это и говорил