Код
function TMainForm.RoundFileSize(Size: Real): String;
begin
Result := FloatToStr(Size) + ' б';
Size := Size / 1024;
if Size >= 1 then Result := FloatToStr(Size) + ' кб' else Exit;
Size := Size / 1024;
if Size >= 1 then Result := FloatToStr(Size) + ' мб';
end;
begin
Result := FloatToStr(Size) + ' б';
Size := Size / 1024;
if Size >= 1 then Result := FloatToStr(Size) + ' кб' else Exit;
Size := Size / 1024;
if Size >= 1 then Result := FloatToStr(Size) + ' мб';
end;
на 5 строчку компилятор ругается, выдает "No enough actual parameters". Если убрать"else Exit", то все нормально. В справке прочитал, что такое сообщение выдается, когда у функции неправильно указаны параметры. Но что не так у меня, разве Exit нужны какие то параметры?
