[koroleva25]

Подскажите кто-нибудь, как исправить такую ошибку в коде?
[DCC Error] Unit1.pas(464): E2029 ')' expected but 'THEN' found

[Bargest]

А кусочек кода выложить прямо тут никак? Качать архивы и, возможно, переводить проект на другую версию делфы как-то не очень хочется.

[M.A.D.M.A.N.]

Скобку забыл.

[koroleva25]

Да, конечно.

Код:

procedure TForm1.Button4Click(Sender: TObject); //Проводим экспертизу
var
s:string;
begin
s:= Edit13.text + Edit14.text + Edit15.text + Edit16.text + Edit17.text + Edit18.text;
if s = '111111' then Edit21.text:= 'объект не опознан!';
if s = '000000' then Edit21.text:= 'объект не опознан!';
if s = Edit22.Text then Edit21.text:= Edit10.Text else
if s = Edit23.Text then Edit21.text:= Edit11.Text else
if s = Edit24.Text then Edit21.text:= Edit12.Text else
begin
   if max1 = v1[1] then Edit21.text:= Edit10.Text else
   begin
   //Тут надо брать числа по модулю !!!!!!!!!!!!!!!!!!!!!!!!!!
     if (abs(v1[1]) + abs(v1[2]) > (abs(v1[1]) + abs(v1[3]) then
     Edit21.text:= Edit12.Text else
     if ((v1[1] + v1[2])) < ((v1[1] + v1[3])) then
     Edit21.text:= Edit11.Text
   end;

   if max1 = v1[2] then Edit21.text:= Edit11.Text else
   if max1 = v1[3] then Edit21.text:= Edit12.Text else
end;

А кто, где какую скобку забыл, я не поняла

[~TB~]

Код:

if (abs(v1[1]) + abs(v1[2]) > (abs(v1[1]) + abs(v1[3])!!!ТУТ!!! then

[koroleva25]

!!!ТУТ!!!

[lmikle]

Указанно место, где забыта скобка. Я бы вообще в целях безопасности переписал бы так:

Код:

if ( (abs(v1[1]) + abs(v1[2])) > (abs(v1[1]) + abs(v1[3])) ) then

[koroleva25]

Я бы вообще в целях безопасности переписал бы так:

Дело в том, что я и так тоже пробовала - не помогает! Та же ошибка!
Не верите, можете проверить.

[poli-smen]

Сообщение от koroleva25

Дело в том, что я и так тоже пробовала - не помогает! Та же ошибка!
Не верите, можете проверить.

Проверил:

И так работает:

Код:

if (abs(v1[1]) + abs(v1[2])) > (abs(v1[1]) + abs(v1[3])) then

И так работает:

Код:

if ( (abs(v1[1]) + abs(v1[2])) > (abs(v1[1]) + abs(v1[3])) ) then

[koroleva25]

Извините, пожалуйста, такую глупую ошибку не заметила - третью скобку в конце не поставила. Теперь можно сказать, что вопрос закрыт.
Всем огромное спасибо!!!!!!!!!!!!!!!!!!

[Gakuro]

if (abs(v1[1]) + abs(v1[2]) > (abs(v1[1]) + abs(v1[3]) then

Выражение сравнения первично по отношению к сложению (или вычитанию)!
Будь повнимательней:
if (x1+x2)>(x3+x4) then а у тебя получилось: if (x1+x2>(x3+x4) then !!!

А вообще тебе-же компилятор написал: Then, значит что-то с then не в порядке.. Это так, на будущее..

[koroleva25]

Выражение сравнения первично по отношению к сложению

Спасибо! У меня как раз маленький багаж знаний по приоритетам. Буду подкапливать!

[YVitaliy]

Сообщение от Gakuro

if (abs(v1[1]) + abs(v1[2]) > (abs(v1[1]) + abs(v1[3]) then

Выражение сравнения первично по отношению к сложению (или вычитанию)!
Будь повнимательней:
if (x1+x2)>(x3+x4) then а у тебя получилось: if (x1+x2>(x3+x4) then !!!

А вообще тебе-же компилятор написал: Then, значит что-то с then не в порядке.. Это так, на будущее..

Да нет же Просто операнд сравнения возвращает булевское значение (true/false), а сложение/вычитание - числовое. А в сообщении об ошибке сразу же и пишет:

')' expected

- "скобка" ожидается... Причем сразу и видно, что закрывающая