Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.017 c