Forum: Sonstige Fragen zu Delphi
Delphi
by s.h.a.r.k,
12. Dez 2005
Guten Morgen :wink:
Hab jetzt die Komponente umgeschrieben - mit TObjectList - und hat bisher wunderbar geklappt! Hab sogar dann mein eigenes FCount wegfallen lassen können, da ich das ja dann mit dem TObjectList mitgeliefert bekommen habe.
Also ich mag ja wirklich nicht nerven mit meinem Problem, aber zurzeit klappt es ja auch mit dem TObjectList, allerdings nur wenn ich die...
Forum: Sonstige Fragen zu Delphi
Delphi
by s.h.a.r.k,
9. Dez 2005
Hab nun im Anhang ein kleines Programm, mit dem ich meinte Komponente getestet habe...
Forum: Sonstige Fragen zu Delphi
Delphi
by s.h.a.r.k,
9. Dez 2005
Also ganz zu Beginn muss ich zu meiner Verteidigung noch sagen, dass dies meine erste Komponente ist, die ich programmiere - habs halt bisher mit ein paar Tutorials zusammenklamüsert... :oops:
Nun gut, über eine "saubere" Syntax kann man sicherlich streiten, aber da hast du sicherlich nicht ganz unrecht. Habe halt bisher immer in diesem Stil programmiert und das von heute auf morgen mal so...
Forum: Sonstige Fragen zu Delphi
Delphi
by s.h.a.r.k,
9. Dez 2005
Das mit dem Array ar halt bisher mein Ansatz. Nur da sich das ganz nciht so verhält wie ich das gerne haben will, muss ich mir wohl was anderes einfallen lassen... Oder würde sich eventuell jemand bereit erklären mehrere Zeilen Code durchzuschauen und mir Tips geben?!?
So jetzt hab ich die Komponente im Anhang! Wäre echt klasse wenn einer von euch das mal durchschauen könnte!!! Vielen Dank...
Forum: Sonstige Fragen zu Delphi
Delphi
by s.h.a.r.k,
9. Dez 2005
Hm... nein, eben das nicht. Wenn ich das letzte lösche tritt da nie der Fehler auf, was ich allerdings etwas seltsam finde... daher verstehe ich auch nicht ganz warum es nicht klappen will. :gruebel:
PS: Kann es eventuell an meiner eigenen Destroy-Procedure liegen?! Die schaut nämlich wie folgt aus:
procedure TMyClass.Destroy;
begin
// FSub -> Unterklasse von TMyClass
FSub.Free;
...
Forum: Sonstige Fragen zu Delphi
Delphi
by s.h.a.r.k,
8. Dez 2005
Vielleicht habe ich mich etwas kompliziert ausgedrückt: Und zwar wie schon gesagt habe ich ein Array der Länge 10 und lösche nun z.B. das Fünfte über eine Procedure Delete, die wie folgt aussieht:
procedure TMyClass.Delete(Index: Integer);
var
i : Integer;
begin
MyArray.Free;
for i := Index to length(MyArray) - 2 do MyArray := MyArray;
setlength(MyArray, length(MyArray) - 1);...
Forum: Sonstige Fragen zu Delphi
Delphi
by s.h.a.r.k,
8. Dez 2005
Abend :wink:
Hab da grad ein Problem - denke wohl eher ein Verständnis-Problem: Und zwar habe ich ein variables Array, das von einem eigenen Typ ist, nehmen wir mal an von Typ TFont. Nun habe ich eine Procedure Add, mit der ich dem Array von mir aus 10 Einträge hinzufüge. Danach will ich den letzten Eintrag löschen und habe bisher das so gemacht:
MyArray.Free;
setlength(MyArray,...
