Prozedur Implementierung

[Aliobaba]

Hallo,

die Überschrift "Einsteigerfragen" ermutigt mich, eine wahrscheinlich banale Frage zu stellen.

Ich möchte gerne durch den Aufruf einer Procedur die Eigenschaft (Farbe oder Text) eines Edit-Feldes ändern.
Am Beispiel eines Labels möchte ich mein Problem schildern:

Das funktioniert:

Code: Alles auswählen

procedure aaa;
begin
   ShowMessage('aaa');
end;

Das funktioniert nicht:

Code: Alles auswählen

procedure aaa;
begin
   ShowMessage('aaa');
   label3.Caption:= 'xy';
end;

Fehlermeldung:
"Identifier not found "label3""

Was mache ich falsch?

Aliobaba

[Aliobaba]

.... ich glaube jetzt, ich habe die Lösung

Da es sicher auch andere "Einsteiger" gibt, hier die (wahrscheinliche) Lösung:

Im Abschnitt "type" (ganz oben) muß stehen:

procedure aaa;
procedure bbb;

und dann:

Code: Alles auswählen

procedure TForm1.aaa;
begin
   ShowMessage('aaa');
   label3.Caption:= 'xy';;
end;

Ganz einfach ..... wenn man's weiß

Aliobaba

[MAC]

Richtig.
Das ist eine der Lösungsansätze, es findet sich dazu übrigens noch viel im web...
In deiner Lösung hast du gesagt aaa soll eine Procedure von deiner Form1 sein (TForm1, da Form1 eine Instanz der Klasse TForm1 ist (da steht doch im quellcode var Form1:TForm1;)).
Das allgemeine Problem war, die Procedure aaa wusste nicht was label3 ist. Da Label3 aber der Form1 gehört wär eine andere Lösung auch das hier gewesen:
Dadurch wird in der Procedure gesagt das das Label3 der Form1 verwendet werden soll.

Code: Alles auswählen

procedure aaa;
begin
   ShowMessage('aaa');
   Form1.label3.Caption:= 'xy';
end;

PS: Ich wollte das nur mal der vollständigkeit her erwähnen, deine Methode ist sauberer programmiert.