Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Он существует или нет? [D7, XP]

Страницы: < 1 2 3 >
Der Nechk@ssoff © (2006-04-06 12:45:00)
Здраствуйте!Есть тхт файл,в папке с прогой,как сделать так чтобы при загрузке программы она проверяла есть ли файл или нет(если файла нет то-showmessage)
P.S.Файл смертельно не важен для проги.

Dmitrij_K (2006-04-06 14:43:00) [21]
Замени '\Registry.txt')на 'Registry.txt')
ExtractFilePath возвращает пить со слешем

Der Nechk@ssoff (2006-04-06 14:43:00) [22]

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

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

Джо (2006-04-06 14:40:00) [23]
> [30] Der Nechk@ssoff © (06.04.06 14:39)

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

Der Nechk@ssoff (2006-04-06 14:39:00) [24]
...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...
Корявый кусок,но это оно.

balepa (2006-04-06 14:33:00) [25]
Der Nechk@ssoff © (06.04.06 14:21) [27]
Приведе свой код ?

Der Nechk@ssoff (2006-04-06 14:23:00) [26]

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

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

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

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

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

Amoeba (2006-04-06 14:20:00) [28]
Лучше так:
if not FileExists(ExtractFilePath(Application.ExeName)+'\Registry.txt') then showmessage('Unregistered');

Сергей М. (2006-04-06 14:20:00) [29]

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

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

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

balepa (2006-04-06 14:18:00) [30]
А ты попробовать запустить боишся ?
if FileExists(ExtractFilePath(Application.ExeName)+' \Registry.txt')=false then
showmessage('Unregistered');
end;

Der Nechk@ssoff (2006-04-06 14:17:00) [31]

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

Der Nechk@ssoff (2006-04-06 14:07:00) [32]
procedure TForm1.Formcreate(Sender: TObject); if FileExists(ExtractFilePath(Application.ExeName)+'Registry. txt')=false then showmessage('Unregistered'); end;
вот так прокатит?

Сергей М. (2006-04-06 14:07:00) [33]

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

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

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

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

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

balepa (2006-04-06 14:00:00) [34]
Сначала два раза ткни по форме и вставь код:
procedure TForm1.FormCreate(Sender: TObject);
begin
if FileExists('C:\1.txt')=false then
showMessage('Файла нету');
end;

Der Nechk@ssoff (2006-04-06 13:55:00) [35]
Книги как раз про Делфи(Сунулся я один раз с примером из этой книги сюда,на форум,так...!)

balepa (2006-04-06 13:53:00) [36]

> 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:50:00) [37]

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

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

Сергей М. (2006-04-06 13:48:00) [38]

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

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

Der Nechk@ssoff (2006-04-06 13:46:00) [39]
Я юзаю Делфи всего3 месяца и многоооо чегоне знаю!
Помогите пж!

Сергей М. (2006-04-06 13:46:00) [40]

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

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

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

Страницы: < 1 2 3 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »