Delphi7 mit nur einer Unit Unicode fähig machen

[Delphi-Laie]

Bei Turbo-Delphi muß es ab Zeile 1740 so aussehen:

Delphi-Quellcode:

function GetCharacterPlacementUnicode(DC: HDC; p2: PChar; p3, p4: Integer;
  var p5: TagGCP_ResultsW; p6: cardinal): cardinal; stdcall;
var wsbuf : TDynWSbuf;
    ii    : integer;
begin
  ii     := ConvertToWideChar(p2,p3,wsbuf,false);
  Result := windows.GetCharacterPlacementW(DC,@wsbuf[0],ii,p4,p5,p6);
end;