В чем ошибка? - Форум программистов

В чем ошибка?

Jeefo Просмотр профиля Вставить ник	4:04:2008, 17:43
Новенький Группа: Программист Сообщений: 20 Регистрация: 5:11:2007 Из: Москва Пользователь №: 13 541 Репутация: 0	Код 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 нужны какие то параметры?
	Сообщение #1

Ответов (1 - 1)

sax_ol Просмотр профиля Вставить ник	5:04:2008, 09:10
============== Группа: Модеры Сообщений: 1 740 Регистрация: 11:01:2007 Пользователь №: 8 750 Специализация: specialist Репутация: 27	Цитата(Jeefo @ 4:04:2008 - 19:43) В чем ошибка? В днк. А в приведенном коде нет.
	Сообщение #2