Здравствуйте, проблема вот какая имеется форма, на которой находятся 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-ами.
Не могу никак придумать, как организовать выборку из текстового файла, если можно то приведите примеры кода.