直接赋值or var wideCharArray : array[0..5] of WideChar; myString : String;begin // Set up our WideChar array wideCharArray[0] := 'H'; wideCharArray[1] := 'e'; wideCharArray[2] := 'l'; wideCharArray[3] := 'l'; wideCharArray[4] := 'o'; wideCharArray[5] := #0; // Terminates WideChar strings // Copy to a normal string myString := WideCharToString(wideCharArray); // Show what the copy gave ShowMessage(myString); end;
wideCharArray : array[0..5] of WideChar;
myString : String;begin
// Set up our WideChar array
wideCharArray[0] := 'H';
wideCharArray[1] := 'e';
wideCharArray[2] := 'l';
wideCharArray[3] := 'l';
wideCharArray[4] := 'o';
wideCharArray[5] := #0; // Terminates WideChar strings // Copy to a normal string
myString := WideCharToString(wideCharArray); // Show what the copy gave
ShowMessage(myString);
end;