Ergebnis der Suchanfrage

• Forum: Library: Algorithmen

  Re: Code7 (Ansi/Wide <> 7 Bit)

    Delphi
    by shmia, 27. Nov 2006
  Handelt es sich hierbei um UTF-7 ?
  Dann mein Vorschlag:
  function StringToWideStringEx(const S: string; CodePage: Word): WideString;
  var
  InputLength,
  OutputLength: Integer;
  begin
  InputLength := Length(S);
  OutputLength := MultiByteToWideChar(CodePage, 0, PChar(S), InputLength, nil, 0);
  SetLength(Result, OutputLength);