Он существует или нет?

← →
Der Nechk@ssoff © (2006-04-06 12:45) [0]

Здраствуйте!Есть тхт файл,в папке с прогой,как сделать так чтобы при загрузке программы она проверяла есть ли файл или нет(если файла нет то-showmessage)
P.S.Файл смертельно не важен для проги.

← →
EvS © (2006-04-06 12:51) [1]

If FileExists(ExtractFilePath(Application.ExeName)+имя файла) then

← →
Der Nechk@ssoff © (2006-04-06 12:55) [2]

> EvS © (06.04.06 12:51) [1]

А какую юзать процедуру?([1]-Должно выполняться при запуске проги )

← →
ViktorZ © (2006-04-06 12:58) [3]

FormCreate

← →
Std (2006-04-06 12:58) [4]

Form.OnCreate

← →
Der Nechk@ssoff © (2006-04-06 13:02) [5]

А точнее...

← →
balepa © (2006-04-06 13:13) [6]

> Der Nechk@ssoff © (06.04.06 13:02) [5]
> А точнее...

ТИмяГлавнойФормыТвоейПроги.FormCreate(Sender: TObject);
begin
If FileExists(ExtractFilePath(Application.ExeName)+имя файла) then
Твои действия
end;

← →
Der Nechk@ssoff © (2006-04-06 13:17) [7]

procedure TForm1.Formcreate(Sender: TObject); if FileExists(ExtractFilePath(Application.ExeName)+Registry.txt) then form1.Caption:="ÌóëüòèÌåäè&#23 3;íûé Ðåäàêòîð" else showmessage("Unregistered"); end;
Вот что вышло,но лезут ошибки.

← →
Fay © (2006-04-06 13:23) [8]

> но лезут ошибки
"Обнаружен злобный ламер"? Такие?

← →
balepa © (2006-04-06 13:29) [9]

> Fay © (06.04.06 13:23) [8]
> > но лезут ошибки
> "Обнаружен злобный ламер"? Такие?

Это сообщение о том что "КривыеРукиНеУмныйГолова.dll" загружен удачно :))

← →
Der Nechk@ssoff © (2006-04-06 13:34) [10]

Спасибо за понимание и помощь!:(

> balepa © (06.04.06 13:13) [6]
ТИмяГлавнойФормыТвоейПроги.FormCreate(Sender: TObject);
begin-Если юзать бегин то:4 ошибки.Если не юзать то 1(Declaration expected but "if" found).
If FileExists(ExtractFilePath(Application.ExeName)+имя файла) then
Твои действия
end;

← →
balepa © (2006-04-06 13:36) [11]

Где "травку" покупал ? Оставь немного. :)

← →
Der Nechk@ssoff © (2006-04-06 13:39) [12]

> balepa © (06.04.06 13:36) [11]

Я вам пришлю.Чес слово!:)

← →
balepa © (2006-04-06 13:43) [13]

Казахстан, Екибастуз, 141200 - "до востребования" :)

← →
Der Nechk@ssoff © (2006-04-06 13:46) [14]

Я юзаю Делфи всего 3 месяца и многоооо чего не знаю!
Помогите пж!

← →
Сергей М. © (2006-04-06 13:46) [15]

> Если юзать ..то:4 ошибки.Если не юзать то 1

Ответ напрашивается сам собой - не юзай.

По принципу "из двух зол следует выбирать наименьшее".

← →
Сергей М. © (2006-04-06 13:48) [16]

> юзаю Делфи всего 3 месяца и многоооо чего не знаю

Паскаль-то знаешь ?
Может следует какую-нибудь "умную" книгу почитать перед тем как вслепую тыкаться ?

← →
Der Nechk@ssoff © (2006-04-06 13:50) [17]

> Сергей М. © (06.04.06 13:48) [16]

Книги есть и их я читаю.

← →
balepa © (2006-04-06 13:53) [18]

> Der Nechk@ssoff © (06.04.06 13:50) [17]
> > Сергей М. © (06.04.06 13:48) [16]
> Книги есть и их я читаю

Сергей М. © (06.04.06 13:48) [16] имел ввиду именно "умные книги" (по TP или Delphi), а не просто "книги" :)

← →
Der Nechk@ssoff © (2006-04-06 13:55) [19]

