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

Вниз

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

← →
Riko   (2002-04-29 14:58) [0]

Раскопал тут функцию, которая определяет размер файла, а как применить не знаю. Пожалуйста, помогите. Нужно, чтобы рамер файла отображался в Label1.

Function GetFileSize(namefile : string) : Integer;
Var
InfoFile : TSearchRec;
AttrFile : Integer;
ErrorReturn : Integer;
Begin
AttrFile := $0000003F; {Any file}
ErrorReturn := FindFirst(namefile,AttrFile,InfoFile);
if ErrorReturn <> 0 Then Result := -1 {в случае, если файл не найден}
else Result := InfoFile.Size; {Размер файла в байтах}
FindClose(InfoFile);
End;

---

← →
Song   (2002-04-29 15:03) [1]

Label1.Caption:=IntToStr(GetFileSize("..."));

---

← →
gek   (2002-04-29 15:04) [2]

Label1.Caption:=inttostr(GetFileSize("c:\kuku.txt") div 1024)+ " кб.";

---

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

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

Наверх

Память: 0.44 MB
Время: 0.006 c