Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Boombuler,
4. Jan 2005
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;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Boombuler,
4. Jan 2005
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