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