Thema: Delphi Probleme mit Combobox

Einzelnen Beitrag anzeigen

Benutzerbild von Jan
Jan

Registriert seit: 24. Sep 2002
Ort: Magdeburg
491 Beiträge
 
Delphi 7 Enterprise
 
#4

Re: Probleme mit Combobox

  Alt 17. Okt 2003, 21:46
es gibt ja keinen code, das ist es ja. Die Comboboxen werden normal befüllt und es gibt auch keinen error oder sowas, aber wenn ich dann einen bestimmten Eintrag der Combobox auswähle bekomme ich eine exception, ohne dass ich in meinem Code auf dieses Event reagiert hätte.

Aber wenn ich dazu unbedingt code posten muss, dann ist hier die befüllungsroutine:

Delphi-Quellcode:
  if form1.opendialog1.execute then
  begin
    edit1.text:=form1.OpenDialog1.FileName;
    try
      impstr:=tstringlist.Create;
      impstr.LoadFromFile(edit1.text);
    except
      showmessage('Die zu ladende Datei ist korrupt.');
    end;
    chooselist:=tstringlist.create;
    chooselist.commatext:=impstr[0];
    impstr.Free;
    for i:=0 to chooselist.Count-1 do
    begin
        combobox1.items.add(chooselist.Strings[i]);
        combobox2.items.add(chooselist.Strings[i]);
        combobox3.items.add(chooselist.Strings[i]);
        combobox4.items.add(chooselist.Strings[i]);
        combobox5.items.add(chooselist.Strings[i]);
        combobox6.items.add(chooselist.Strings[i]);
        combobox7.items.add(chooselist.Strings[i]);
        combobox8.items.add(chooselist.Strings[i]);
        combobox9.items.add(chooselist.Strings[i]);
        combobox10.items.add(chooselist.Strings[i]);
        combobox11.items.add(chooselist.Strings[i]);
        combobox12.items.add(chooselist.Strings[i]);
    end;
    chooselist.free;
  end;
Gruß
Jan
Jan
Wenn die Sonne der Kultur tief steht, werfen auch kleine Gestalten lange Schatten.
  Mit Zitat antworten Zitat