Missing operator or semicolon

[impulsgraw]

Здравствуйте!
Скажите пожалуйста, почему у меня delphi ругается на вот этот кусок кода? Причём в том месте, где у меня первый раз написана функция random

if(aRegExpr.Match[1]='random')then begin
if((aRegExpr.Match[2]<>'NIL')and(strtoint(aRegExpr.Match[2])<>0)and(aRegExpr.Match[3]<>'NIL')and(strtoint(aRegExpr.Match[3])<>0))then begin
f1 := {вот здесь}random(strtofloat(aRegExpr.Match[2]))+(strtofloat(aRegExpr.Match[3])-strtofloat(aRegExpr.Match[2])); 
end else if((aRegExpr.Match[2]<>'NIL')and(strtoint(aRegExpr.Match[2])<>0))then begin
f1 := random()+strtofloat(aRegExpr.Match[2]);
end else begin
f1 := random();
end;
end;

Вот такой вот ошибкой: Missing operator or semicolon .
Никак не могу понять, где в моей программе изъян?
Этот кусок кода находится в позиции 100023 строке. Может он бредит из за того, что у меня очень много кода?

[veniside]

я бы сказал, что проблемы с f1, но не видя, как оно объявлено, гадать можно долго.

[QunneD]

Придерживаться нормам синтаксиса не учили? Самому не впадлу читать подобную "ахинею"?

Missing operator or semicolon

Пропущен оператор, или точка с запятой (";").

[Аватар]

Аргумент у Random (если есть) типа Integer должен быть. С этого начать следует. И подсмотреть в любом дельфийском юните примеры оформления кода

[hon]

Ответ на данный вопрос не будет дан или будет дан очень поздно, т.к. код плохо оформлен. Вот красиво оформленный код:

if(aRegExpr.Match[1]='random') then
   begin
   if((aRegExpr.Match[2]<>'NIL') and (strtoint(aRegExpr.Match[2])<>0) and (aRegExpr.Match[3]<>'NIL') and (strtoint(aRegExpr.Match[3])<>0))then
      begin
      f1 := {вот здесь}random(strtofloat(aRegExpr.Match[2]))+(strtofloat(aRegExpr.Match[3])-strtofloat(aRegExpr.Match[2])); 
   end else
       if((aRegExpr.Match[2]<>'NIL')and(strtoint(aRegExpr.Match[2])<>0)) then
       f1 := random()+strtofloat(aRegExpr.Match[2]);
       else begin
       f1 := random();
      end;
   end;

И что этот код должен делать?

[QunneD]

Вот, другое дело, теперь более менее приятно смотреть.

Ну, во-первых:

Random([Range: Integer])

Соответственно, если не задать значение, то появиться ошибка.

Во-вторых:

Тип Double/Float/Extended/Real несовместим с типом Int из-за запятой, соответственно всё это дело надо перевести в тип Int предварительно округлив значение до целого числа с помощью функции round(X: Real);

В третьих:

Без инициализации процедуры Randomize, функция Random бессполезна.

 if((aRegExpr.Match[2]<>'NIL')and(strtoint(aRegExpr.Match[2])<>0)) then
       f1 := random()+strtofloat(aRegExpr.Match[2]);
       else begin

Где оператор end ?!

З.Ы.: Встроенный дебаггер для чего? Используем F7, F8 - выявляем где ошибочки.

[impulsgraw]

ээ, конечно спасибо за критику!
Но есть несколько НО:

Придерживаться нормам синтаксиса не учили? Самому не впадлу читать подобную "ахинею"?

Цитата:
Missing operator or semicolon
Пропущен оператор, или точка с запятой (";").

Это я прекрасно понимаю! Я никак немогу понять, где в коде есть эта ошибка?

Вот, другое дело, теперь более менее приятно смотреть.

Ну, во-первых:

Random([Range: Integer])

Соответственно, если не задать значение, то появиться ошибка.

Во-вторых:

Тип Double/Float/Extended/Real несовместим с типом Int из-за запятой, соответственно всё это дело надо перевести в тип Int предварительно округлив значение до целого числа с помощью функции round(X: Real);

В третьих:

Без инициализации процедуры Randomize, функция Random бессполезна.

Во-первых и во-вторых:
Если бы была ошибка по этому поводу, то она была бы по несовместимости типов Extended и Integer.
Я не дурак и про то, что десятичная дробь отлична от целого числа, я знаю, но в strtofloat я ошибся.
Да, кстати, функция random существует в 2 видах: с аргументом типа integer, возвращающая значение integer, и вообще без аргументов, возвращающая значение типа extended.

В третьих:

Не правда!
Функция Random работает и без Randomize, но хуже. Randomize предаёт рандому более "разбросанный" вид.

Где оператор end ?!

Вообще-то, если нету begin-а, то и end-а тоже не надо! Читайте документацию по pascal-ю.

З.Ы.: Встроенный дебаггер для чего? Используем F7, F8 - выявляем где ошибочки.

И как вы себе это представляете?? Даже если я и расставлю breakpoint-ы, то из за ошибок в коде программа не запустится!
Отладка может происходить только в процессе работы программы!

Ну вобщем, спасибо вам всем за всё, но проблема то была совсем явной: я создал тип

Type TFunctions = (random, round);

, тоесть когда я писал random, он думал, что это не функция, а константа из типа TFunctions.
Ошибку решил, убрав из типа константу random.

[QunneD]

Уважаемый, мы не экстрасенсы.

Вообще-то, если нету begin-а, то и end-а тоже не надо!!! Читайте документацию по pascal-ю.

Операторы begin, end, облегчают компилятору выполнять его работу. И без использования данных операторов, более одной операции не выполнишь. И вообще, кому еще документацию надо читать? " ';' not allowed before 'ELSE' " - " ';' не разрешен перед 'ELSE' ".

Использовав три восклицательных знака, Вы только что нарушили правила форума, в курсе об этом?

Если бы была ошибка по этому поводу, то она была бы по несовместимости типов Extended и Integer.

Ошибки отображаются по мере их важности, соответственно первоначально отображаются наиболее важные элементы которые необходимо исправить, после исправления чего, появиться следующая ошибка.

Основная мысль в том что она обязательно появиться.

Поскольку вопрос исчерпан, до свидания.