Methode einfügen auf statischer Liste

[Jasper]

Hi Leute,

ich möchte ein Datenverwaltungsprogramm programmieren und dazu brauche ich eine allgemeine Statische Liste die Objekte jeder Art verwalten kann. Nun kommt allerdings jedesmal wenn ich bei meinem Programm die Methode einfügen benutzen möchte die Exception EAccessViolation und ich weiß nicht wie ich die beheben kann. Damit ihr mir besser helfen könnt hier der Code der Methode, ich bitte Anfängerfehler zu entschuldigen, da ich noch nicht lange programmiere.

Delphi-Quellcode:

function CListe.Insert(NeuItem : TObject)  : boolean;
// -----------------------------------------------------------------------
//  Voraus: Die Liste initialisiert.
//
//  Effekt: Das neue Item wird grundsätzlich vor dem aktuellen
//          Item eingefügt.
//          Ist die Liste leer, wird das neue Item am Anfang einge-
//          fügt. Nach dem Einfügen ist die Listenlänge um eins erhöht,
//          und die Listenmarke zeigt auf das neu eingefügte Item.
// -----------------------------------------------------------------------
begin
  if (LiLaenge <1)
     then Result := Append(neuItem)
     else begin
          if (Lilaenge < Maxlistenlaenge)
             then begin
                  if not (swapup(LiPos))
                     then Result:= FALSE
                     else begin
                          Items[LiPos] := neuItem;
                          Result := TRUE //(LiLaenge wird von Swap Up verändert)
                     end;
             end;
     end;
end;
// -----------------------------------------------------------------------

Zur Erklärung dazu,
1. die Variable LiLaenge ist ein Integer der die Länge der Liste angibt.
2. Append ist eine methode die ich programmiert habe sie fügt nicht ein, sondern hängt das ganze nur an das Ende der Liste
3. Maxlistenlaenge ist eine Konstante die angibt, wieviel Items(Bestandteile) die Liste haben darf, bis sie voll ist.
4. die Methode swapup verschiebt alle Items ab der aktuellen Listenposition (LiPos) um eine Position weiter. So, dass eine Lücke zum Einfügen entsteht.
5. neu Item ist das was eingefügt werden soll

danke schon mal im vorraus, dass ihr euch mein Problem angehört habt und ich hoffe ihr könnt mir ein bisschen helfen

cu Jasper

[DGL-luke]

hmm... TObjectList und TList (unit cntnrs) eignen sich eigentlich hervoragend für "Objekte aller Art". warum nimmst du nicht das?

EDIT: warum "statische Liste"? was bedeutet das?

[Jasper]

na statische Liste heißt, dass ich vorher die maximale Größe festlegen muss.

wie bekomm ich denn raus, was für methoden TList und TObjectList haben

[DGL-luke]

- Code-Completion ( EIne T(Object)List-Instanz deklarieren, und dann Instanz. tippen, evtl. Strg+Space)
- [oh]TObjectList, TList[/oh]

EDIT:

Das übliche halt... add, insert, delete, items