Проблема с условием

[m0nr]

Кусок кода

var
  fullFileName, format : string;
begin
if format <> '.exe' then begin
     if format <> '.ico' then begin
       Application.MessageBox('Ошибка файла', 'EROR', MB_OK + MB_ICONSTOP);
     end
     else
     begin
       if format <> '.exe' then
         sEdit2.Text:=fullFileName;
       else
        sEdit1.Text:=fullFileName;

Дело в том, что при таком раскладе выводится только если .ICO
А если поменять

if format <> '.exe' then begin

и

if format <> '.ico' then begin

Местами, то будет наоборот выводить только с .exe

Какую-же я допустил ошибку в условии? Тыкните пальцем))

[m0nr]

 if (format <> '.exe') and (format <> '.ico') then
       Application.MessageBox('Ошибка', '213123', MB_OK + MB_ICONSTOP)
else
begin
   if format = '.exe' then
   sEdit1.Text:=fullFileName
else
   sEdit2.Text:=fullFileName;
end;

Вот так решил проблему, сори за тупость )

[northener]

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

 if (format <> '.exe') and (format <> '.ico') then
       Application.MessageBox('Ошибка', '213123', MB_OK + MB_ICONSTOP)
else
begin
   if format = '.exe' then
   sEdit1.Text:=fullFileName
else
   sEdit2.Text:=fullFileName;
end;

Вот так решил проблему, сори за тупость )

Второе ИЛИ (else) не нужно раз действие в обоих случаях одинаковое. Значит можно написать так:

if (format <> '.exe') and (format <> '.ico') then
       Application.MessageBox('Ошибка', '213123', MB_OK + MB_ICONSTOP)
else sEdit1.Text:=fullFileName

[come-on]

раз действие в обоих случаях одинаковое

так разное оно ))
а вот так красивше
if format = '.exe' then
sEdit1.Text:=fullFileName
else if format = '.ico' then
sEdit2.Text:=fullFileName
else
Application.MessageBox('Ошибка', '213123', MB_OK + MB_ICONSTOP)

[min@y™]

имха, ветвление по значениям строк - это говнокод. Уверен, что задачу можно переформулировать с оптимизацией и отказаться от таких вещей.
максимум, что я себе позволяю - это проверка на наличие/отсутствие данных в строке (x = '' или x <> '').

Автор, для чего ты на практике применяешь этот кусок кода с условием?

[northener]

Сообщение от come-on

так разное оно ))

Вот чёрт, действительно разное
Был невнимателен. (((