Главная страница
    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.45 MB
Время: 0.063 c
1-1101473863
kaktus
2004-11-26 15:57
2004.12.12
Такой вредный ИнДизайн!!!!!


1-1101841960
The Ram
2004-11-30 22:12
2004.12.12
Подскажите пожалуйста!


1-1101290251
ККВ
2004-11-24 12:57
2004.12.12
Чем открыть файл *.wdb?


14-1100975283
Shadow-st
2004-11-20 21:28
2004.12.12
ipframe


1-1101750137
Davinchi
2004-11-29 20:42
2004.12.12
PChar TO String





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