Hallo
Ich habe folgendes Problem. Seit ich diesen Code abschnitt in meiner Applikation habe bekomme ich immer eine "Runtime error 216 at 00018008" wenn ich das programm beende.
Könnte es sein das da irgend ein speicherbereich nicht freigegeben wird????
Code:
//Aktive Word Instanz holen
GetActiveOleObject('Word.Application').QueryInterface(_Application,WordApp);
//Bookmark durch Betrag ersetz
EmptyParam := WordApp.Selection.Range;
if (WordApp.ActiveDocument.Bookmarks.Exists(bookMark)) Then
begin
if(DM.OfferDetailView.FieldValues[TEXTMODULEPRICE_PRICE_FIELD] <> Null) Then
lPrice := DM.OfferDetailView.FieldValues[TEXTMODULEPRICE_PRICE_FIELD]
else
lPrice := '0';
Nme := bookMark;
WordApp.ActiveDocument.Bookmarks.Item(Nme).Select;
WordApp.Selection.TypeText(lPrice);
WordApp.ActiveDocument.Bookmarks.Item(Nme).delete;
end;
WordApp ist vom Type _Application. Komischerweise besitzt dieser Type kein Free.
jemand eine Ahnung woran es liegen könnte???