Версия для печати темы

Автор: Jeefo 4:04:2008, 17:43

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;

на 5 строчку компилятор ругается, выдает "No enough actual parameters". Если убрать"else Exit", то все нормально. В справке прочитал, что такое сообщение выдается, когда у функции неправильно указаны параметры. Но что не так у меня, разве Exit нужны какие то параметры?

Автор: sax_ol 5:04:2008, 09:10

В днк. А в приведенном коде нет.