Exception beim SetLength für ein Array

[nwnssolutionssoftware]

Hallo Community,
leider habe ich mal wieder ein kleines Problem...
Ich bekomme beim SetLength eine Excpetion. Nutze aktuell dafür Lazarus vllt. kann mir ja jemand helfen

Hier mal kurz der Aufbau des Objektes...

Code:

  TConnection = class
    Name             : String;
    Unterverbindung  : Boolean;
    ID               : String;
    User             : String;
    Pass             : String;
    UName            : String;
    UVorName         : String;
    Hauptcon         : String;
    repeaterip       : String;
    LetzteVerbindung : String;
    Image            : TPicture;
    Notes            : String;
    PCDATA           : String;
    Telefon          : String;
    procedure Clear;
    procedure Laden(dConnections: TDataSet);
    procedure Speichern(dConnections: TDataSet);
  end;

type

  { TConnectionListe }

  TConnectionListe = class
    Items : Array of TConnection;
    procedure Clear;
    function  Count:Integer;
    procedure Laden(dConnections : TDataSet);
    procedure SearchUnterCon(ID: String);
    procedure Speichern(dConnections : TDataSet);
  end;

Hier der Quellcode mit dem SetLength wo die Exception auftritt.

Code:

procedure TConnectionListe.Laden(dConnections: TDataSet);
var n : Integer;
begin
  if not dConnections.Active then dConnections.Open;
  dConnections.First;
  SetLength(Items, 100000);          <<<---- Hier tritt der Fehler auf
  n := 0;
  while not dConnections.EOF do
  begin
    Items[n].Laden(dConnections);
    Inc(n);
    dConnections.Next;
  end;
  SetLength(Items, n);
end;

[4dk2]

Was für ne exception denn genau?

[Der schöne Günther]

Ja, welche Exception denn überhaupt wäre sehr interessant.

Ich kenne Lazarus nicht, aber in Delphi lässt man sich oft gerne in die Irre führen dass der Debugger beim Anhalten bei einer Exception im Quelltext eine Zeile zu tief anstreicht, die Exception trat dann in Wirklichkeit eine Zeile darüber auf (dConnections.First; )

[himitsu]

In MessageBoxen/Fehlerdialogen von Delphi-Programmen und hoffentlich auch Lazarus (FCL) funktionirt Strg+C im Dialog
und dann Strg+V im Texteditor hier im Forum, zum kopieren des Textes.


Häufigste Fehler:

> OutOfMemory
Was das wohl sein wird?

> Zugriffsverletzung bei Adresse 00000irgendwas
TConnection.Create vergessen?

Ansonsten entweder ein alter Zeiger (Objekt schon freigegeben)
oder du hast irgendwo einen Buffer-Overflow hast dir dadurch das Speichermanagement des Arrays zerschossen.




PS:
SetLength(Items, dConnections.RecordCount);
Und spaßig wird dein Code, bei über 100000 Records.

Warum TConnectionListe nicht von TList, TList<TConnection>, TDirectory<xxx,TConnection> oder Dergleichen erben lassen?
Wie die Syntax der Generics in Lazarus FreePascal ist, weiß ich nicht, aber sowas gibt es dort ja auch.

[Neutral General]

Du hast ziemlich sicher vergessen die TConnectionListe zu erstellen bevor du Laden aufrufst.

[KodeZwerg]

Zitat von himitsu:

Warum TConnectionListe nicht von TList, TList<TConnection>, TDirectory<xxx,TConnection> oder Dergleichen erben lassen?
Wie die Syntax der Generics in Lazarus FreePascal ist, weiß ich nicht, aber sowas gibt es dort ja auch.

Das war auch mein erster Gedanke, aber Du weißt Dich besser auszudrücken.

[nwnssolutionssoftware]

Vielen Dank für die vielen Anregungen...

Kopieren und Einfügen von Fehlermeldungen ist in Lazarus etwas schwierig, deswegen hier mal in abgetippter Variante:

Code:

Projekt XXXXX hat Exception-KLasse >> External:SIGSEGV << ausgelößt. Bei Adresse: 10000ED52

Es könnte durchaus möglich sein das ich vergessen habe das Objekt zu Create´n. Wüsste aber auch nicht spontan wie man sowas richtig macht dachte ein SetLength reicht für ein Array.

Danke im Vorraus

[nwnssolutionssoftware]

Um die 10000 zu erklären es ist relativ unwahrscheinlich das man mehr als 10000 Einträge anlegt. Deswegen habe ich mich dafür entschieden eine feste Grenze festzulegen. Aber klar man könnte es auch mit einem Record Count machen wobei ich da nicht weiß wie sich das bei einem Filter verhält.

Wovon man das Objekt am Ende erben lässt kann man sich auch drüber streiten. Muss aber auch dazu sagen das ist mein erstes Projekt was ich Objektorientiert programmiere, deswegen bin ich natürlich für Vorschläge offen.

[haentschman]

Zitat:

Es könnte durchaus möglich sein das ich vergessen habe das Objekt zu Create´n.

..dann hilft nur den QT hier einstellen. Ganze Unit oder komplett als ZIP.

Wie die anderen schon erwähnt haben:
Besser ist eine Liste für die "Items" Items : TObjectList; Kann Lazarus Generics? ...dann Items : TObjectList<TConnection>;

[sakura]

sSIGSEGV -> Speicherzugriffsverletzung. Hast Du evtl. vorher schon etwas mit Items gemacht? Geht es mit deutlich kleineren Werten, z.B. 10 (zum Test).

Ansonsten, ermittele zuerst die Anzahl and lege dann die Länge fest. Oder nutze, noch besser, eine TObjectList, bzw. TList<TConnection>. Wie auch immer, in vielen Situationen arbeitest Du wahrscheinlich mit nicht einmal 10 Objekten, also warum den Speicher so nutzlos verbrauchen? Auch wenn es nur Pointer sind, reden wir am Ende über ein paar MB sinnlos verschwendeten Speichern, wenn Du es des Öfteren so handhabst.

.....

P.S. Wenn Du schon mit 100000 Objekten rechnest, dann kommt irgendwann jemand mit mehr. Ist leider einfach so

P.P.S.: In der Erklärung schreibst Du 10000, im Code sind es 100000. Bist Du Dir sicher, bei der anzunehmenden Menge.