Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Мастера, подкажите пожалуйста [D7]


Страницы:   1 2

bioss ©   (2008-11-25 11:00:00) 

Все-таки как в Делфи 7 описываются функции?
После написания классического кода типа
function IsFloat(ch : char; st: string) : Boolean;
begin
if (ch >= '0') and (ch <= '9') // цифры
or (ch = #13) // клавиша <Enter>
or (ch = #8) // клавиша <Backspace>
then
begin
IsFloat := True; // символ верный
Exit; // выход из функции
end;

Выдается сообщение :

statemen expected, but 'FUNCTION' found

бьюсь три часа безрезультатно(


Amoeba   (2008-11-25 11:04:00) [21]

Переписать так:

function IsFloat(ch : char; st: string) : Boolean;
begin
 if (ch >= '0') and (ch <= '9') // цифры
 or (ch = #13) // клавиша <Enter>
 or (ch = #8) // клавиша <Backspace>
 then
   Result := True; // символ верный
end;


и читать букварь


Поросенок Винни-Пух   (2008-11-25 11:03:00) [22]

ищи ошибку по тексту выше своей IsFloat


Palladin   (2008-11-25 11:03:00) [23]

код нормально форматируй и все будет хорошо... а пока можешь посчитать сколько у тебя begin, сколько end и удивится


Страницы:   1 2

Наверх

Титульная страница Поиск, карта сайта Написать письмо