[D2009] Unicode in Ansi wandeln (und umgekehrt)?

**Whookie**

Hallo zusammen!
Ich hab nun mit D2009 einwenig gespielt und meine Libraries zu großen Teilen portiert. Übrig geblieben ist momentan die Frage, wie man korrekt Unicode Strings in ANSI-Strings zurückwandelt, wenn das von einer Funktion benötigt wird. Bzw. wie Ansi-Strings in Strings zu wandeln sind. Als Beispiel mag folgende Routine dienen:

zusammenfalten · markieren

Delphi-Quellcode:

			Type

  PPInAddr= ^PInAddr;

Function GetIpFromName(const Lines:TStrings; const AHost: String): Boolean;

Var

  iWSA: TWSAData;

  HostInfo: PHostEnt;

  Addr: PPInAddr;

  s: AnsiString;

Begin

  Result := False;

  If WSAStartUp(CSTACK_VERSION, iWSA) = 0 Then

  Begin

    s := AHost;                              // <- Warning! [DCC Warnung] iphlp.pas(125): W1058 Implizite String-Umwandlung mit potenziellem Datenverlust von 'string' zu 'AnsiString'

    s := AnsiString(AHost);                  // <- korrekt???

    HostInfo:= GetHostByName(PAnsiChar(s));

    Result:=HostInfo <> NIL;

    If Result Then

    Begin

      Addr:=Pointer(HostInfo^.h_addr_list);

      If (Addr <> NIL) And (Addr^ <> NIL) Then

      Begin

        Repeat

          Lines.Add(StrPas(inet_ntoa(Addr^^)) ) ;           // <- Warning: [DCC Warnung] iphlp.pas(134): W1057 Implizite String-Umwandlung von 'AnsiString' zu 'string'

          Lines.Add( String(StrPas(inet_ntoa(Addr^^))) ) ;  // <- korrekt?

          Inc(Addr);

        Until Addr^ = NIL;

      End;

    End;

    WSACleanup;

  End;

End;

[D2009] Unicode in Ansi wandeln (und umgekehrt)?

[D2009] Unicode in Ansi wandeln (und umgekehrt)?

Forumregeln