Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.11.14;
Скачать: CL | DM;

Вниз

Как записать путь к файлу в БД, используя OpenDialog?   Найти похожие ветки 

 
Zif ©   (2004-10-15 23:16) [0]

Мастера! Подскажите как записать путь к файлу (C:\Программы\1.exe) в БД, используя OpenDialog?
Привожу несколько примеров, все не рабочие... где ошибка?
Запись должна отобразиться в DBEdit.

procedure TFormMain.ButtonClick(Sender: TObject);
begin
 if OpenDialog.Execute then
 DataModule1.ADODataSetUserLocation:=OpenDialog.FileName;
end;


procedure TFormMain.ButtonClick(Sender: TObject);
begin
 if OpenDialog.Execute then
 DataModule1.ADODataSetUserLocation:=LoadFromFile(OpenDialog.FileName);
end;


procedure TFormMain.ButtonClick(Sender: TObject);
begin
 if OpenDialog.Execute then
 DBEdit.Text:=OpenDialog.FileName;
end;


и сразу второй вопрос - как относительный путь записать (\Программы\1.exe)?


 
DrPass ©   (2004-10-16 01:44) [1]

Мда... сначала - читать теорию. А то получается живая иллюстрация к задаче "может ли обезьяна, прыгая задницей на клавиатуре, написать Windows" (без обид, ладно?)
Потом уже, когда будешь понимать, что пишешь, у тебя должно получиться что-то вроде
if OpenDialog.Execute then begin
DataModule1.ADODataSet.Edit;
DataModule1.ADODataSetUserLocation.AsString:=OpenDialog.FileName;
DataModule1.ADODataSet.Post;
end;


 
Zif ©   (2004-10-16 11:19) [2]

Большое спасибо


 
Zif ©   (2004-10-16 13:13) [3]

и еще 2 вопроса:
1. как записать относительный путь (\Программы\1.exe)?
2. как запустить этот файл?
я новичок


 
sniknik ©   (2004-10-16 13:27) [4]

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

> 2. как запустить этот файл?
WinExec самое простое

> 1. как записать относительный путь (\Программы\1.exe)?
сравнить полученый с путем программы и изменить, записывать после.



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

Текущий архив: 2004.11.14;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.028 c
1-1098887850
Lexx3D
2004-10-27 18:37
2004.11.14
Re: Смена языков программы...


1-1099384580
Роман
2004-11-02 11:36
2004.11.14
Сохранение данных


1-1099061901
ser_ega
2004-10-29 18:58
2004.11.14
Разрешение экрана и моя прога


14-1098809764
Piter
2004-10-26 20:56
2004.11.14
Как связаться с администрацией?


14-1098339536
Гость
2004-10-21 10:18
2004.11.14
1C -8.0 против Delphi+FIBPlus+FB1.5