Problem mit TIcon und FreeAndNil

[Helmi]

Hallo,

ich hab im OnCreate der Form folgenden Code:

Delphi-Quellcode:

  //Icons erzeugen
  IconRot   := TIcon.Create;
  IconGelb  := TIcon.Create;
  IconGruen := TIcon.Create;
  IconBlau  := TIcon.Create;

  try
    //versuchen IconRot beschreiben
    IconRot.LoadFromFile(drive_Icon_rot);
  except
    //ansonsten Applications-Icon laden
    IconRot := Application.Icon;
  end;

  try
    //versuchen IconGelb beschreiben
    IconGelb.LoadFromFile(drive_Icon_gelb);
  except
    //ansonsten Applications-Icon laden
    IconGelb  := Application.Icon;
  end;

  try
    //versuchen IconGruen beschreiben
    IconGruen.LoadFromFile(drive_Icon_gruen);
  except
    //ansonsten Applications-Icon laden
    IconGruen := Application.Icon;
  end;

  try
    //versuchen IconBlau beschreiben
    IconBlau.LoadFromFile(drive_Icon_blau);
  except
    //ansonsten Applications-Icon laden
    IconBlau  := Application.Icon;
  end;

und Im OnDestroy das:

Delphi-Quellcode:

  //Icons freigeben und löschen
  FreeAndNil(IconRot);
  FreeAndNil(IconGelb);
  FreeAndNil(IconGruen);
  FreeAndNil(IconBlau);

Wenn jetzt im OnCreate das Icon nicht geladen werden kann (egal ob rot, gelb, grün oder blau) und ich die Form beende dann bekomme ich 2 Fehler (siehe Anhang).

Was kann das sein?

Ich hab schon mal überprüft ob wirklich auch in den except-Block reingesprungen wird und das wird auch gemacht.

[SirThornberry]

das kommt von

Delphi-Quellcode:

IconRot := Application.Icon;

TIcon ist nix anderes als ein Pointer.
Wenn du jetzt das obige aufrufst zeigt IconRot auf den speicher Application.Icon.
Und wenn du dann FreeAndNil(IconRot) aufrufst wird der Speicher von Application.Icon freigegeben.
Du müsstest einfach

Delphi-Quellcode:

IconRot.Assign(Application.Icon)

[Helmi]

Danke Sir Thornberry

das hat funktioniert