-
Forum: Object-Pascal / Delphi-Language
Delphi
by xZise,
26. Mär 2009
Hi Blup,
Entschuldige das ich erst jetzt antworte, aber kann es sein, das du ASize als "Length" interpretiert hast?
MfG
xZise
-
Forum: Object-Pascal / Delphi-Language
Delphi
by xZise,
9. Mär 2009
Also alternativ jeden einzelnen Wert kopieren? Oder gibt es eine "bessere" Alternative?
MfG
xZise
-
Forum: Object-Pascal / Delphi-Language
Delphi
by xZise,
7. Mär 2009
Hallo ich bins wieder,
ich habe jetzt hier eine "Stresstest"-Version.
Bei mir kann ich nur IntegerList verwenden ohne Fehlermeldungen.
MfG
xZise
-
Forum: Object-Pascal / Delphi-Language
Delphi
by xZise,
28. Feb 2009
Eigentlich ist der Inhalt immer in Ordnung.
MfG
xZise
-
Forum: Object-Pascal / Delphi-Language
Delphi
by xZise,
28. Feb 2009
Hallo Sebastian,
ich vermute es liegt am ehesten an den "Move"-Befehlen. Ich werde mal gucken, in wie fern ich da was rausbekomme.
Okay, ich habe alle "Move"-Befehle manuell implementiert (in TMainList!) und es funktioniert. Wobei nur das "Move" in "MoveContent" aufgerufen wird:
procedure TMainList.MoveContent(const AFrom, ATo, ASize: Integer);
var
i, ValueCount: Integer;
ValueBuffer...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by xZise,
28. Feb 2009
Hallo ihr,
ich habe es nun hingekriegt die Fehlermeldung auszugeben. Das Ergebnis ist im Anhang. Eine Sache: Ich habe den Code etwas verändert.
In UHaupt:
procedure TFLiberate.FormCreate(Sender: TObject);
begin
Datenbank := TDatenbank.Create(ExtractFilePath(ParamStr(0)) + 'db');
ReportMemoryLeaksOnShutdown := true;
-
Forum: Object-Pascal / Delphi-Language
Delphi
by xZise,
27. Feb 2009
Naja ich hatte es gedownloadet und entpackt und zu der Form sowie zum Projekt (an erster Stelle) "FastMM4" hinzugefügt. Aber weiter kam ich dann halt nicht.
MfG
xZise
-
Forum: Object-Pascal / Delphi-Language
Delphi
by xZise,
27. Feb 2009
Ah okay.
Normalerweise denke ich immer an die Rückwärtige Schleife. Ich probiere es gleich mal aus!
Aber du meinst die falsche TIntegerListList ^^, aber wenn ich die Schleife in UZeilen umdrehe hat das keine Auswirkung.
Und wie sieht es mit FastMM aus? Also ich habe mir jetzt FastMM4 gedownloadet, aber wie erhalte ich genauere Angaben?
MfG
xZise
-
Forum: Object-Pascal / Delphi-Language
Delphi
by xZise,
26. Feb 2009
Okay habe ich eigentlich auch:
destructor TMainList.Destroy;
begin
Clear;
ResizeArray(0);
inherited;
end;
procedure TMainList.Clear;
begin
-
Forum: Object-Pascal / Delphi-Language
Delphi
by xZise,
26. Feb 2009
Also ich bin mir da nicht so sicher. Bei Clear sollte ich das Array wirklich einmal resizen. Aber ansonsten ist das ja ein dynamisches array von TVarRec, welches ja an sich automatisch "freigegeben" wird?
MfG
xZise
-
Forum: Object-Pascal / Delphi-Language
Delphi
by xZise,
26. Feb 2009
Genau das ist das Problem, und genau deshalb glaube ich, dass ich irgendwo in den Listen unsauber gearbeitet habe.
Genau deshalb verwenden wir im eigentlich Projekt die alten Varianten, aber die neue ist halt (meiner Meinung nach) besser :P
Da der Fehler auftritt, wenn ich eine von beiden neuen Listen verwende, glaube ich, liegt es an der TMainList.
MfG
xZise
-
Forum: Object-Pascal / Delphi-Language
Delphi
by xZise,
26. Feb 2009
Tach Sebastian,
aber das hat dann nichts mehr mit freigeben zu tun. Weil folgender Code funktioniert:
procedure TFLiberate.FormCreate(Sender: TObject);
begin
Datenbank := TDatenbank.Create(ExtractFilePath(ParamStr(0)) + 'db');
ReportMemoryLeaksOnShutdown := true;
Exemplarliste := TExemplareZeilenListe.Create;
Kursliste := TKursZeilenListe.Create;
-
Forum: Object-Pascal / Delphi-Language
Delphi
by xZise,
26. Feb 2009
Hallo Sebastian und Frank,
Wann kommen die Speicherlecks? Nachdem der Fehler kommt? Naja wenn man davon ausgeht dass er das Objekt nicht zerstören konnte?
Man beachte das Kommentar. Es ist egal, welchen Befehl ich von beiden ausführe. Bei "Delete(0)" dürfte ja auch kein Fehler kommen.
-
Forum: Object-Pascal / Delphi-Language
Delphi
by xZise,
25. Feb 2009
Ich möchte ja nicht stören, wüsste aber gerne, was ich da verbrochen habe :)
MfG
xZise
-
Forum: Object-Pascal / Delphi-Language
Delphi
by xZise,
24. Feb 2009
Hallo,
wenn ich die alte Variante von meiner UIntegerList/UBooleanList verwende, bekomme ich keine Fehler. Also vermute ich die Probleme dort.
Aber ich weiß nicht, was ich da falsch mache.
MfG
xZise
-
Forum: Object-Pascal / Delphi-Language
Delphi
by xZise,
23. Feb 2009
Hallo Sebastian,
OwnObjects ist bei diesen Listen auf true. Aber daran dürfte es nicht liegen, wobei ich da misstrauisch geworden bin :mrgreen: Naja ich habe mich mal daran gesetzt den Code zu entschlacken. Und das Ergebnis hänge ich einfach mal an!
Übrigens ist der Fehler (oder ein anderer?) wo anders. Ich bin der Sache mal auf der Spur.
Damit ihr wisst wo ihr suchen solltet:
Der...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by xZise,
23. Feb 2009
Hallo ihr,
ich habe ein seltsames Problem mit einem Schulprojekt. Und zwar habe ich eine von TObjectList abgeleitete Liste welche Objekte vom Typ TExemplarZeile beinhalten. Diese hat als Vorfahre die Klasse TZeile. Jetzt gibt es noch eine zweite ListenKlasse welche Objekte von Typus TKursZeile aufnimmt. Wenn ich nun die erste mit Daten fülle, kann ich nicht mehr das erste Objekt der zweiten...