Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.12.12;
Скачать: [xml.tar.bz2];

Вниз

Как определить размер textfile?   Найти похожие ветки 

 
Ньюбик   (2004-11-29 18:15) [0]

Может быть это популярный вопрос, но ответа на него не нашёл.
Мне интересно, как найти размер текстового файла. Filesize не подходит (в хелпе так и сказано: "FileSize can"t be used on a text file."). И как быть?

Помогите пожалуйста написать процедуру определения размера файла.


 
Smithson   (2004-11-29 18:17) [1]

так же, как и любого другого. FileSize + F1.


 
Gero ©   (2004-11-29 18:19) [2]

А никто не знает, текстовый у тебя файл или нет.
Как ты скажешь - так и будет.
Так что FileSize подходит вполне.
Кроме этого, еще есть GetFileSize.


 
Ньюбик   (2004-11-29 18:21) [3]

2 Gero
"Кроме этого, еще есть GetFileSize."
Подскажите пожалуйста, как с помощью GetFileSize определить размер файла? Только поподробнее если можно. Я ньюбик.

2 Smithson
"так же, как и любого другого. FileSize + F1."
FileSize не подходит для textfile (есть такой тип). Можно конечно сделать file of char... Только вот уже немало кода написано для textfile (всякие операторы readln и т.п.) - не хотелось бы всё переделывать.


 
jack128 ©   (2004-11-29 18:26) [4]

Ньюбик   (29.11.04 18:21) [3]
Я ньюбик.

Не-а. Это ты в онлайн играх ньюбик, а здесь ты чайник ;-)

var
 f: TextFile;
begin
...
 Result := GetFileSize(TTextRec(f).Handle, nil);
...
end;


 
Ньюбик   (2004-11-29 18:30) [5]

2 jack128
> Это ты в онлайн играх ньюбик
Не знаю, в онлайн-игры не играю (кроме как в UT иногда). Ньюбиками часто на форумах называют  людей, у которых мало постов.
>, а здесь ты чайник ;-)
кто бы спорил, я не буду :)

> Result := GetFileSize(TTextRec(f).Handle, nil);
Merci Beaucoup very mach! :)  Собственно это мне и надо было (сейчас проверил, всё работает). Ещё раз спасибо.



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

Форум: "Основная";
Текущий архив: 2004.12.12;
Скачать: [xml.tar.bz2];

Наверх









Память: 0.56 MB
Время: 0.134 c
1-1101368057
Дядя
2004-11-25 10:34
2004.12.12
TwordApplication для разных версий Worda


1-1101736159
hgd
2004-11-29 16:49
2004.12.12
Как открыть папку


14-1100918992
DelphiN!
2004-11-20 05:49
2004.12.12
Подмена системных файлов


8-1094539043
serg128
2004-09-07 10:37
2004.12.12
Как зацыклить TMediaPlayer?


1-1101889207
pomashok
2004-12-01 11:20
2004.12.12
mouse_event





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский