AnsiString an Threads schicken (PostThreadMessage)

**AJ_Oldendorf**

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

AnsiString an Threads schicken (PostThreadMessage)

AW: AnsiString an Threads schicken (PostThreadMessage)

Forumregeln