Как использовать команду Try?

[Stilet]

Почему бы так не сделать????

Дык понятно, но "if условие if выполняется". Здесь я подразумеваю что "выполняется" не всегда равно "условие".

[Domovoy]

Сообщение от Квэнди

Примеры:
try
im:=timage.create(self);
...
finaly
im.free;
end;

в этом случае по окончанию выполнения блока комманд выполнится комманда (блок комманд) идущая после ключевого слова Finaly. ОДнако если в блоке комманд между try и finaly произойдет исключение, то финальный блок не выполниться......

Если честно слышать такой бред от модератора как то странно.....
Блок finally выполняется в ЛЮБОМ СЛУЧАЕ!!!

[Квэнди]

Выполниться, но до возбуждения исключения, в отличие от двйного блока, что собственно и имелось ввиду.

[Ermiss]

С двумя Ифами не прокатит, поскольку если в первом случае условие не выполнилось, то до второго Ифа дела даже не дойдет, программа выдает ошибку.
Пробовал с Try ... except и Finally, тоже не идет....выдает ошибку!

Так тада попробую конкретно на примере объяснить:
Есть две таблицы. По заданному критерию в первой таблице нужно найти данные и удалить (но возможно что данные не будут найдены, они могли быть удалены ранее, вот тут то и нужно использовать Try дабы не вышла ошибка при выполнение команды Delete)... вот и далее если команда не находит данные, то она выводит мессагу о том, что данные были удалены ранее! Вот у меня
Это исходник на процедуру:

procedure TClient.GifOplClick(Sender: TObject);
begin
if table1money.Text='Оплачено' then application.MessageBox('Уже оплачено', 'Ошибка',mb_Ok+mb_IconError)
else begin
If application.MessageBox('Сохранить изменения?','Подтверждение',mb_YesN o+mb_IconQuestion)=idyes then begin
table1.Edit;
table1money.Text:='Оплачено';
table1.Post;
gifsav.Enabled:=false;
try
table2.Filtered:=true;
table2.Filter:='Vinkod='+''''+DBedi t24.Text+'''';
table2.Delete;
except showmessage('Данные были удалены ранее'); end;
end else abort; end;
end;

[Ermiss]

Ну тк чево, ни кто не знает в чем ошибка то?

Алгоритм вроде правильно написан, но он не работает так как надо.

[Квэнди]

на какую строку и какую ошибку выдает ?

[still_alive]

Что за ошибка-то? Времени компиляции или времени выполнения? Если второе, то убери Stop on Delphi Exceptions.

[Sibedir]

С двумя Ифами не прокатит, поскольку если в первом случае условие не выполнилось, то до второго Ифа дела даже не дойдет, программа выдает ошибку.
Пробовал с Try ... except и Finally, тоже не идет....выдает ошибку!

Ошибка при использовании try вылетает скорее всего по той причине, что у вас она возникает на этапе тестирования приложения (как правильно сказато не знаю), тоесть когда вы нажимаете в Делфи F9 и смотрите как работает программа. В таком случае поведение программы не идентично поведению при запуске не из Делфи.
Поясняю на примере. Создайте приложение с одной формой и кнопкой на ней. Для события нажатия на кнопку напишите:

var
  s: String;
  i: Integer;
begin
  s := 'qqq';
  try
    i := StrToInt (s);
    ShowMessage (IntToStr (i));
  except
    ShowMessage ('Не вышло');
  end;
end;

Нажмите F9 и проверте, что произойдет по нажатию на кнопку. А потом запустите откомпилированный EXE-файл из проводника и опять нажмите на кнопку. Увидите разницу.
Возможно, что в вашем случае происходит то же самое. Выскакивающее сообщение об ошибки сбивает вас с толку и вы думаете, что программа выполняется не так как вам надо.
ЗЫ: Заранее принашу свои извенения, если ответ был глупым, но чем черт не шутит.

2 still_alive

Что за ошибка-то? Времени компиляции или времени выполнения? Если второе, то убери Stop on Delphi Exceptions.

А это где?

[Ermiss]

Вот ошибка!

Строка "Table2.delete"

[Квэнди]

И ? а прочитать и перевести ошибку ?
ваш dataset пуст на момент попытки удаления.