VPF::Чё надо от меня Delphi? - Форум программистов

Stupid

Дата 30.6.2002, 12:53 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

При компиляции появляется ошибка:
Return value of function "TForm1.ExecuteFile" might be undefined.

Код

function TForm1.ExecuteFile(const FileName, Params, DefaultDir: string;
  ShowCmd: Integer): THandle;
var
 fn:String;
 zFileName, zParams, zDir: array[0..79] of Char;
begin
 fn:='Не удается найти файл "'+PChar(Edit1.Text)+'" (или один из его компонентов).'#13+
     'Проверьте правильность указания имени файла и пути, а также наличие всех'#13+
     'необходимых библиотек.';
 if ShellExecute(Application.MainForm.Handle,nil,
  StrPCopy(zFileName, FileName), StrPCopy(zParams, Params),
 StrPCopy(zDir, DefaultDir), ShowCmd) < 32 then
 Application.MessageBox(PChar(fn),'Заголовок окна', MB_OK);
end;

Vit

Дата 30.6.2002, 16:15 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207

Ну допустим это не ошибка, а только предупреждение. Ты объявил функцию, т.е. она должна возвратить результат, а где это возвращение результата в коде?

--------------------

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

Dexter

Дата 1.7.2002, 16:09 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Наверное лучше сделать процедуру, а не функцию.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »