Deklaration ändern ?

[HolgerCW]

Hallo,

wie kann ich in einer Procedure eine Deklaration ändern.

Möchte in meiner Procedure Comboboxen oder TTabControls füllen.

Wenn man ein TTabControl füllen will, soll Die Variable Box als TTabControl.Tabs deklariert werden, ansonsten als TComboBox.

Gruss

Holger

[SirThornberry]

Zitat:

Wenn man ein TTabControl füllen will, soll Die Variable Box als TTabControl.Tabs deklariert werden, ansonsten als TComboBox.

also soll die Variable Box sowohl von dem einen Typ als auch vom anderen Typ sein?! Dann müsste man einen gemeinsamen Vorfahren finden. Wenn du TTabControl und TComboBox hättest wäre das TWinControl etc.
du schreibst allerdings etwas von einem Typ TTabControl.Tabs wobei Tabs ja dann ein Member wäre aber kein Typ

[RavenIV]

a) Entweder Du findest einen gemeinsamen Vorfahren der Typen, die Du übergeben willst (wie schon geschrieben wurde)
oder
b) Du überlädst (overload) die Funktion

[HolgerCW]

Ohh, da habe ich mich vertan.

Es geht um die Deklaration von TTabControl und TComboBox

ComboBox1.items.Add('') oder

TTabControl.Tabs.Add(''); Ich könnte der Procedure z.B. mit einer 1 = TTabControl und 2 = TComboBox mitgeben.

Wie kann ich nun in der procedure TTabControl oder TComboBox füllen ?

Vorher hatte ich in der Procedure fest = Box: TComboBox

Gruss

Holger


P.S.:
Hier die derzeitige Procedure ohe TTabControl:

ComboBox_fuellen (Box:TComboBox; Query:TQuery; Spalten:String; Anzahl:Integer; SQL: String);

[HolgerCW]

TWinControl hat kein .Clear;

Gruss

Holger

[Bernhard Geyer]

Das Property items und Tabs sind beide vom Typ TStrings. Also benötigst du eine Funktion die als Übergabeparameter ein TStrings besitzt.

[RavenIV]

Also hier würde ich den von mir erwähnten Punkt b) bevorzugen.
Sonst musst Du innerhalb der procedure noch entscheiden, um welchen Typ Box es sich handelt.

[SirThornberry]

@Klaus: muss er nicht

Delphi-Quellcode:

DieProcedure(Combobox1.Items);
DieProcedure(TabControl1.Tabs);
[...]
procedure TYourClass.DieProcedure(Items: TStrings);
begin
  Items.Add('');
end;

[RavenIV]

müsste es nicht heissen:
procedure TYourClass.DieProcedure(var Items: TStrings);

[Bernhard Geyer]

Zitat von RavenIV:

müsste es nicht heissen:
procedure TYourClass.DieProcedure(var Items: TStrings);

Nö. Nur wenn du die Items in der Funktion erzeugen willst. Nicht wenn es schon vorhanden ist.