Встать на последнюю запись

← →
Star Wars (2003-07-07 08:12) [0]

subj, Как это осуществить, только с применением последовательног считывания, вроде этого -

while not Eof(f) do begin
read(F,MyRecord);
Inc(count);
end;
ShowMessage("The final record has No. "+IntToStr(count));
Seek(F,count);
или можно быстрее?

← →
MBo (2003-07-07 08:15) [1]

встать в конец и отойти назад на размер записи.
Но судя по твоему коду, нужно получить количество записей?
Это только последовательно (если не хранить их счетчик).

← →
Star Wars (2003-07-07 08:17) [2]

Нет, это я из головы взял, не надо мне количество записей. Просто это взаимоувязанно :)
Просто файл очень большой, пока пройдешься по всем записям последовательно...уууу...

← →
Palladin (2003-07-07 08:20) [3]

FileSize
Seek

← →
Star Wars (2003-07-07 08:22) [4]

А FileSize выдает размер В ЗАПИСЯХ??? (еще раз вглядываясь в Help: "FileSize Returns the current size of a file; not used for text files.") Я думал, в байтах...

← →
Palladin (2003-07-07 08:25) [5]

Да, в записях...
Seek тоже работает с записями...

← →
Star Wars (2003-07-07 08:26) [6]

Жму вашу мужественную руку :) Thanx

← →
Skier (2003-07-07 08:27) [7]

>Star Wars (07.07.03 08:22)
1) File of TYourRecord (типизированный файл) - размер записи = SizeOf(TYourRecord)
2) File (нетипизированный файл) - размер записи = 128 байт

← →
icWasya (2003-07-07 08:59) [8]

>Skier © (07.07.03 08:27)
уточнение-
2) File (нетипизированный файл) - размер записи = 128 байт
или второй параметр процедур Reset/Rewrite

← →
Anatoly Podgoretsky (2003-07-07 09:01) [9]

← →
Skier (2003-07-07 09:03) [10]

← →
Виталий (Украина) (2003-07-08 15:58) [11]

А, что разве
Last;
ShowMessage("Всего записей"+IntToStr(RecordCount));
Не Работает

← →
Palladin (2003-07-08 17:34) [12]

А что, разве кто то тут это сказал?

Встать на последнюю запись Найти похожие ветки