Показать сообщение отдельно
  #1  
Старый 28.04.2010, 23:37
Faraon Faraon вне форума
Прохожий
 
Регистрация: 28.04.2010
Сообщения: 4
Репутация: 10
Печаль Помогите с Delphi!

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