Du hattest noch zeigen können, wie man auf die anderen Varaiblen zugreifen kann, wenn benötigt
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, Forms, Classes, Controls,;
var
ZufallsZahl: Integer;
// gültig in der ganzen Anwendung, wo dise Unit in den uses steht
type
TForm1 =
class(TForm)
procedure Button1Click(Sender: TObject);
private
ZufallsZahl: Integer;
// gültig in der ganzen Klasse Form1
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm.Button1Click(Sender: TObject);
var
ZufallsZahl: Integer;
// nur gültig in diese Procedure
begin
ZufallsZahl := 1;
// lokale Variable
Self.ZufallsZahl := 2;
// Feld der Klasse TForm1
Unit1.ZufallsZahl := 3;
// Unit Variable
end;
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ea 0a 4c 14 0d b6 3a a4 c1 c5 b9
dc 90 9d f0 e9 de 13 da 60)