Скачать: CL | DM;

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

← →
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 © (07.07.03 08:27)
Точнее
2. размер записи = Reset(F, N) байт

---

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

>icWasya © (07.07.03 08:59)
>Anatoly Podgoretsky © (07.07.03 09:01)
Уточнения принимаются ! :)

---

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

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

---

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.013 c