[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]

!!!ТУТ!!!