Globale Variablen

[SirThornberry]

Delphi-Quellcode:

TForm1 = class(TForm)
private
 irgendwas: Boolean;
 procedure do1;
 procedure do2;

[...]
var
 form1: TForm1;
[...]

procedure TForm1.do1;
begin
 irgendwas := False;
end;

procedure TForm1.do2;
begin
 irgendwas := False;
end;

oder

Delphi-Quellcode:

TForm1 = class(TForm)
public
 irgendwas: Boolean;

[...]
var form1: TForm1;
[...]

procedure do1;
begin
 form1.irgendwas := False;
end; 

procedure do2;
begin
 form1.irgendwas := False;
end;