В чем ошибка?

← →
Cerg (2011-05-06 07:35) [0]

вот я пытаюсь проверить файл на существование, но все наоборот - если он существует на само деле - выскакивает ошибка, а если его нет, то ничего не происходит... В чем дело? ((

procedure TForm1.ListBox1DblClick(Sender: TObject);
var
Handle : thandle;
begin
//fileEdit.text:=ListBox2.Items.Strings[Integer(ListBox1.Items.Objects[ListBox1.It emIndex])];
if FileExists("""+FormOptions.EditOpenP.Text+""") = true then
begin
ShellExecute(0,PChar("open"),
PChar("""+FormOptions.EditOpenP.Text+"""),
PChar("""+ListBox2.Items.Strings[Integer(ListBox1.Items.Objects[ListBox1.ItemIndex])]+"""),
nil,
SW_NORMAL);
end;
if FileExists("""+FormOptions.EditOpenP.Text+""") = False then
ShowMessage("Ôàéë íå ñóùåñòâóåò");

end;

← →
OW © (2011-05-06 08:19) [1]

вместо if FileExists() = true
достаточно if FileExists() then

← →
OW © (2011-05-06 08:20) [2]

> if FileExists("""+FormOptions.EditOpenP.Text+""") = False

соответственно if not(FileExists()) then

← →
_CuBiC_ (2011-05-06 08:26) [3]

Я так тоже делаю - все равно не срабатывает ((

← →
OW © (2011-05-06 08:26) [4]

"""+FormOptions.EditOpenP.Text+""" - что за конструкция? зачем двойные?

ну а так - все верно, значит не существует
ShowMessage("""+FormOptions.EditOpenP.Text+""") - что показывает?
и что, такой файл в реале есть?

← →
OW © (2011-05-06 08:28) [5]

> _CuBiC_ (06.05.11 08:26) [3]
> Я так тоже делаю - все равно не срабатывает ((

так это я не по теме еще выступил
по теме в 4 :)

← →
_CuBiC_ (2011-05-06 08:32) [6]

> ShowMessage("""+FormOptions.EditOpenP.Text+""") - что показывает?
>
> и что, такой файл в реале есть?

Да, я в ListBox загружаю файлы определенного расширения (например *.txt)..
По двойному щелчку произвожу проверку на существование (вдруг юзер во время выполнения проги удалил его).

← →
OW © (2011-05-06 08:45) [7]

сдается что дело в кавычках
ты кавычки отрезаешь, и потом только в ListBox показываешь?
для чего двойными кавычками обрамляешь при проверке на существование?

← →
_CuBiC_ (2011-05-06 08:50) [8]

нет кавычки я ставлю только при проверке, на случай, если имя файла на русском я зыке и с пробелами..

← →
_CuBiC_ (2011-05-06 08:53) [9]

Все, спасибо, OW, дело действительно в кавычках))

ShellExecute функция и если такого файла нет сама возвратит ERROR_FILE_NOT_FOUND. Кроме того есть еще куча причин:
http://msdn.microsoft.com/en-us/library/bb762153(VS.85).aspx

В чем ошибка? Найти похожие ветки