Zitat von
Muetze1:
Der Fehler muss woanders auftreten, da es hier kein StrToInt() Aufruf gibt.
Ja danke. (Frage mich wir du erkannt hast das es um "StrToInt" geht
Lag an anderer stelle und war ein problem mit
UniCode
Delphi-Quellcode:
for p := 0 to WStyleList.Count - 1 do
begin
x := pos(',', WStyleList.Strings[p]);
WValue.Add(AnsiMidStr(WStyleList.Strings[p], x + 1,
StrLen(PWideChar(WStyleList.Strings[p]))));
WStyleList.Strings[p] := AnsiMidStr(WStyleList.Strings[p], 1, x - 1);
end;
bei PAnsiChar kracht es da die nachfolgenden Buchstaben hinter ´
StrLen(PWideChar(WStyleList.Strings[p]))))
abgeschnitten werden.
Dann bleibt von
format('$%8.8x'
nur noch ein "$" übrig.
Bei der abfrage von wert
Ivalue := StrToInt(WValue.Strings[p]);
kracht es dann natürlich.
Seltsam aber das der Compiler in der zeile stehen bleibt
GetSys := GetOperatingSystem;
und nicht hier
Ivalue := StrToInt(WValue.Strings[p]);
in einer ganz anderen procedure wo der Fehler auftritt.
Und der witz die ist nicht mal in der gleichen
Unit.
gruss Emil