HTML? decodieren

[sakura]

Zitat:

Zitat von hitzi

das war der richtige Hinweis. Habe SizeOf() in Length() abgeändert und nun funktioniert es.

Schreibe doch gleich Deine Variable len rein, die ist doch noch gesetzt und hat den richtigen Wert.

...:cat:...

[hitzi]

Stimmt :) Mach doch sofort - danke

[hitzi]

Gibt es eigentlich eine Möglichkeit diese zeile zu optimieren:

Delphi-Quellcode:

for i := 0 to len - 1 do result := result + res[i];

Oder macht das keinen Sinn?

MfG Hitzi

[sakura]

Zitat:

Zitat von hitzi

Gibt es eigentlich eine Möglichkeit diese zeile zu optimieren

Ja :mrgreen:

Delphi-Quellcode:

Result := Res

, den Rest macht Delphi.-

...:cat:...

[hitzi]

Nope, das hatte ich schon ausprobiert! Fehler -> Inkombatible Typen: String und Dynamic Array

MfG Hitzi

[mirage228]

Hi,

ich glaube diese Zuweisung geht nur bei Arrays fester Länge.

mfG
mirage228

[sakura]

Zitat:

Zitat von hitzi

Nope, das hatte ich schon ausprobiert! Fehler -> Inkombatible Typen: String und Dynamic Array

Na gut, dann halt so:

Delphi-Quellcode:

Result := WideString(PWideChar(@Res[0]));

...:cat:...

[hitzi]

Danke - funktioniert :)


Hitzi

[hitzi]

Wie macht man das wieder rückgängig?

Mit folgender Funktion funktionierts leider nicht so wie gewollt:

Delphi-Quellcode:

function StrToAnsi(s : WideString) : AnsiString;
var len : integer;
begin
  result := '';
  len := WideCharToMultiByte(CP_ACP, 0, PWideChar(s), - 1, nil, 0, nil, nil);
  if len > 0 then  begin
    setlength(Result, len);
    WideCharToMultiByte(CP_ACP, 0, PWideChar(s), -1, Pchar(Result), len, nil, nil);
  end;
end;

Ich übergeben "Töne" an die Funktion und die liefert mir auch "Töne" wieder zurück und nicht wie erwartet 'T' + #$C3#$B6 + 'ne'

Woran liegt das?


Mfg Hitzi