🚀 go-pugleaf

folgende funktion liefert mit delphi1 und word6
die richtigen ergebnisse

{AbrufenFormularFeldergebnis$
liefert den Texteintrag des Formularfeldes zur�ck}
function wAbrufenFormularFeldergebnis(const
Textmarkenname:string):string ;
begin
try
perg:=msword.callfunction('AbrufenFormularFeldergebnis$',[Textmarkenname]);

result:=strpas(perg^.bstrval);
except
result:='Formularfeld '+Textmarkenname+' konnte nicht abgerufen werden';

end;
end;  {function wAbrufenFormularFeldergebnis}

ab der version delphi3 kommt immer eine fehlermeldung
der ausl�ser des fehlers ist die zeile
result:=strpas(perg^.bstrval);
bstrval schein nicht mehr zu exestieren. Leider bekomme ich gar keinen
r�ckgabewert von der funktion

wei� jemand rat

r. zimmerningkat