| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Нужна помощь! [D7, XP]

Ol4ik ©   (2007-05-18 14:02:00) 

Как здесь сделать так, чтобы в 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.

---

fd979   (2007-05-18 15:38:00) [1]

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


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

---

Ol4ik   (2007-05-18 15:29:00) [2]

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

---

clickmaker   (2007-05-18 15:24:00) [3]

> DBLookUpComboBox

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

---

Ol4ik   (2007-05-18 15:15:00) [4]

А если это DBLookUpComboBox, то вместо итемс че будет?

---

FIL-23   (2007-05-18 14:44:00) [5]

> Ol4ik   (18.05.07 14:36) [6]
>
> Например?


NewFile:='c:\tester32\'+combobox1.items[combobox1.Itemindex]+'\Test.cfg'

---

Ol4ik   (2007-05-18 14:36:00) [6]

Например?
1 комбо называется spec, 2й - semestr

---

clickmaker   (2007-05-18 14:32:00) [7]

через + и \

---

Ol4ik   (2007-05-18 14:28:00) [8]

А как это правильно прописать в NewFile?

---

clickmaker   (2007-05-18 14:21:00) [9]

ну тем проще. тогда взять их оттуда, из Items

---

Ol4ik   (2007-05-18 14:19:00) [10]

они там есть. Берутся из базы данных

---

clickmaker   (2007-05-18 14:13:00) [11]

ну для начала поместить их в комбобокс...

---

Наверх