Forum: Object-Pascal / Delphi-Language
by Uwe Raabe,
11. Mär 2022
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.
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;
Forum: Object-Pascal / Delphi-Language
by Uwe Raabe,
11. Mär 2022
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.