Code Optimierung zu ".. is <type>"

[Der schöne Günther]

Wenn man so etwas öfter macht lohnt sich evtl. auch so etwas hier, da bekommt man mit den Generics gleich Typsicherheit rein und brauch gar nichts mehr casten:

https://www.delphipraxis.net/194401-...ml#post1386380

[Uwe Raabe]

Wenn du die Zwischenvariable nicht willst, kannst du nach dem if Component is TLabel then bedenkenlos den Cast TLabel(Component) innerhalb des then-Scopes verwenden. Du hast da ja bereits sichergestellt, das Component wirklich ein TLabel ist.

[TigerLilly]

Zitat:

Auf jeden Fall ist (lComponent as TLabel) langsamer als TLabel(lComponent)

Ja, das liegt daran, dass das as eine Typüberprüfung macht, wähend hardcasting das nicht macht. Ok, das wäre - wie Uwe sagt - ein erster Ansatz.

Dennoch: Bringt der Weg über die Zwischenvariable was?

[Uwe Raabe]

Zitat von TigerLilly:

Dennoch: Bringt der Weg über die Zwischenvariable was?

Nur beim Schreiben und Lesen. In diesem Fall kannst du ja auch Gebrauch von einer Inline-Variablen machen. Die gibt es dann nur zwischen dem then begin und end .

Delphi-Quellcode:

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