| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как применить? [D3, Win95/98]

Riko ©   (2002-04-29 14:58:00) 

Раскопал тут функцию, которая определяет размер файла, а как применить не знаю. Пожалуйста, помогите. Нужно, чтобы рамер файла отображался в 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;

---

gek   (2002-04-29 15:04:00) [1]

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

---

Song   (2002-04-29 15:03:00) [2]

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

---

Наверх