String to PWideChar, wie wird es gemacht ?

[turboPASCAL]

Zitat von turboPASCAL:

Hi,

ich habe ein kleines Problem mit der Umwandlung eines (Delphi6-Ansi)Strings in einen PWideChar-Typen.

Delphi-Quellcode:

function StringToPWideChar(const s: AnsiString): PWideChar;
var
  len: integer;
begin
  //Result := StringToOleStr(s);  {StringToOleStr & SysFreeString haben ein Memleakproblem }

  len := MultiByteToWideChar(CP_ACP, 0, PAnsiChar(s), -1, nil, 0);
  GetMem(Result, Len+1);
  MultiByteToWideChar(CP_ACP, 0, PAnsiChar(s), -1, Result, Len);
end;

function FreePWChar(ws: PWideChar): Bool;
begin
  //SysFreeString(ws);

  if ws <> nil then FreeMem(ws);
end;

//Edit:
So klappts:

Delphi-Quellcode:

function StringToPWideChar(const s: AnsiString): PWideChar;
var
  len: integer;
begin
  //Result := StringToOleStr(s);

  if s <> '' then
  begin
    len := length(s);
    GetMem(Result, Len * 2);
    MultiByteToWideChar(CP_ACP, 0, PAnsiChar(s), -1, Result, Len);
  end else
    Result := #0;
end;

function FreePWChar(ws: PWideChar): Bool;
begin
  //SysFreeString(ws);

  if ws <> nil then FreeMem(ws);
end;

[turboPASCAL]

*löscht mich*

[Bernhard Geyer]

Zitat von turboPASCAL:

GetMem(Result, Len * 2);

Besser wohl noch 2 Byte mehr damit auch für das \0 als String-Abschlusszeichen platz ist.

[turboPASCAL]

Hm, wenn ich einen Platz von 24 Chars reserviere und dieser wird voll ausgelastet mit 24 Zeichen, muss der dennoch "genullt" werden ?

[Apollonius]

Auf jeden Fall. Sonst weiß der Benutzer des PWideChars ja gar nicht, wo der String aufhört.

[Bernhard Geyer]

Zitat von turboPASCAL:

Hm, wenn ich einen Platz von 24 Chars reserviere und dieser wird voll ausgelastet mit 24 Zeichen, muss der dennoch "genullt" werden ?

Ja. P(Wide)Chars haben im gegensatz zum Delphi (Wide)String keine längenangabe sondern nur die Regel: "Lies alle Zeichen bis zum ersten \0". Deshalb auch der Name "Nullterminierter String"