Zaokruživanje broja decimala i Windows Beep Zvuk
14.09.2005. u 13:22 · pre 256 meseci
#1
1.
Napisao sam funkciju za izračunavanje veličine datoteke:
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:
Problem je u tome što dobijem i beep (zvuk) od Windowsa. Kako ga izbjeći?
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;
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;
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?