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