Книги как раз про Делфи(Сунулся я один раз с примером из этой книги сюда,на форум,так...!)

← →
balepa © (2006-04-06 14:00) [20]

Сначала два раза ткни по форме и вставь код:
procedure TForm1.FormCreate(Sender: TObject);
begin
if FileExists("C:\1.txt")=false then
showMessage("Файла нету");
end;

← →
Сергей М. © (2006-04-06 14:07) [21]

> Книги есть и их я читаю.

Ну слава богу)

А то я уж грешным делом ожидал услышать "Книги есть и их я ем") ..

Так вот в тех самых книгах желательно бы "есть" описание языка Паскаль (Делфи тут совершенно ни при чем), в котором как правило можно :

- увидеть и изучить формат использования IF-оператора;
- понять, что оператор "+" подразумевает данные одного и того же типа по обе стороны его использования.

← →
Der Nechk@ssoff © (2006-04-06 14:07) [22]

procedure TForm1.Formcreate(Sender: TObject); if FileExists(ExtractFilePath(Application.ExeName)+"Registry. txt")=false then showmessage("Unregistered"); end;
вот так прокатит?

← →
Der Nechk@ssoff © (2006-04-06 14:17) [23]

> - увидеть и изучить формат использования IF-оператора;
Читал я про IF([19])
Я удачно юзаю "IF" НО ЗДЕСЬ немогу исправить и все!Хоть в могилу:)

← →
balepa © (2006-04-06 14:18) [24]

А ты попробовать запустить боишся ?
if FileExists(ExtractFilePath(Application.ExeName)+"\Registry.txt")=false then
showmessage("Unregistered");
end;

← →
Сергей М. © (2006-04-06 14:20) [25]

> удачно юзаю "IF"

Где же "удачно"-то ? Если элементарную ошибку найти не можешь ?

if ... then
begin
end !!!!!!!!!
else..

← →
Amoeba © (2006-04-06 14:20) [26]

Лучше так:
if not FileExists(ExtractFilePath(Application.ExeName)+"\Registry.txt") then showmessage("Unregistered");

← →
Der Nechk@ssoff © (2006-04-06 14:21) [27]

> balepa © (06.04.06 14:18) [24]

Ошибка в if FileExists...(Declaration expected but "if" found)!

← →
Der Nechk@ssoff © (2006-04-06 14:23) [28]

> Сергей М. © (06.04.06 14:20) [25]

За последний час я отказался от else.

...uses unit2,unit3,unit4,unit5, Unit6, anck; {$R *.dfm} procedure TForm1.Formcreate(Sender: TObject); if FileExists(ExtractFilePath(Application.ExeName)+"\Registry.txt")=false then showmessage("Unregistered"); end; procedure TForm1.N2Click(Sender: TObject); begin...
Корявый кусок,но это оно.

> Признавайся, ты издеваешься?

Почему ты так решил?

← →
Dmitrij_K (2006-04-06 14:43) [33]

Замени "\Registry.txt") на "Registry.txt")
ExtractFilePath возвращает пить со слешем

> [32] Der Nechk@ssoff © (06.04.06 14:43)
> Почему ты так решил?

Потому, что в голове не укладывается, как человек за несколько часов не может выучить, что тело процедур/функций обрамляется блоком begin...end.

> Джо © (06.04.06 14:46) [34]

В посте [27] указан проблемный кусок кода с ошибкой (все остальное пашет) помогите его исправить а дальше посмотрим...

> Dmitrij_K (06.04.06 14:43) [33]

Зачем ты это сделал ???

> Dmitrij_K (06.04.06 14:43) [33]
> Замени "\Registry.txt") на "Registry.txt")
> ExtractFilePath возвращает пить со слешем

Кто такой слеш и почему ExtractFilePath возвращает с ним пить ? :)

> [35] Der Nechk@ssoff © (06.04.06 14:50)
> В посте [27] указан проблемный кусок кода с ошибкой (все
> остальное пашет) помогите его исправить а дальше посмотрим...

Переведите банковским переводом 100$, а дальше посмотрим.

В ObjectInspector на вкладке Events кликни два раза на событии OnCreate и появится заготовка:
procedure TForm1.FormCreate(Sender: TObject); begin !!! Здесь пиши IF end

Удалено модератором

Он существует или нет? Найти похожие ветки