Code Optimierung zu ".. is <type>"

[lxo]

Auf jeden Fall ist (lComponent as TLabel) langsamer als TLabel(lComponent).
TLabel(lComponent) aber vorher in eine Variable vom Typen TLabel zu schreiben scheint keinen Unterschied zu geben.

Hier einmal ein Beispiel.

Wieso das so ist kann ich aber auch nicht genau sagen, würde mich aber auch interessieren.

Delphi-Quellcode:

type
  TTest = class
    Int: Integer;
  end;
procedure TForm105.Button1Click(Sender: TObject);
var
  lObject: TObject;
  i : Integer;
  lStopwatch: TStopwatch;
  lTest: TTest;
begin
  lObject := TTest.Create;
  try
    lTest := TTest( lObject);
    lStopwatch := TStopwatch.StartNew;
    for I := 0 to MaxInt do
    begin
//      (lObject as TTest).Int := i; // 8,7 Sekunden
//      TTest( lObject).Int := i;    // 2,5 Sekunden
//      lTest.Int := i;              // 2,5 Sekunden
    end;
    lStopwatch.Stop;
    ShowMessage( lStopwatch.Elapsed.Duration.ToString);
  finally
    lObject.Free;
  end;
end;

[Harry Stahl]

Zitat von lxo:

Auf jeden Fall ist (lComponent as TLabel) langsamer als TLabel(lComponent).
TLabel(lComponent) aber vorher in eine Variable vom Typen TLabel zu schreiben scheint keinen Unterschied zu geben.

Hier einmal ein Beispiel.

Wieso das so ist kann ich aber auch nicht genau sagen, würde mich aber auch interessieren.

Delphi-Quellcode:

type
  TTest = class
    Int: Integer;
  end;
procedure TForm105.Button1Click(Sender: TObject);
var
  lObject: TObject;
  i : Integer;
  lStopwatch: TStopwatch;
  lTest: TTest;
begin
  lObject := TTest.Create;
  try
    lTest := TTest( lObject);
    lStopwatch := TStopwatch.StartNew;
    for I := 0 to MaxInt do
    begin
//      (lObject as TTest).Int := i; // 8,7 Sekunden
//      TTest( lObject).Int := i;    // 2,5 Sekunden
//      lTest.Int := i;              // 2,5 Sekunden
    end;
    lStopwatch.Stop;
    ShowMessage( lStopwatch.Elapsed.Duration.ToString);
  finally
    lObject.Free;
  end;
end;

Da kann man sich ja mal ansehen, was der Compiler draus macht (siehe Anlage).

Bei "as" erfolgt noch ein Sprung woanders hin (in die system.pas, und dort werden eine Reihe von Befehlen abgearbeitet), das kostet zeit..

[freimatz]

Zitat von Harry Stahl:

Bei "as" erfolgt noch ein Sprung woanders hin (in die system.pas, und dort werden eine Reihe von Befehlen abgearbeitet), das kostet zeit..

Ich behaupte: das hängt von der Betrachtungsweise ab
Ja es kostet CPU-Zeit. Ohne das kann es aber wesentlich mehr Entwickler-Zeit kosten.
Ich meine: wenn man nicht sehr abstruse Dinge machen kann ist in der UI die Zeit für das is oder as vernachlässigbar. Besser ist es so zu machen wie Uwe es vorgeschlagen hat.

[Harry Stahl]

Zitat von freimatz:

Zitat von Harry Stahl:

Bei "as" erfolgt noch ein Sprung woanders hin (in die system.pas, und dort werden eine Reihe von Befehlen abgearbeitet), das kostet zeit..

Ich behaupte: das hängt von der Betrachtungsweise ab
Ja es kostet CPU-Zeit. Ohne das kann es aber wesentlich mehr Entwickler-Zeit kosten.
Ich meine: wenn man nicht sehr abstruse Dinge machen kann ist in der UI die Zeit für das is oder as vernachlässigbar. Besser ist es so zu machen wie Uwe es vorgeschlagen hat.

Ich habe ja gar keine Aussage dazu gemacht, wie man es besser macht, sondern wollte nur die Erklärung zeigen, warum das unterschiedlich schnell ist...

[Blup]

Gut zu wissen.

MaxInt ist etwas über 2,1 Milliarden. Wenn man tatsächlich mal eine Anwendung schreibt die 200.000.000 unsichere Typ-Cast ausführt, spart das 6,2 Millisekunden Laufzeit.
Wie viel Entwicklungszeit sich bei der Fehlersuche sparen lässt, wenn man statt dessen "as" verwendet, lässt sich leider nicht testen.

[BerndS]

Ich hatte erwartet, dass nach Uwes Beitrag die Frage beantwortet ist. Denn nach der ersten if Component is TLabel macht eine weitere Prüfung per as doch keinen Sinn mehr.
Man könnte es aber auch so machen. Aber with sollte ja nicht mehr verwendet werden.
Hier wird die Typenprüfung gemacht und für den Fall, dass dieser nicht passt die Exception abgefangen.

Delphi-Quellcode:

   try
     with (Component as TLabel) do
       if pos('||', Caption) = 0 then 
       begin 
         ....
         Caption := Caption + ' || ' + s;
      end;
    except
    end;

Ohne with würde ich diese Variante verwenden.

Delphi-Quellcode:

  if (Component is TLabel) then 
  begin
    if pos('||',TLabel(Component).Caption) = 0 then 
    begin
      ....
      TLabel(Component).Caption := TLabel(Component).Caption + ' || ' + s;
    end;
  end;
end

Die Verwendung einer weiteren Variante ist so nicht notwendig.

[Blup]

Ich bevorzuge diese Variante:

Delphi-Quellcode:

procedure TuAllesMögliche(Sender: TObject);

  procedure TuWasMitLabel(ALabel: TLabel);
  begin
    if pos('||', ALabel.Caption) = 0 then
    begin
      ....
      ALabel.Caption := ALabel.Caption + ' || ' + s;
    end;
  end;

begin
  if Sender is TLabel then
    TuWasMitLabel(TLabel(Sender));
end;