Zitat:
Jetzt die Preisfrage: Warum ist das so (und vor allem ist das unter Delphi 10.2.3 so völlig korrekt)
Die Antwort:
TempFont := Nil steht in der ersten Zeile..
Aber ihr scheint es nicht zu verstehen.
Delphi-Quellcode:
var
TempFont: GpFont;
//..
begin
TempFont := nil;
if Assigned(TempFont) then
begin
GdipCheck(GdipDeleteFont(TempFont)); // Lösche das Font Object
TempFont := nil;
end;
end;
Oder kannst du sehen das irgendwo ein Try final block oder ähnliches steht was die Warnung berechtigter weise ausgibt?
Zitat:
Delphi 10.2.3 so völlig korrekt
NÖ weil sie unter Delphi2010 ausgespuckt wird und nicht unter Delphi 10.2.3..
Zitat:
Jetzt die Preisfrage:
Brauchst du eine Brille oder liest du meine Beiträge nicht!
Zitat:
Wer es weiß, darf sich ein Bonbon nehmen.
Du dir zwei wenn du meine Beiträge mal vorher lesen würdest.
Zudem TempFont wird weiter unten im Code noch verwendet habe den Teil nur nicht addiert. bzw.. zwischen TempFont := Nil und Asssign
gruss