Einzelnen Beitrag anzeigen

Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.475 Beiträge
 
Delphi 12 Athens
 
#7

AW: Code Optimierung zu ".. is <type>"

  Alt 11. Mär 2022, 12:50
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;
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat