Текущий архив: 2007.06.10;
Скачать: CL | DM;
Вниз
Нужна помощь! Найти похожие ветки
← →
Ol4ik (2007-05-18 14:02) [0]Как здесь сделать так, чтобы в NewFile:="c:\tester32\IS\7\ИБИЗИ\Test.cfg" имена папок IS,7,ИБИЗИ брались из ComboBox?
procedure TForm1.ListBoxDblClick(Sender: TObject);
var NewFile, OldFile: String;
begin
OldFile:="c:\tester32\Test.cfg";
NewFile:="c:\tester32\IS\7\ИБИЗИ\Test.cfg";
CopyFile(PChar(OldFile), PChar(NewFile), False);
ShowMessage(SysErrorMessage(GetLastError));
ShellExecute(Form1.Handle, nil,"c:\tester32\USER\", "", nil, SW_SHOW);
end;
end.
← →
clickmaker © (2007-05-18 14:13) [1]ну для начала поместить их в комбобокс...
← →
Ol4ik (2007-05-18 14:19) [2]они там есть. Берутся из базы данных
← →
clickmaker © (2007-05-18 14:21) [3]ну тем проще. тогда взять их оттуда, из Items
← →
Ol4ik (2007-05-18 14:28) [4]А как это правильно прописать в NewFile?
← →
clickmaker © (2007-05-18 14:32) [5]через + и \
← →
Ol4ik (2007-05-18 14:36) [6]Например?
1 комбо называется spec, 2й - semestr
← →
FIL-23 © (2007-05-18 14:44) [7]
> Ol4ik (18.05.07 14:36) [6]
>
> Например?NewFile:="c:\tester32\"+combobox1.items[combobox1.Itemindex]+"\Test.cfg"
← →
Ol4ik (2007-05-18 15:15) [8]А если это DBLookUpComboBox, то вместо итемс че будет?
← →
clickmaker © (2007-05-18 15:24) [9]
> DBLookUpComboBox
эта штуковина обычно без ДатаСета не живет. Вот оттуда и можно вытащить
← →
Ol4ik (2007-05-18 15:29) [10]А у меня это через ADOTable работает.
← →
fd979 © (2007-05-18 15:38) [11]
> Ol4ik (18.05.07 15:29) [10]
> А у меня это через ADOTable работает.
ну вот и флаг в руки. Что мешает использовать ADOTable?
Страницы: 1 вся ветка
Текущий архив: 2007.06.10;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.065 c
