W 1057 Implizite String-Umwandlung Ansistring zu string

[himitsu]

Schlimm ist, es gibt noch andere Strg+O+...-Kombinationen.
Wer läßt ich sowas denn einfallen? :wall:

[ChrisE]

Zitat:

Zitat von himitsu (Beitrag 1092851)

Schlimm ist, es gibt noch andere Strg+O+...-Kombinationen.

Gibt es irgendwo eine Referenz/Verzeichnis von solchen Tastenkombinationen?

Gruß, Chris

[himitsu]

eine Vollständige hatte ich noch nicht gesehn, genauso wie es nirgendwo eine
vollständige Liste aller Compilerschalter gibt.

delphi ide shortcuts

[xnLucas]

Umwandlung - Ansistring in String;

Zitat:

function asString(value: Ansistring): String;
var
i,l: integer;
begin
l:=length(value);
setlength(result,l);
for i := 1 to l do result[i]:=char(value[i]);
end;

Die Funktion funktioniert tadellos und ist genau das Gegenstück zu der
Function ansistring(value: string): ansistring;

Performancemässig bin ich mit dieder Function nicht zufrieden.
Kann mir die evtl. einer in assembler umschreiben?

zu Info die
function string(value: ansistring): String
liefert nicht das gleiche Ergebnis

[himitsu]

Delphi-Quellcode:

// explizite Umwandlung
function asString(value: AnsiString): String;
begin
  Result := String(value);
end;

// implizite Umwandlung
function asString(value: AnsiString): String;
begin
  Result := value;
end;

Und

Delphi-Quellcode:

string

isr keine Funktion, sondern ein Type-Cast (Typumwandlung).
Und natürlich liefert sie nicht unbedingt das gleiche Ergebnis, da sie die Codierung des AnsiString berücksichtig.

MultiByteToWideChar und zu noch die gewünschte CodePage.
PS: Die obrigen Type-Casts nutzen dieses auch, nur eben mit CP_ACP als Codepage.

[xnLucas]

Hallo himitsu,

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

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;

[himitsu]

man kann's auch noch etwas kürzen

Delphi-Quellcode:

PAnsiChar(value), len , PWideChar(Result), len);