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

Как узнать размер текстового файла (Textfile)?   Найти похожие ветки 

← →
novill ©   (2006-06-26 11:01) [0]

Функция filesize непримернима по описанию, а имя файла неизвестно (может быть разным и не передается).

---

← →
MBo ©   (2006-06-26 11:09) [1]

>Функция filesize непримернима по описанию
открой файл в том режиме, в котором она применима :)

А еще проще - FindFirst

---

← →
novill ©   (2006-06-26 11:18) [2]

> MBo ©   (26.06.06 11:09) [1]
> >Функция filesize непримернима по описанию
> открой файл в том режиме, в котором она применима :)
>
> А еще проще - FindFirst


Для любого из вариантов надо знать физическое имя файла.

Похоже придется переписывать работу с файлом.

---

← →
MBo ©   (2006-06-26 11:28) [3]

>Для любого из вариантов надо знать физическое имя файла.
??? А есть варианты, когда не нужно знать, что за файл????

---

← →
Palladin ©   (2006-06-26 11:39) [4]

видимо textfile у него открывается где то в одном месте, а размер получается  в другом, в котром неизвестно имя файла... :)

---

← →
novill ©   (2006-06-26 11:47) [5]

Да. Если бы переменная была не TextFile, a, например, File of char, то filesize работала бы.

---

← →
MBo ©   (2006-06-26 11:47) [6]

>Palladin ©   (26.06.06 11:39) [4]
а, ну тогда с извратом можно:

var
 f: TextFile;
begin
 Assignfile(f, "c:\autoexec.bat");
 Reset(f);
 Caption := intToStr(GetFileSize(TTextRec(f).Handle, Nil));
 Closefile(f);

---

← →
novill ©   (2006-06-26 14:19) [7]

> MBo

Спасибо. То что нужно.

---

← →
Desdechado ©   (2006-06-26 16:13) [8]

> размер текстового файла
в каких единицах? Байтах, символах, абзацах, строках?

---

← →
Leonid Troyanovsky ©   (2006-06-26 18:18) [9]

> MBo ©   (26.06.06 11:47) [6]

> а, ну тогда с извратом можно:

Почему это с извратом?
Вполне здоровый секс, хотя, конечно,
для половозрелых особей. Бо
Do not use this unless you are familiar with writing Object Pascal
text file device drivers.

--
Regards, LVT.

---

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

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



Память: 0.46 MB
Время: 0.037 c