diff options
-rw-r--r-- | epostunit.pas | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/epostunit.pas b/epostunit.pas index 78394ff..dddafa4 100644 --- a/epostunit.pas +++ b/epostunit.pas @@ -10026,6 +10026,7 @@ begin beschriftungsschritte[1].faktor:=1; rahmen:=false; bekannteBefehle:=tMyStringList.create; + fontRenderer:=nil; repeat if not f.metaReadln(s,true) then begin gibAus('Unerwartetes Dateiende in '''+paramstr(1)+'''!',3); @@ -10261,7 +10262,8 @@ begin setLength(beschriftungen,0); close(img); - fontRenderer.free; + if fontRenderer<>nil then + fontRenderer.free; result:=true; end; |