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

Вниз

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

 
Lizard   (2001-10-08 21:47) [0]

Допустим в listbox1 прописан путь к файлу. Как узнать размер этого файла ?
Спасибо заранее.


 
Вадим   (2001-10-08 23:20) [1]

FileSize()


 
Delphimun   (2001-10-09 12:27) [2]

Из справки:
procedure TForm1.Button1Click(Sender: TObject);
var
f: file of Byte;
size: Longint;
S: string;
y: Integer;
begin
if OpenDialog1.Execute then
begin
AssignFile(f, OpenDialog1.FileName);
Reset(f);
try
size := FileSize(f);
S := "File size in bytes: " + IntToStr(size);
y := 10;
Canvas.TextOut(5, y, S);
y := y + Canvas.TextHeight(S) + 5;
S := "Seeking halfway into file...";
Canvas.TextOut(5, y, S);

y := y + Canvas.TextHeight(S) + 5;
Seek(f, size div 2);
S := "Position is now " + IntToStr(FilePos(f));
Canvas.TextOut(5, y, S);
finally
CloseFile(f);
end;
end;

end;


 
foks   (2001-10-09 16:14) [3]

procedure TForm1.ListBox1Change(Sender: TObject);
var
f: file of byte;
Size: longint; //В байтах, иначе дели на 1024, будет Kb
begin
AssignFile(f,ListBox1.Text);
Reset(f);
Size:=IntToStr(FileSize(f));
CloseFile(f);
end;


 
BeepCheck   (2001-10-10 14:45) [4]

getfilsize()



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

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

Наверх





Память: 0.75 MB
Время: 1.711 c
4-75713
Anderius
2001-11-14 21:25
2002.01.24
Зупуск программы в BackGround режиме


1-75566
CEBE
2002-01-04 16:08
2002.01.24
Знаю, старо, но что делать, ЦИФРА ПРОПИСЬЮ ...


3-75510
Сидоров Юрий
2001-12-21 09:18
2002.01.24
Проблемы с таблицами Paradox


6-75635
Dmitry V. Averuanov
2001-11-02 15:42
2002.01.24
Мучительный вопрос:


1-75560
Starkom
2001-12-22 13:45
2002.01.24
Starkom





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