۱۰-بهمن-۱۳۸۸, ۰۴:۲۲:۰۴
۱۰-بهمن-۱۳۸۸, ۱۰:۵۲:۲۰
این یه نمونه به دلفی هست البته از دلفی 2009 به بعد به طور مستقیم از یونیکد پشتیبانی میشه
کد:
var Test,Test1:PWideChar;
i : integer;
sm : string;
begin
Test := AllocMem(length(s)*2);
try
Test1:=StringToWideChar(s,Test,length(s)*2);
result := '';
sm := '';
for i := 0 to Length(Test1) do begin
//Result := Result +
sm := sm + ' ' + inttostr(ord(test1[i]));
end;
WriteToLog('Test=' + sm);
finally
// Test1 wird hierdurch auch ungültig
FreeMem(Test,length(s)*2);
end;