Hier ein Ausschnitt, wie der PAnsiString erzeugt wird:
Delphi-Quellcode:
function ErzeugeNachricht(InMsg : PAnsiString) : Boolean;
var
aStr : String[4];
begin
Result := True;
try
SetLength(InMsg^, 5);
aStr := '100';
Move (aStr[1], InMsg^[1], 3);
except
Result := False;
end;
end;
Var
MyMsg : AnsiString;
...
ErzeugeNachricht(@MyMsg);
SchickeNachricht(@MyMsg);
Hoffe habe nix übersehen, passe den Quelltext hier manuell bisschen an, weil es sonst zu viel wäre zum zeigen
Gruß
Alex