Hallo,
vielleicht kann mir noch einmal jemand helfen. Beiliegender Programmcode erzeugt in folgender Prozedur eine Zugriffsverletzung:
Delphi-Quellcode:
procedure TStromkreis.Add_Leuchte(vAdresse : integer; vZielort: string);
var idx : integer;
vLeuchte : TLeuchte;
begin
idx := get_Anzahl_Leuchten + 1;
SetLength(FLeuchten, idx + 1);
vLeuchte := TLeuchte.create;
FLeuchten[idx] := vLeuchte;
FLeuchten[idx].Adresse := vAdresse;
FLeuchten[idx].Zielort := vZielort;
end;
Und ich habe leider keine Ahnung, warum dies so ist. Anscheinend existiert etwas nicht mehr die Länge von der Funktion get_Anzahl_Leuchten ist auf einmal ziemlich groß.
mfg
Stefan