Вопрос по ComboBox

[drofus]

Здравствуйте, вопрос в следующем, есть на форме ComboBox1 и ComboBox2 пытаюсь написать программу для учета автомашин. О программе в ComboBox1 - вписываются Марка авто а в ComboBox2 Модель. Хочу реализовать список такого вида например
ComboBox1 = BMW
ComboBox2 = |BMW1|1| где BMW1 это модель а |1| - это класс к которому она относится. В ComboBox1 я получу список через LoadFromFile а вот как быть со ComboBox2-м или ваши советы?

[drofus]

Выскакивает I/O error 104

procedure TForm1.ComboBox1Change(Sender: TObject);
var
  I  : Integer;
  F  : TextFile;
  Text: string;
  begin
 //FileText:= ExtractFilePath(Application.ExeName)+'Auto\'+ComboBox1.Text+'.txt';
  AssignFile(F, ExtractFilePath(Application.ExeName)+'Auto\'+ComboBox1.Text+'.txt');
   {$I-}
  Reset(f);
  {$I+}

  if IOResult <> 0 then
  begin
    MessageDlg('Ошибка файла! '+ 'FailName', mtError, [mbOk], 0);
     exit;
  end;
     while not Eof(F) do
       begin
        ReadLn(F, Text);
       StripOutParam(Text, param);
     for i := 0 to  ComboBox6.Items.Count-1  do  begin
       begin
        ComboBox6.Text:=param[0];
    end;
  end;
CloseFile(F);
end;
    end;

[Alex11223]

Используйте TStringList LoadFromFile или TFileStream для чтения файла.

И давайте элементам формы нормальные имена вместо ComboBox1, ComboBox2, ..., ComboBox42.

И форматируйте код нормально, а не как попало.

[min@y™]

не надо читать файл при каждом тыке на комбобокс.
покажи файл

[drofus]

Procedure StripOutParam(Text: String; VAR Param: Array of String);
Var
  I: Word;
Begin
  If Text = '' Then Exit;
  FillChar(Param, SizeOf(Param), 0);
  Delete(Text, 1, Pos('|', Text));

  If Text = '' Then Exit;
  If (Text[Length(Text)] <> '|') Then Text := Text + '|';

  I := 0;
  While (Pos('|', Text) > 0) Do
  Begin
    Param[I] := Copy(Text, 1, Pos('|', Text)-1);
    Inc(I);
    Delete(Text, 1, Pos('|', Text));
    If (I >= 100) Then Break;
  End;

End;

procedure TForm1.LoadFiles; 
begin
if FileExists(ExtractFilePath(Application.ExeName)+'\Auto\WP_Auto.txt') then
   ComboBox1.Items.LoadFromFile('WP_Auto.txt');
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
  LoadFiles;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
var
  I  : Integer;
  F  : TextFile;
  Text: string;
begin
  AssignFile(F, ExtractFilePath(Application.ExeName)+'Auto\'+ComboBox1.Text+'.txt');
   {$I-}
  Reset(f);
  {$I+}

  if IOResult <> 0 then
  begin
    MessageDlg('Ошибка при открытии файла! '+ 'чч', mtError, [mbOk], 0);
     exit;
  end;
     while not Eof(F) do
       begin
        ReadLn(F, Text);
       begin
         for i := 0 to  ComboBox6.Items.Count-1  do
           StripOutParam(Text, param);
        ComboBox6.Items.Append(param[0]);
       end;
    end;
     CloseFile(F);
end;


end.

[drofus]

Как сравнить текст написанный в Комбобоксе - Auto.Text с текстом который уже там находится и запретить процедуру AddCar что то не получается у меня

var
I : integer;
begin
    CreateFile;
for i  := 0 to Auto.Items.Count - 1 do
  begin
     If pos(Auto.Text, Auto.Items[i])>0 then AddCar else
Exit;
            Label5.Caption := '[Внимание!] Файл добавлен!';
              Auto.Items.LoadFromFile(ExtractFilePath(Application.ExeName)+'\Auto\WP_Auto.txt');
          end;
       End;

[min@y™]

Мож хватит хрень писать и сделать по-хорошему?

[Igor[Игорь]]

Ты хочеш что бы при выборе значения в первом боксе появлялись значения во втором боксе трлько для выбранного значения из первого?

[drofus]

Есть 2 функции CreateFile; AddCar; Хочу что бы в CB1 сравнивался имеющийся текст с только что напечатанным и в зависимости от него срабатывала функция