Форум: "Система";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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()




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




Наверх





Память: 0.71 MB
Время: 0.02 c
4-75710           manumba               2001-09-24 21:50  2002.01.24  
SetWindowsHookEx (WH_Keyboard....) - срабатывает два раза(вместо одного)....


7-75689           AKV                   2001-10-03 15:34  2002.01.24  
Виртуальный принтер?


3-75485           Dick Gonsales         2001-12-14 05:47  2002.01.24  
Хранение временных данных


1-75562           vsu                   2002-01-05 15:00  2002.01.24  
Прокрутка в RichEdit


1-75580           Анатолий              2002-01-02 04:30  2002.01.24  
Формулы в тексте