Uzimanje velicine fajla (file size).Imam malih poteskoca sa sledecim kodom.
Na formu stavite button1, edit1 i edit2.
Code:
procedure TForm1.Button1Click(Sender: TObject);
var
e:extended;
begin
e:=strtofloat(edit1.text);
e:=e/1024;
if e>1048576 then // GB
begin
e:=e/1024;
edit2.Text:=floattostr(e)+' Gb';
end else
if e>1024 then //MB
begin
e:=e/1024;
edit2.Text:=floattostr(e)+' Mb';
end else
begin
e:=e;
edit2.Text:=floattostr(e)+' Kb'; //KB
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
e:extended;
begin
e:=strtofloat(edit1.text);
e:=e/1024;
if e>1048576 then // GB
begin
e:=e/1024;
edit2.Text:=floattostr(e)+' Gb';
end else
if e>1024 then //MB
begin
e:=e/1024;
edit2.Text:=floattostr(e)+' Mb';
end else
begin
e:=e;
edit2.Text:=floattostr(e)+' Kb'; //KB
end;
end;
Kad se to dugme pritisne, vrednost data u bajtima kod edit1.text ce biti 'konvertovana' u odgovarajucu vrednost u Gb, MB odnosno u Kb i ispisana u edit2.
Ali, kako napraviti da broj bude ceo a ne na primer 97.65625 Kb ako u edit1 unesemo 100000 ???
