Показать сообщение отдельно
  #5  
Старый 26.03.2013, 11:55
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Цитата:
Сообщение от cyborgg4655
Если я не выбираю файл и закрываю opendialog выскакиевает ошибка...
Нужно всю процедурню загрузки файла засунуть в блок бегенд
Код:
...
if OpenDialog1.Execute then 
begin
...
ExtractFileName(OpenDialog1.FileName);
...
end;

...
и не мучиться.

З.Ы. А то вижу что происходит только это
Код:
if opendialog1.Execute then asd:=Label5.Caption;
и всё.
Ответить с цитированием