Hallo,
deine direkten type casts würde ich mal prüfen.
Bist du sicher, dass
jAddr := TlkJSONlist(jMail.GetField('addr'));
eine "array" zurückliefert.
Das kannst du mit
is ja mal prüfen.
Ich sehe in der
Unit, dass GetField ein TlkJSONbase zurückgibt.
Davon sind ja dann alle anderen Klassen abgeleitet.
Ein
Delphi-Quellcode:
var
jBase: TlkJSONbase;
begin
jBase:= jMail.GetField('addr');
if jBase is TlkJSONlist then
begin
jAddr:= TlkJSONlist(jMail.GetField('addr'));
end
else
begin
Assert, oder was weiss ich
end;
ist ja (zumindestens beim Debuggen) nicht verkehrt.
ein
with jBase as TlkJSONlist
würde ich übrigens nicht nehmen, das Debuggen mit
is finde ich einfacher
Heiko