Показать сообщение отдельно
  #18  
Старый 12.03.2010, 09:53
Аватар для TOJluK
TOJluK TOJluK вне форума
Местный
 
Регистрация: 25.02.2009
Адрес: Минск
Сообщения: 551
Версия Delphi: 2007
Репутация: 110
По умолчанию

Тупанул немного, вот так будет более верно:
Код:
// проверяем отработал ли диалог и существует ли файл
if OpenPictureDialog1.Execute and FileExists(OpenPictureDialog1.FileName) then
 begin
 Table1.Edit; 
 DBImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
 Table1.Post;
 end
 else // если не отработал то делаем что- то
  showmessage('Была нажата кнопка отмена!');

1) Ну почитай help. Там же все написано.
Код:
var
s:string;
i:integer;
begin
i:=10;
s:=IntToStr(i);

Про ошибку- удали LCK файлы, скорее всего в них дело.
Ответить с цитированием