Einzelnen Beitrag anzeigen

Blup

Registriert seit: 7. Aug 2008
Ort: Brandenburg
1.445 Beiträge
 
Delphi 10.4 Sydney
 
#13

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

  Alt 12. Mär 2022, 09:10
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;
  Mit Zitat antworten Zitat