bessere lösung für prozeduren

[dataspider]

Ich würde hier schon Code in eine Procedure auslagern...

Delphi-Quellcode:

procedure TTblLieferanten.setSearchLabels(m: Byte);
  procedure SetItem(ALabel: TLabel; const ANr: string = ''; const AFunction:
      string = '');
  begin
    ALabel.Visible := True;
    if AFunction <> '' then
      ALabel.Caption := ANr + ' = ' + AFunction;
    if ANr <> '' then
      Combobox2.Items.Add(ANr);
  end;

begin
  combobox2.Clear;
  case m of
    1:
      begin
        SetItem(Label10, '1', 'Name');
        SetItem(Label11, '2', 'Kunden Nr.');
        SetItem(Label13);
        SetItem(Label14);
      end;
    2: ...
  end;
  combobox2.ItemIndex := 0;
end;

Wichtig sind allerdings auch die Hinweise von TiGü...

Frank