Eigener Prozedur Eigenscahften (propertys) zuweisen

[maddin4u]

Hi

Ich wollte wissen, ob es möglich ist einer selbsterstellten Prozedur, Eigenschaften zu zu weisen.

Ich Stelle mir das wie folgt vor:

Delphi-Quellcode:

procedure tuewas(myID: integer)
begin

  // Wenn LabelCaption als Poperty gewählt ist
  // Label mit der ID myID suchen und Caption setzen 
  
end;

Und der Aufruf

Delphi-Quellcode:

 tuewas(5).LabelCaption := 'Horst';

In diesem Beispiel soll also die Caption des Labels mit der ID 5 in Horst umgewandelt werden.

Jetzt ist die Frage wie ich dieses ".LabelCaption" realisieren kann?

Viel Dank!

[Dax]

Öhm.. Das geht nicht. Was du suchst ist eine Funktion, die ein Objekt zurückgibt.

Grundsätzlich: Eine Prozedur gibt nichts zurück ;)

[tomsel]

Was du meinst, wäre z.Bsp. eine Funktion vom Typ TControl, die das über ID angesprochene Label liefert. Etwa so:

Delphi-Quellcode:

function MyControl(ID:integer):TControl;
begin
  result := TControl(Form1.Finde_Das_Label_Mit_Nr(ID));
end;

Finde_Das_Label_Mit_Nr muss natürlich geeignet implementiert sein. Bei einem derartigen Konstrukt besteht aber die Gefahr einer AV, sofern kein entsprechendes Control gefunden wird. Realisiere das Ganze besser anders. Wenn du etwas mehr Einblick in dein Prog gestattest, könte man evtl. weiterhelfen.

[maddin4u]

Erstmal danke für die Antworten.

Ich werde das ganze dann anderss lösen.

Ich sachaffe mir folgende Prozedur

Delphi-Quellcode:

procedure tuewas(ID: integer,WAS,WIE: string);
begin
  if WAS = 'LabelCap' then
   Label(ID).Caption := WIE //Label z. B. per FindComponent suchen

  if WAS = 'irgendwas' then
   //...
end;

//Aufruf dann wie folgt
tuewas(5,LabelCap,'Horst');

Gruß
Martin