Parametisierung vorgefertigter Delphifunktionen

[chillermiller]

Hallo erstmal,

ich bin gerade am Schreiben eines kleinen Programms und brauche eure Hilfe, da ich einfach nicht weiterkomme!!! :wall:
Und zwar brauche ich etwas, dass mir die Labels parametisiert.

Also zum Beispiel so:

Delphi-Quellcode:

procedure machwas(p: integer);
begin
Label[p].Caption:='Hallo';
Combobox[p].Itemindex:=1;
end;

Allerdings weiß jeder, dass das nicht funktionieren wird.
Deshalb bitte ich euch um Lösungsvorschläge.

Hertlichen Dank!

[edit=Matze][delphi]-Tags eingefügt. Zukünftig bitte selbst daran denken. MfG, Matze[/edit]

[mkinzler]

Du suchst wohl .FindComponent()

[H4ndy]

Ganz easy

Delphi-Quellcode:

var
  AEdit: TEdit;
begin
  For i:=0 to 10 do
  begin
    AEdit := Form.FindComponent('edit'+IntToStr(i));
    if Assigned(AEdit) then
      AEdit.Text := 'test';
  End;
end

Achtung, Kopf-Code! Kann, muss aber nicht funktionieren.

[Matze]

Ich hätte es ungefähr so gelöst:

Delphi-Quellcode:

(FindComponent('Label' + IntToStr(p)) as TLabel).Caption := '...';
(FindComponent('ComboBox' + IntToStr(p)) as TBomboBox).ItemIndex := ...;

[H4ndy]

Zitat von Matze:

Ich hätte es ungefähr so gelöst:

Entspricht aber nicht den Regeln der defensiven Programmierung.
FindComponent kann NIL zurueckgeben, von daher *kann* dein Code einen Absturz provozieren.

[chillermiller]

Alles klar. Vielen Dank!

[alzaimar]

Zitat von H4ndy:

Entspricht aber nicht den Regeln der defensiven Programmierung.
FindComponent kann NIL zurueckgeben, von daher *kann* dein Code einen Absturz provozieren.

Erstens finde ich keine Vorgabe, das man sich an diese Regeln halten muss und zweitens stürzt nichts ab.
Was Du meinst, ist eine Exception, was widerum zu den Grundlagen des 'Clean Code' zählt (sofern eine ordentliche Ausnahmebehandlung implementiert ist).

[RWarnecke]

Und hier ist das Cross-Posting im Delphi-Forum.

[mkinzler]

Zudem muss eine Antwort auch keine vollständige wasserfeste Lösung beinhalten. Diese zu erstellen obliegt imo dem ursprünglichen Fragesteller.