picture browser

[neotheone]

basit bir picture browser yaptım. status bar da seçili olan resmin FileSize'ını Kb cinsinden vermek istiyorum. bunu nasıl yapabilirim.

[fpezik]

Seçili resmin dosya adını filename olsun;

var SearchRec:TSearchRec;
....
if FindFirst(filename,faAnyFile,SearchRec)=0 then
Label1.Caption:=inttostr(SearchRec.Size);

[fpezik]

Seçili resmin dosya adını filename olsun;

var SearchRec:TSearchRec;
....
if FindFirst(filename,faAnyFile,SearchRec)=0 then
stb.SİmpleText:=inttostr((SearchRec.Size div 1024)+1)+' KB';