![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Здравствуйте, проблема вот какая имеется форма, на которой находятся 3-и ComboBox-а, один ListBox и кнопка «Сохранить»
При запуске формы активен только ComboBox1 после того как будет выбрано одно из значений (кол-во значений 2), активируется ComboBox2 в нем доступно, если выбран 0 то 4 пункта, если 1 то 6, после выбора строки ComboBox2 активируется ComboBox3 в него подгружаются строки из текстового файла, которые тоже зависят от выбора в ComboBox1 и 2 (baz_PR.rtt). В зависимости от выбранных в ComboBox-ах строк в ListBox грузятся данные из текстового файла (baz_PO.rtt) Теперь, сама суть: Кнопку сохранить я не долго думая прописал так: Код:
procedure TForm1.Button4Click(Sender: TObject); var AFile: TextFile; C, i, z,v1,v2,v3 : Integer; t:string; begin AssignFile(AFile,dir+'BAZA\baz_PO.rtt'); Rewrite(AFile); begin z:=0; C:= ListBox1.Items.Count; for i := 1 to C do begin t:=ListBox1.Items.Strings[z]; WriteLn(AFile, '[',t,']'); v1:=ComboBox1.ItemIndex; WriteLn(AFile, 'tip =', v1); v2:=ComboBox2.ItemIndex; WriteLn(AFile, 'vid =', v2); v3:=ComboBox2.ItemIndex; WriteLn(AFile, 'pro =', v3); z:=z+1; end; CloseFile(AFile); end; end; И теперь возникла проблема с загрузкой данных из файлов по категориям указанным ComboBox-ами. Не могу никак придумать, как организовать выборку из текстового файла, если можно то приведите примеры кода. Последний раз редактировалось Faraon, 29.04.2010 в 20:46. |