-
Forum: Object-Pascal / Delphi-Language
Delphi
by Nogge,
31. Okt 2005
Es gibt eine aufwendige, dafür aber perfekte Lösung, um allgemein Werte in Data zu speichern:
PIntRec = ^TIntRec;
TIntRec = record
Value : Integer;
end;
var
DataPointer:PIntRec;
{ -- Data mit Daten füllen -- }
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Nogge,
10. Sep 2005
Ah, ok...Danke dir!
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Nogge,
28. Jul 2005
Es war ein Integer-Wert, ja. Dann ist das natürlich logisch^^
Ich konnte allerdings auch negative Werte einsetzen und auslesen, dabei dachte ich, dass ein Pointer auf eine Speicheradresse zeigt, die bei 0 startet *verwirrt*. So würde der Zeiger ja ins nichts bzw. negativen nicht vorhandenen Bereich zeigen. Wird dabei kein Fehler ausgelöst?
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Nogge,
22. Jul 2005
Ich habe früher eine weitere Methode benutzt, um eine Variable in Data zu speichern. Damals bin ich mit Data so umgegangen:
// speichern
Node.Data:=Pointer(Variable);
// laden
Variable:=VariablenTyp(Node.Data);
Die Variante hat IMMER funktioniert, jedoch kann ich damit nicht mehr als einen Wert speichern. Dazu eine Frage: Wie wird hier mit dem Speicher umgegangen, d.h. wieso...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Nogge,
22. Jul 2005
Ja, Leute...ist ja jut..ER konnte (!) es nicht machen, da er den Code bisher nur theoretisch (ja ich weiß, fehlerhaft), d.h. ohne zu kompilieren, durchgegangen ist. Ja, ich habe Fehler gemacht, zufrieden? Danke.
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Nogge,
22. Jul 2005
Gut, danke euch allen.
Habe durch diesen Thread jetzt erst richtig verstanden, wie es sich mit Node.Data und Pointer verhält^^
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Nogge,
22. Jul 2005
Ich benutze Node.Data so:
type
TGroupData = record
GroupID : Word;
ShouldExpand : Boolean;
end;
PGroupData = ^TGroupData;
{...}
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Nogge,
22. Jul 2005
Ich benötige kein zusätzliches
Dispose(Node.Data)
?
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Nogge,
22. Jul 2005
mmh, ich glaube, ich habe denn einen echten Speicherfresser^^ Wie gebe ich den Pointer Node.Data wieder frei?
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Nogge,
22. Jul 2005
Genial !! Das ist natürlich die perfekte Lösung. Viele Dank, Waldteufel.
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Nogge,
21. Jul 2005
(Habe gerade gemerkt, dass ich für dieses Thema schon mal einen Thread erstellt hatte o_O)
Trotzdem viele Dank, Flocke!
Ich muss nur noch zusätzlich vor jedem Ausgabewert einer Function dies schreiben:
Root:=TTreeNodeEx(TreeView1.Items.Add(nil,'Root1'));
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Nogge,
21. Jul 2005
Könntest du mir deine Antwort als Source Code liefern, Flocke? Ich kann viel besser Code als Worte verstehen^^
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Nogge,
21. Jul 2005
Wieso schreibste ne "Antwort", wenn du keine Ahnung hast?^^
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Nogge,
21. Jul 2005
Diese Variable habe ich bereits in Benutzung (Hätte ich vllt schon vorher sagen sollen^^)
-
Forum: Object-Pascal / Delphi-Language
Delphi
by Nogge,
21. Jul 2005
Hallo Community,
Ich möchte gern die class TTreeNode so um eine Variable erweitern, dass ich den erweiterten Typ immer noch der Standard-TreeView hinzufügen kann. Bisherige Versuche haben immer nur einen "Inkompatibelitätsfehler" verursacht ;_;
type
TTreeNode = class(ComCtrls.TTreeNode)
private
{ Private declarations }
ShouldExpand : Boolean;
end;