[es] - Zaokruživanje broja decimala i Windows Beep Zvuk

maximus_1
Max Maximus

Član broj: 46848
Poruke: 277
*.tel.net.ba.

Profil

Zaokruživanje broja decimala i Windows Beep Zvuk

^{14.09.2005. u 13:22 - pre 226 meseci}

1.
Napisao sam funkciju za izračunavanje veličine datoteke:

Code:

function GetFileSize(File_Name: String): String;
var
  x: File of Byte;
  Size: String;
const
  KB          = ' KB';
  MB          = ' MB';
begin
try
  AssignFile(x, File_Name);
  Reset(x);

  If FileSize(x) >= 1048576 Then
    Size    := FloatToStr(FileSize(x) / 1048576) + MB
  else
    Size    := FloatToStr(FileSize(x) / 1024) + KB;

  Result  := Size;
finally
  CloseFile(x);
end;
end;

Problem je u tome što mi funkcija vraća rezultat na više od 2 decimale. Kako broj zaokružiti na dvije decimale?

2.
Kada pri unošenju podataka u neki editbox želim potvrditi pritiskom na ENTER ono što sam unio, dodam kod:

Code:

  if key = #13 then
  begin
    **URADIO ONO ŠTO ŽELIM**
  end;

Problem je u tome što dobijem i beep (zvuk) od Windowsa. Kako ga izbjeći?

Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949

+10 Profil

Re: Zaokruživanje broja decimala i Windows Beep Zvuk

^{14.09.2005. u 13:56 - pre 226 meseci}

1. Koristi RoundTo funkciju

2.

Code:
if key = #13 then
begin
**URADIO ONO ŠTO ŽELIM**
key := #0;
end;

Play Store

Odgovor na temu

maximus_1
Max Maximus

Član broj: 46848
Poruke: 277
*.tel.net.ba.

Profil

Re: Zaokruživanje broja decimala i Windows Beep Zvuk

^{14.09.2005. u 19:11 - pre 226 meseci}

Hvala Srki_82. Riješio sam oba problema.

Odgovor na temu