Скачать: CL | DM;

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

← →
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, дело действительно в кавычках))

---

← →
Dennis I. Komarov ©   (2011-05-06 09:58) [10]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: -0.99 c