Главная страница
    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.075 c
3-1100532292
denis24
2004-11-15 18:24
2004.12.12
select ....like *


11-1083996308
fr!
2004-05-08 10:05
2004.12.12
как поймать message?


14-1101208425
ИМХО
2004-11-23 14:13
2004.12.12
Украина!


1-1101362342
Yus
2004-11-25 08:59
2004.12.12
Классы


14-1100882555
StellMan
2004-11-19 19:42
2004.12.12
Скока платят модераторам





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский