EAccessViolation - finde den Fehler nach langer Suche nicht

[fapsons]

Hallo Leute,

ich bin ein wenig am verzweifeln. Suche nun seit Stunden den Grund dafür, warum ich direkt nach Programmstart einen EAccessViolation bekomme...

Der Fehler liegt in einer Klasse. Als das Programm noch lief, war sie wie folgt aufgebaut:

Delphi-Quellcode:

Unit DeclareTypes;
...
TSoftwarePaket = class
  private
      Software: TIntArray;
      ...
  protected
      procedure SetSprachVersion(lang: ShortInt);
      ... 
  puplic
      property Sprachversion:   ShortInt read GetSprachversion   write SetSprachversion;
      ...
...

procedure TSoftwarePaket.SetSprachVersion(lang: ShortInt);
begin
 case lang of
   1: software[9] := Prims[13]; //Deutsch
   2: software[9] := Prims[14]; //Englisch
 end;
end;

Habe dann gestern Abend folgende Veränderungen durchgeführt, seitdem läuft es nicht mehr:

Delphi-Quellcode:

Unit SetObject Values;
...
 reg := TSoftwarePaket.Create;
 reg.Ac_ID := 0;
...


Unit DeclareTypes;

type
    TCustomer = record
      ID :Integer;
      Company :String;
      CompanyType :String;
      PAdress :String;
      Software :TIntArray;
    end;

TSoftwarePaket = class
  private
      Customer: array of TCustomer;
      ...
  protected
      procedure SetSprachVersion(lang: ShortInt);
      ... 
  puplic
      Ac_ID :Integer;
      property Sprachversion:   ShortInt read GetSprachversion   write SetSprachversion;
      ...
...

procedure TSoftwarePaket.SetSprachVersion(lang: ShortInt);
begin
 case lang of
   1: customer[ac_ID].software[9] := Prims[13]; //Deutsch
   2: customer[ac_ID].software[9] := Prims[14]; //Englisch
 end;
end;

Kann mir jemand sagen, was ich falsch mache?


Vielen Dank!
Gruß
-fapsons--

[Klaus01]

Guten Morgen,

dieses Array "Customer: array of TCustomer;" wurde es schon mal initialisiert, bzw. wurde die
Länge gesetzt.

Grüße
Klaus

[fapsons]

Nein, wurde es nicht. Darf das nicht dynamisch bleiben? Wie initialisiere ich es am besten richtig?

[Klaus01]

Nun, die Länge kannst Du mit SetLength(dazu einmal die Hilfe befragen) dynamisch anpassen.
Wenn die Länge noch nicht gesetzt wurde, hat das Array die Länge 0
und wenn Du etwas hineinschreiben willst knallt es.

Grüße
Klaus

[fapsons]

Super, vielen Dank für deine Hilfe. Ich war schon am verzweifeln...

Habe jetzt folgendes in den Constructor meiner Klasse TSoftware geschrieben.
Ist das so sinnvoll gelöst?

Delphi-Quellcode:

constructor TSoftwarePaket.Create;
begin
 inherited;
 setlength(self.Customer, 9999);
 Init;
 Get_INI_Prims;
end;

[IngoD7]

Es ist immer schwer, sich tausend Ratschläge anhören zu müssen, die mit der hinterfragten Problematik nichts direkt zu tun haben, aber ich möchte trotzdem hier einen geben (auch weil du gerade nach sinnvoll fragst):

Mache aus TCustomer eine eigene Klasse (kein Record). Und dann nehme kein Array für Customer, sondern eine Liste (TStringList (kann auch Objekte speichern) oder TObjectList).
Dann musst du dir über die (Array-)Länge deiner Benutzerliste keine Gedanken machen.

(P.S.: Tue dir selbst einen Gefallen und bennene Klassenfelder (also die meist privaten oder protected Variablen in Klassen) mit einem vorangehenden F ---> also FCustomer : TIrgendwas.
Oft hast du eine dazugehörige Property - die würde/könnte dann Customer heißen.)

[sirius]

Es ist nicht sinn der Sache ein dynamisches array auf einen festen Wert zu legen (dann kann man auch gleich ein statisches nehmen) du musst es halt auf deine Kundeanzahl festlegen.

[yörsch]

Merk dir doch wieviele einträge du hast...
bei New oder Add wird mit

Delphi-Quellcode:

inc(count);
setlength(self.Customer, count);

sollte es dann keine Probleme geben...

[Muetze1]

Zitat von yörsch:

Merk dir doch wieviele einträge du hast...

Wozu? Die kann er jederzeit mit Length() abfragen. Diese unsinnige Count Variable bei dynamischen Arrays haben bei mir schon öfters kopfschütteln ausgelöst.

Beispiel:setlength(self.Customer, Length(Self.Customer)+1);

[mkinzler]

Es ist nur zu überlegen die Größe dynamische Arrays nicht in 1er-Schritten zu verändern, da das sehr and der Performance der Anwendunng nagen kann