Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.07.16;
Скачать: 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 вся ветка

Текущий архив: 2006.07.16;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.037 c
15-1149861184
Ihor Osov'yak
2006-06-09 17:53
2006.07.16
эт, о перспективах...


2-1151290269
Тоха
2006-06-26 06:51
2006.07.16
Как нажать кнопку чужого приложения.


15-1150602927
guard_gg
2006-06-18 07:55
2006.07.16
Microsoft Visual C++ and Borland C++ Builder


2-1151661230
Footballer
2006-06-30 13:53
2006.07.16
Как перетащить файлы в Playlist


2-1151354245
SergNic
2006-06-27 00:37
2006.07.16
о возможностях Delphi 2006 Prof