W 1057 Implizite String-Umwandlung Ansistring zu string

[xnLucas]

Hallo himitsu,

vielen Dank für den Hinweis, ich hab es es jetzt folgendermaßen gelöst.

Code:

function asString(value: Ansistring): String;
var
    len : integer;
begin
    len:=length(value);
    SetLength(Result, len );
    if len > 0
     then MultiByteToWideChar(Cp_ACP, MB_PRECOMPOSED,
      PansiChar(@value[1]), len , PWideChar(@Result[1]), len);
end;