Boolean: Welcher Aufruf ist schneller?

[Helmi]

Hallo,

ich hab in meinem Projekt eine CheckBox und im OnClick-Ereignis hab ich folgendes drinstehen:

Code:

procedure TForm1.CheckBox1Click(Sender: TObject)
begin
  with CheckBox1 do
    begin
      Button1.Enabled := Checked;
      Button2.Enabled := Checked;
      Button3.Enabled := Checked;
      Button4.Enabled := Checked;
      Button5.Enabled := Checked;
      Button6.Enabled := Checked;   
      
      {...}

      If Checked then
        //mach was
      else
        //mach was anderes
    end;
end;

gestern hab ich zufälligerweise ein Code-Schnipsel entdeckt und da wird das so gemacht:

Code:

procedure TForm1.CheckBox1Click(Sender: TObject)
var
  B: Boolean;

begin
  B := CheckBox1. Checked;

  Button1.Enabled := B;
  Button2.Enabled := B;
  Button3.Enabled := B;
  Button4.Enabled := B;
  Button5.Enabled := B;
  Button6.Enabled := B;   
      
  {...}

  If B then
    //mach was
  else
    //mach was anderes
end;

Jetzt meine Frage: Welche der beiden Möglichkeiten ist schneller oder sind beide gleich schnell?

[Sanchez]

Hallo,
Ich würde mal den zweiten für schneller halten, weil nur einmal auf die Property Checked der Checkbox zugegriffen wird.
Sicher bin ich mir aber nicht. Möglicherweise optimiert der Compiler so, dass es egal ist.

grüße, daniel

[Boombuler]

Hi,

Ich denke auch das der 2. Schneller is! bei Delphi 8 hab ich mit einem ähnlichen kunststück die Geschwindigkeit einer funktion um ca 70% verbessert... allerdings wurde dabei auch ca 80.000x auf ne Property zugegriffen!

Greetz
Boombuler

[Kedariodakon]

Das zweite sollte schneller sei und zusätzlich ist es auch noch um 2 Zeilen kürzen :zwinker:

Bye

[Robert Marquardt]

Das kommt natuerlich hauptsaechlich auf die Implementation der Checked-Property an.
Bei TListView ist die Performance z. B. schrecklich.

[moritz]

Miss es doch einfach...

[Helmi]

wie kann man so was messen?
soll ich mit der stopuhr daneben stehen und warten?
oder gibts da ne andere Delphi-typischere Möglichkeit?

[fkerber]

Hi!

Es geht wohl mit GettickCount, aber irgendwer hat mal gesagt, dass das nicht so wirklich toll wäre. War das Hagen (negaH) ??
Such vielleicht mal nach Zeitmessung oder so. Es war in irgendeinem Thread bzgl. Sortieralgorhythmen.


Ciao Frederic

[Boombuler]

Delphi-Quellcode:

procedure TForm1.CheckBox1Click(Sender: TObject);
var i:Cardinal;
loop:integer;
begin
  i := GettickCount;
  for Loop := 1 to 100000 do
  with CheckBox1 do
    begin
      Button1.Enabled := Checked;
      Button2.Enabled := Checked;
      Button3.Enabled := Checked;
      Button4.Enabled := Checked;
      Button5.Enabled := Checked;
      Button6.Enabled := Checked;

      {...}

      If Checked then
        //mach was
      else
        //mach was anderes
    end;
  showmessage(inttostr(Gettickcount - i));  
end;

Result -> 16 mili sek

Delphi-Quellcode:

procedure TForm1.CheckBox1Click(Sender: TObject);
var i:Cardinal;
loop:integer;
b:Boolean;
begin
  i := GettickCount;
  for Loop := 1 to 100000 do
  begin
  B := CheckBox1. Checked;

  Button1.Enabled := B;
  Button2.Enabled := B;
  Button3.Enabled := B;
  Button4.Enabled := B;
  Button5.Enabled := B;
  Button6.Enabled := B;

  end;
  showmessage(inttostr(Gettickcount - i));
end;

Result -> 16 mili sek

[Helmi]

ja das hab ich jetzt auch gemessen - dass das gleich ist von der zeit her

Trotzdem Danke :-)

Jetzt weiss ich endlich wie man eine Procedure ausmisst :-)

[off]
Wieso sagt mir eigentlich niemand dass bei CheckBox1.Checked/RadioGroup1.Checked auch OnClick ausgelöst wird?
[/off]

[Boombuler]

Zitat:

Zitat von Helmi

ja das hab ich jetzt auch gemessen - dass das gleich ist von der zeit her
[off]
Wieso sagt mir eigentlich niemand dass bei CheckBox1.Checked/RadioGroup1.Checked auch OnClick ausgelöst wird?
[/off]

weil du nicht gefragt hast?

[Christian Seehase]

Moin Helmi,

Zitat:

Zitat von Boombuler

Zitat:

Zitat von Helmi

ja das hab ich jetzt auch gemessen - dass das gleich ist von der zeit her
[off]
Wieso sagt mir eigentlich niemand dass bei CheckBox1.Checked/RadioGroup1.Checked auch OnClick ausgelöst wird?
[/off]

weil du nicht gefragt hast?

bzw. weil es in der Hilfe zu TControl.OnClick steht... ;-)

[Helmi]

Da bin ich grad durch das Showmessage beim ausmessen der Procedure selbst drauf gekommen, weil beim starten der software 2x die Message angezeigt wurde.

Na ja - und darauf hin bin ich darauf gekommen, dass bei CheckBox1.Checked := true (beim auslesen der IniDatei gesetzt) das OnClick ausgegeben wurde.

Aber bevor ich zu viel Off schreib, hör ich jetzt auf :-)

Trotzdem Danke an Alle!