Delphi vs. C# vs C++

[Phoenix]

Du weisst schon dass Du hier nicht Delphi vs. C# getestet hast, sondern die VCL (also die Win32 API) gegen das Windows Forms UI-Framework?

Mach das nochmal mit VCL gegen Firemonkey und sag uns dann mal, wie viel langsamer 'Delphi' gegenüber 'Delphi' ist.

Um die Geschwindigkeit der Runtime an sich zu testen, bieten sich Vergleiche an die viel CPU nutzen. Zum Beispiel identisch implementierte Sortieralgorithmen, die den identischen Input sortieren. Da dürfte der Unterschied dann eher marginal sein.

[Mavarik]

Zitat von Phoenix:

Mach das nochmal mit VCL gegen Firemonkey und sag uns dann mal, wie viel langsamer 'Delphi' gegenüber 'Delphi' ist.

Warum UI? Wegen den wenigen Updates der Caption?

btw:

Selbst mit einem

Delphi-Quellcode:

button1.Text := inttostr(li);
Application.ProcessMessages;

damit Firemonkey die Änderung darstellt, ist FMX ca. 3,5% schneller als die VCL...

Aber darum ging es Ihm sicherlich nicht...

[p80286]

[OT]
Chic!
Chips holen und sich zurück lehnen.

Gruß
K-H
[/OT]

[Lemmy]

Zitat von p80286:

[OT]
Chic!
Chips holen und sich zurück lehnen.
[/OT]

aber echt.. der letzte "Kinoabend" ist schon lange her...
*dazusetz*

[Sherlock]

[OT]
Ich hab Nachos und Coke
[/OT]

O'Neill

[Mavarik]

[OT]

Ping Runde 1

[/OT]

[luisk]

Was gibt´s hier zu kapieren ?
if (li mod 1000=0) then begin
Delphi ist mit dem Code 10 mal schneller als C# !
Könnt Ihr das auch mal testen ?
In 15 sec ist Delphi bei 40 000 während C# gerade mal bei 4000 ist.
Ausgegeben wird ja nur alle 1000 Werte.

Wenn ich jeden Wert ausgebe kommt Delphi bis 30 000 in 15 Sekunden. C# bis 3000 .
Ihr könnt ja selber mal vergleichen ! (Sollte bei dem Mega-Code wohl kein Problem sein.)


Wie schnell ist im Moment MS C++ bei dem Vergleich ? (hab ich leider nicht zur Verfügung.)

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var li,lj:integer;
begin
         li := 0;
         lj := 0;
             for li:=0 to 50000 do begin
                for lj:=0 to 1000000 do begin

                 end;
                 if (li mod 1000=0) then begin
                    button1.caption := inttostr(li);
                    button1.Update();
                 end;
             end;
end;