Нужна помощь!

← →
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, то вместо итемс че будет?

> DBLookUpComboBox

эта штуковина обычно без ДатаСета не живет. Вот оттуда и можно вытащить

← →
Ol4ik (2007-05-18 15:29) [10]

А у меня это через ADOTable работает.

> Ol4ik (18.05.07 15:29) [10]
> А у меня это через ADOTable работает.

ну вот и флаг в руки. Что мешает использовать ADOTable?

Нужна помощь! Найти похожие ветки