Stark Gekürztes Grundgerüst mit den wichtigsten Elementen:
Delphi-Quellcode:
type
TState = (stOn = 0,
stOff);
TCustomList = class(TStringlist)
private
procedure SetState(Index : Integer; const Value : TState);
public
property State[Index : Integer] : TState write SetState;
end;
procedure TCustomList.SetState(Index: Integer;
const Value: TState);
begin
Self.Objects[Index] := TObject(Value);
end;
Aufgerufen wird das ganze über:
Delphi-Quellcode:
procedure Blabla;
var hList : TCustomList;
begin
hList := TCustomList.create;
hList.add('1. Eintrag');
hList.State[0] := stOn;
end;
solange ich das ganze unter Windows ausführe gibt es keine probleme alles funktioniert.
sobald ich es aber auf meinem Android Handy ausführe kommt genau an der Stelle :
hList.State[0] := stOn;
die fehlermeldung : "Zugriffsverletzung bei Adresse 5D4C2398 beim Zugriff auf Adresse 00000001
weis einer woran das liegen könnte?