PAnsiChar nach PWideChar (D2K9), wie geht das?

[Alter Mann]

Hallo,

habe hier mit D2009 das 'kleine' Problem, das immer die Warnung
W1057: Implizite String-Umwandlung von 'AnsiChar' zu 'string' ausgegeben wird.

Beispiel:

Delphi-Quellcode:

function GetString(Stream : TStream; Len : Word) : PWideChar;
var
  FN : PAnsiChar;
begin
  FN := AnsiStrAlloc(succ(Len));
  Stream.Read(FN1 , Len);
  Result := WideStrAlloc(succ(Len));
  StrPCopy(Result, FN);  // <- W1057
  StrDispose(FN);
end;

Vorweg: Die Funktion macht das was sie soll, ich möchte nur die W1057 weg haben.
Der Datentyp von FN kann nicht geändert werden!

Irgend einer ein Tipp/Idee?

Viele Grüße

Alter Mann

[Uwe Raabe]

Zitat von Alter Mann:

habe hier mit D2009 das 'kleine' Problem, das immer die Warnung
W1057: Implizite String-Umwandlung von 'AnsiChar' zu 'string' ausgegeben wird.
...
Vorweg: Die Funktion macht das was sie soll, ich möchte nur die W1057 weg haben.

Die Umwandlung von AnsiString nach UnicodeString geschieht vollkommen transparent und ist im Allgemeinen harmlos. Probleme können lediglich da auftreten, wo beim Schreiben des AnsiStrings in den Stream eine andere CodePage benutzt wird als beim Lesen. Da du erwähnst, daß das Programm tut was es soll, kannst du einfach die Warnung in den Projekt-Optionen deaktivieren, wenn sie so stört.

[himitsu]

AnsiString <> WideString/UnicodeString geschiht automatisch

PAnsiChar <> PWideChar nicht, weil Delphi nicht einfach so Speicher reservieren kann, es ja nicht wissen kann, wie danach dieser Zeiger/Speicher verwaltet wird.
Die Folge wären massieve Speicerlecks.

StrPCopy will einen PWideString, aber FN ist ein AnsiChar.

StrPCopy(Result, WideString(FN)); Wenn Delphi da immernoch meckert aber PAnsiChar nach WideString sollte möglich sein, dann
StrPCopy(Result, WideString(AnsiString(FN)));
oder gleich so und einige Zwischenschritte einsparen

Delphi-Quellcode:

function GetString(Stream : TStream; Len : Word) : PWideChar;
var
  FN : AnsiString;
begin
  SetLength(FN, Len);
  Stream.Read(@FN1[1] , Len);
  Result := WideStrAlloc(succ(Len));
  StrPCopy(Result, WideString(FN));
end;

[Alter Mann]

Hi,

erst einmal Danke.

Die Lösung scheint dies zu sein:
StrPCopy(Result, WideString(FN)); Mal schauen ob es sich in Praxis bewährt.

Viele Grüße