Forum: Object-Pascal / Delphi-Language
Delphi
by ozz,
22. Mär 2007
Hallo IngoD7,
ich habe mich in letzter Instanz entschieden, den Tip von Jelly angenommen. Daher habe ich jetzt keinen eigenen Destructor mehr, sondern den der Klasse TObjectlist. Den Test, nach dem du gefragt hast, habe ich vor diese letzten Änderung gemacht. Momentan sieht die Klasse so aus.
type TStreamlist= class (TObjectlist)
private
function GetStream(Index: Integer):...
Forum: Object-Pascal / Delphi-Language
Delphi
by ozz,
21. Mär 2007
Hallo IngoD7,
herzlichen Dank für den Hinweis. Ich habe dich verstanden und auch dein Anliegen. Ich habe die Test genau so gemacht, wie du es vorgeschlagen hast. Ich habe auch das Free eingebaut und das Delete entfernt. Danke nochmal!
Forum: Object-Pascal / Delphi-Language
Delphi
by ozz,
21. Mär 2007
Hallo Kedariodakon,
GENAU! :wall:
Forum: Object-Pascal / Delphi-Language
Delphi
by ozz,
21. Mär 2007
Hallo Kedariodakon,
eigentlich sollte der "Käse" nur den Stream umkopieren, die aus einem Thread kommen. Der wird zerstört,wenn der Thread beendet wird. Das war je in diesem Fall genau das Problem. Prinzip wie im vorheriges Posting.
Forum: Object-Pascal / Delphi-Language
Delphi
by ozz,
21. Mär 2007
Hallo Leute ich habe es gefunden. Nochmal vielen Dank für die vielen Tips.Falls es jemand wissen will, hier die Ursache :wall:
procedure ThreadResult(ContentStream: TStringStream);
....
Content:=TStringStream.Create('');
Content.Position:=0;
ContentStream.Position:=0;
Content.CopyFrom(ContentStream,ContentStream.Size);
index:=FResultlist.Add(Content);//<-war vorher...
Forum: Object-Pascal / Delphi-Language
Delphi
by ozz,
20. Mär 2007
Hallo Leute,
herzlichen Dank für die vielen Tips. Ich bin gerade noch dabei, diese durchzutesten. Bisher nur mit wenig Erfolg. Damit gehe sehr stark davon aus, das das Problem wo anders ist. Da ich es bis noch nicht geblickt habe, poste ich einfach mal den restlichen Code. Ist echt Mist, wenn man den Wald vor lauter Bäumen nicht mehr sieht.
Besten Dank!
type TStreamlist= class (TObject)...
Forum: Object-Pascal / Delphi-Language
Delphi
by ozz,
20. Mär 2007
Hallo zusammen,
Vielen Dank für die Tips.
ich habe noch etwas ausprobiert und dabei festgestellt, das mein FStreamObjectList.Count sinnvolle Werte enthält, aber ich immer noch eine Zugriffsverletzung bekomme,wenn ich FREE oder Delete oder Clear verwende.Ich dachte, ich gebe das Object an einer anderen Stelle schon frei. Finden konnte ich es bisher noch nicht. Kann es noch etwas anderes sein?
...
Forum: Object-Pascal / Delphi-Language
Delphi
by ozz,
19. Mär 2007
Hallo Leute,
ich habe irgendwie ein kleines Problem beim Löschen aus meiner TOjectlist. Rufe ich im Destructor das Delete auf, bekomme ich eine Zugriffsverletzung. Ersezte ich delete durch free (ohne Schleife) bekomme ich den gleichen Fehler. Ich blicks irgendwie nicht. :gruebel:
Dankbar für jeden Tip.
type TStreamlist= class (TObjectlist)
private
FStreamObjectList:TObjectlist;...