globale Variablen?

[RavenIV]

Zitat von xX0815Xx:

Ich könnte doch aber auch mit weiteren public-Variablen prüfen ob die anderen Bedingungen erfüllt sind und dann die Variable ändern, oder?

Nein.

Wenn Du machst:

Delphi-Quellcode:

Form1: TForm...
...
public
  fAbfrageStarten: Boolen;
...
...

Dann in Form2:
Form1.fAbfrageStarten := True; dann ist AbfrageStarten bereits geändert.

Du könntest natürlich in Form2 machen:

Delphi-Quellcode:

...
if Form1.VerbindungGeoeffnet and Form1.WerteAbgefragt and Form1.DarfGestartetWerden then
begin
  Form1.fAbfrageStarten := True;
end
else
begin
  Form1.fAbfrageStarten := False;
end;

Das müsstest Du dann aber immer machen, wenn Du Form1.AbfrageStarten ändern möchtest.
Also kannst Du es auch gleich im Setter für AbfrageStarten in Form1 erledigen:

Delphi-Quellcode:

Form1: TForm...
...
private
  fAbfrageStarten: Boolean;
  procedure SetAbfrageStarten(...);
...
published
...
  property AbfrageStarten: Boolean write SetAbfrageStarten;
...
end;
...
...

procedure Form1.SetAbfrageStarten(...);
begin
  if ... and ... and ... then
  begin
    ...
    fAbfrageStarten := True;
  end
  else
  begin
    ...
    fAbfrageStarten := False;
  end;
end;

[Aurelius]

So meinte ich das ja (das untere)

[Corpsman]

Das problem an der "unteren" variante ist,

Wenn du deine Unit Veröffentlichst und ein anderer nutzt die Variablen, blickt der niemals das er diese Kointrollen selbst machen mus.

Mittels Get und Set Methoden Sorgst du Unter Garantie dafür das diese Prüfungen gemacht werden.

Zusätzlich hast du ja noch die Möglichkeit bei Properties nur Lesen, oder nur schreiben zu zu lassen.

Also auf das Beispiel mit dem Auto bezogen, kannst du die Gesamtgeschwindigkeit nur Lesen, nicht aber schreiben.

Machst du das mittels einer Public Variable hast du die Möglichkeit des Schreibschutzes nicht.

[DeddyH]

Zitat von xX0815Xx:

So meinte ich das ja (das untere)

Da ist es aber doch einfacher und wartbarer, die Überprüfung gleich im Setter vorzunehmen.

Delphi-Quellcode:

TBlubb = class
...
private
  FWert: TWert;
  function GetWert: TWert;
  procedure SetWert(value: TWert);
...
public
  property Wert: TWert read GetWert write SetWert;
...
end;

...

function TBlubb.GetWert: TWert;
begin
  Result := FWert;
end;

procedure TBlubb.SetWert(value: TWert);
begin
  if value <> Quatsch then
    FWert := value;
end;

So ist gewährleistet, dass Du immer plausible Werte verwendest.

[Aurelius]

Aha jetzt habe ich es auch verstanden. Scheint wirklich komfortabler zu sein...

[RavenIV]

Habt Ihr eigentlich meinen Beitrag #11 gesehen?
Der Beitrag mir dem vielen Quellcode...

[DeddyH]

Zitat von RavenIV:

Habt Ihr eigentlich meinen Beitrag #11 gesehen?
Der Beitrag mir dem vielen Quellcode...

Jepp, allerdings bevor Du ihn editiert hast

[RavenIV]

Zitat von DeddyH:

Jepp, allerdings bevor Du ihn editiert hast

Ich bin da dummerweise auf den Absenden-Button gekommen, bevor ich fertig war.

[Khabarakh]

Man sollte noch erwähnen, dass dann konsequenterweise jeglicher "FormX."-Code ebenfalls "pfui" ist .

[RavenIV]

Zitat von Khabarakh:

Man sollte noch erwähnen, dass dann konsequenterweise jeglicher "FormX."-Code ebenfalls "pfui" ist .

Häähh?
Ich kann Dir nicht folgen.