Einem Array of WChar einen String zuweisen

[himitsu]

Delphi-Quellcode:

Type TData = Record
  sztPortName: Array[0..63] of WChar;
End;

Var S: String;
  WS: TData;



StringToWideChar(S, @WS, Min(Length(S) + 1, 64));

[add]
Wenn der String (S) immer mindestens 63 Zeichen lang ist, dann geht auch das:
StringToWideChar(S, @WS, 64);

http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif