Forum: Object-Pascal / Delphi-Language
by Uwe Raabe,
12. Dez 2020
Bei IfThen gilt auch zu beachten, dass es sich hier um einen Funktionsaufruf handelt, bei dem immer alle Parameter ausgewertet werden.
var
cmp: TComponent;
cmpName: string;
begin
cmp := FindComponent('Edit1');
{ hier kann ein Zugriffsfehler auftreten }
cmpName := IfThen(cmp <> nil, cmp.Name, '');
Forum: Object-Pascal / Delphi-Language
by Uwe Raabe,
10. Dez 2020
Wenn schon DaysInMonth verwenden, dann doch einfach in allen Fällen:
var
i: Integer;
days: Cardinal;
month: Integer;
year: Integer;
begin
cbbDay.Enabled := False;
if cbbMonth.ItemIndex >= 0 then