HTML? decodieren

[sakura]

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.

......

[hitzi]

Stimmt Mach doch sofort - danke

[hitzi]

Gibt es eigentlich eine Möglichkeit diese zeile zu optimieren:
for i := 0 to len - 1 do result := result + res[i]; Oder macht das keinen Sinn?

MfG Hitzi

[sakura]

Zitat von hitzi:

Gibt es eigentlich eine Möglichkeit diese zeile zu optimieren

Ja

Result := Res , den Rest macht Delphi.-

......

[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 von hitzi:

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

Na gut, dann halt so:
Result := WideString(PWideChar(@Res[0])); ......

[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