Как вызвать функцию?

[blackstersl]

Привет, вопрос очень тупой НО: вот нашёл функцию для узнавания размера файлов, а как её вызвать, например так что б label показывала результат?Спасибо.

function GetNormalSize(Size: Int64): string; // в этой функции идет преобразования
var // в b, kb, mb, gb
  kb, Mb, Gb: Real;
begin
  Result := IntToStr(Size) + ' b';
  kb := Size / 1024;
  kb := Trunc(kb * 10) / 10;
  if kb < 0.7 then
    Exit;
  Result := FloatToStr(kb) + ' kb';
  Mb := kb / 1024;
  Mb := Trunc(Mb * 10) / 10;
  if Mb < 0.7 then
    Exit;
  Result := FloatToStr(Mb) + ' Mb';
  Gb := Mb / 1024;
  Gb := Trunc(Gb * 10) / 10;
  if Gb < 0.7 then
    Exit;
  Result := FloatToStr(Gb) + ' Gb';
end;

[Disel]

Вот так должно работать

Label1.Caption:=GetNormalSize(Size);

[blackstersl]

что то не работает -(

[Alter]

Как на счёт этого

function SizeToStr(const i64Size: Int64):string;
const
   i64GB = 1024 * 1024 * 1024;
   i64MB = 1024 * 1024;
   i64KB = 1024;
begin
 if i64Size div i64GB > 0 then
   Result := Format('%.2f Гб', [i64Size / i64GB])
 else
 if i64Size div i64MB > 0 then
   Result := Format('%.2f Мб', [i64Size / i64MB])
  else
 if i64Size div i64KB > 0 then
   Result := Format('%.2f Кб', [i64Size / i64KB])
  else
   Result := IntToStr(i64Size) + ' Байт';
end;

[blackstersl]

Ладно, а как вызвать?Как по нажатию мышкой на item в listbox-e показывался результат на label?

[Terran]

Procedure TForm1.ListBox1Click(Sender: TObject);
Begin
Label1.Caption:=SizeToStr(6400);
End;

[blackstersl]

Всё время показывает 6,14 кб.

[Terran]

Сообщение от blackstersl

Всё время показывает 6,14 кб.

Число 6400 я написал исключительно для примера. Вы вместо числа подставляйте значения и будет другой результат.

[blackstersl]

чёт вообще не то! ладно, может гдет исходник найду...

[Terran]

Что-то я не совсем понял, что вам именно нужно. Предположим, что у вас в ListBox прописаны пути к файлам, тогда при нажатии на итем у вас будет появляться размер того файла на который вы нажали.
Возьмите код с поста №4 + вот этот код:

Function GetFileSize(Const FileName: String):longint;
Var
SearchRec:TSearchRec;
Begin
If FindFirst(ExpandFileName(FileName), faAnyFile,SearchRec)=0 Then
Result:=SearchRec.Size
Else
Result:=-1;
FindClose(SearchRec);
End;
Procedure TForm1.ListBox1Click(Sender: TObject);
Begin
Label1.Caption:=SizeToStr(GetFileSize(ListBox1.Items[ListBox1.ItemIndex]));
End;

И всё будет работать.