Здраствуйте!
Недавно стал изучать delphi, хочу профессионально заняться етим делом, так вот у меня в программе выдается ошибка:

Код

[Error] graf.dpr(12): Identifier expected but 'BEGIN' found

Не могли бы вы мне рассказать о ней побольше (на что влияет, частые ошибки и так далее);
и еще, почему у меня не работает код:

Код

try except on

напимер, когда ошибка деления на 0 и я ввожу:

Код

try   z:=h/0; except   on EZeroDivide do   begin      showmessage('Облом!');      exit;   end;

курсор останавливается на

Код

z:=h/0;

и сообщает ету ошибку (EZeroDivide);

помогите plz новичку.
Заранее благодарю!

Хм.... т.е. вы предлагаете тут запостить учебник по ObjectPascal?
Разберитесь с синтаксисом языка и ошибок компилятора типа 'что-то нужно, но этого тут нет' не будет.
По поводу блоков try:
Дело в том, что программа при запуске работает под управлением отладчика, соответственно  менно он получает и обрабатывает ошибки. Попробуйте запустить полученный exe-файл, там все будет нормально. Отключить и настроить отладчик можно в Tools/Debugger Options.
ЗЫж кстати, в приведенном вами примере отсувствует один end и все равно код z:=h/0 будет исключен компилятором, т.к. значения z и h больше нигде не используються и никаких ошибок не возникнет.

Цитата(rhf @ 17.9.2002, 13:17)

Хм.... т.е. вы предлагаете тут запостить учебник по ObjectPascal? Разберитесь с синтаксисом языка и ошибок компилятора типа 'что-то нужно, но этого тут нет' не будет. По поводу блоков try: Дело в том, что программа при запуске работает под управлением отладчика, соответственно  менно он получает и обрабатывает ошибки. Попробуйте запустить полученный exe-файл, там все будет нормально. Отключить и настроить отладчик можно в Tools/Debugger Options. ЗЫж кстати, в приведенном вами примере отсувствует один end и все равно код z:=h/0 будет исключен компилятором, т.к. значения z и h больше нигде не используються и никаких ошибок не возникнет.

благодарю, прада только что разобрался в этом... действительно кой-чего не было
особая благодарность за контроль ошибок, теперь все ясно, насчет написанного кода - это я просто к примеру написал, если бы меня кто не понял - у меня такого нет
P.S. А можно будет мне задавать здесь вопросы (наверное, тупые для вас) в дальнейшем, а то изучать программирования одному тяжелее, чем с чьей либо помощью? (Я имею ввиду, не надоем ли я или не "запарю"?)

Код

try   z:=h/0; except   on EZeroDivide do   begin      showmessage('Облом!');      exit;   end;

Не хватает End в конце:

Код

try   z:=h/0; except   on EZeroDivide do   begin      showmessage('Облом!');      exit;   end;//for on EZeroDivide do End;//for except

 

Цитата

z:=h/0;

Кроме того, компилляторы сейчас черезчур умные и такую строку могут еще на этапе компилляции распознать как заведомо ошибочную...

Цитата(Vit @ 17.9.2002, 16:28)

Код try   z:=h/0; except   on EZeroDivide do   begin      showmessage('Облом!');      exit;   end; Не хватает End в конце: Код try   z:=h/0; except   on EZeroDivide do   begin      showmessage('Облом!');      exit;   end;//for on EZeroDivide do End;//for except   Цитата z:=h/0; Кроме того, компилляторы сейчас черезчур умные и такую строку могут еще на этапе компилляции распознать как заведомо ошибочную...

спасибо, конечно, но проблема не в том была... END не написал - спешил, а так я не про это говорил.
ммм, у меня новый вопрос: как можно из окна ввода (edit) присвоить какой-нить переменной целое выражение, а не только число.
Например:

Код

form1.edit1.text:='sin(x)';

теперь надо этот sin(x) извлечь и присвоить, например - f, то есть чтобы получилось так:

Код

f:=sin(x);

для дальнейшей операции с функцией?
Очень надо! Прошу ПОМОЧЬ! plz.
Заранее благодарю!

Уже задавали, посмотри в нашем FAQ - там точно есть, я клал

Цитата(Vit @ 17.9.2002, 18:06)

Уже задавали, посмотри в нашем FAQ - там точно есть, я клал

ммм, благодарствую, только где он - этот FAQ - я не нашел...

спасибо, я думал что он не в форуме

м-м-м это не совсем то - parser у меня есть...
мне надо не вычислить выражение, а присвоить переменной алгебраическое выражение: f:=sin(x);, а не f:=sin(1). (это для графиков функций). Так можно как-нибудь сделать?

тогда примерно так:

Код

Uses Math; procedure TForm1.Button1Click(Sender: TObject);  var f:function(X: Extended): Extended; begin  f:=log10;  caption:=floattostr(f(2)); end;

Здесь функция log10 присваевается переменной f

не, мне надо наоборот - чтобы с окна (edit1) присвоить переменной выражение. Типа:

Код

procedure TForm1.Button1Click(Sender: TObject); var f:function(X: Extended): Extended; begin f:=edit1.text; dx:=0.001; x:=dx; repeat caption:=caption+floattostr(f(x)); x:=x+dx; until x>=1; end;

-только так, ясное дело нельзя...

где edit.text - например, sin(x);
если не понятно, могу еще раз попробывать объяснить...
благодарю за помощь.

В откомпиллированном модуле имена функций не храняться, так что напрямую невозможно. Только через parsing - в каждом конкретном случае делаешь замену в строке (StringReplace) x на нужное значение и вычисляешь значение выражения, либо определяешь набор возможных функций (описываешь их напрямую в коде) и делаешь parsing без вычисления - но это весьма трудоёмкий путь.

Цитата(lamka @ 18.9.2002, 06:05)

м-м-м это не совсем то - parser у меня есть... мне надо не вычислить выражение, а присвоить переменной алгебраическое выражение: f:=sin(x);, а не f:=sin(1). (это для графиков функций). Так можно как-нибудь сделать?

И сюда добрался!
А кому надо сказать спасибо за Parser?  

Помойму т.к. функций не так уж моного (sin, cos, tan, etc) то можно обзавестись функцией выкавыривания числа из строки, а дальше дело за if'ами