Probleme mit Combobox

[Christian Seehase]

Moin Jan,

also ich bekomme da keine AV.

So könntest Du es übrigens mit den Resourcenschutzblöcken machen:

Delphi-Quellcode:

var
  i          : integer;
  j          : integer;
  chooselist : TStringList;
  impstr     : TStringList;

begin
  if not form1.opendialog1.execute then exit;
  edit1.text:=form1.OpenDialog1.FileName;
  chooselist := TStringList.Create;
  try
    impstr := TStringList.Create;
    try
      try
        impstr.LoadFromFile(edit1.text);
        chooselist.commatext:=impstr[0];
      except
        showmessage('Die zu ladende Datei ist korrupt.');
      end;
    finally
      FreeAndNil(impstr);
    end;
    for i:=0 to chooselist.Count-1 do begin
      for j := 1 to 12 do begin
       (FindComponent('Combobox'+IntToStr(j)) as TComboBox).Items.Add(ChooseList[i]);
      end;
    end;
  finally
    FreeAndNil(chooselist);
  end;
end;