Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Chemiker,
30. Mär 2007
Hallo marabu,
nein der Compiler meckert nicht. Wenn der Knoten gelöscht ist, ist doch auch der Zeiger von Data gelöscht oder?
Ich muss mir morgen das ganze noch einmal genau ansehen.
Bis bald Chemiker
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Chemiker,
30. Mär 2007
Hallo marabu,
danke für die schnelle Antwort.
procedure TForm1.TreeView1Deletion(Sender: TObject; Node: TTreeNode);
var z: integer;
begin
// Speicher wieder aufräumen!
Node.delete;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Chemiker,
30. Mär 2007
Hallo marabu,
haben Deinen Vorschlag aufgegriffen aber der Compiler meldet dann ‚Ungültiger Index’.
procedure TForm1.TreeView1Deletion(Sender: TObject; Node: TTreeNode);
var z: integer;
begin
// Speicher wieder aufräumen!
For z:=TreeView1.Items.Count-1 downto 0 do
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Chemiker,
30. Mär 2007
Hallo,
jetzt funktioniert es, ich habe beim ersten Versuch übersehen das nur ein Zeiger übergeben wird und so wurden nur vom letzten Object die Daten angezeigt.
for I := 1 to Anzahl do
begin
MSBez.MSLesen:= i;
For z:=0 to TreeView1.Items.Count -1 do
begin
if (TreeView1.Items.Text = MSBez.MaBez) then
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Chemiker,
30. Mär 2007
Hallo Jelly,
und wie kann ich das ändern?
Bis bald Chemiker
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Chemiker,
30. Mär 2007
Hallo marabu,
Die in 'Daten' abgespeicherten Daten unterscheiden sich.
So werden die Objecte im TreeView gespeichert.
for I := 1 to Anzahl do
begin
MSBez.MSLesen:= i;
For z:=0 to TreeView1.Items.Count -1 do
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Chemiker,
30. Mär 2007
Hallo,
ich habe ein Problem beim Anklicken eines Knoten in einem TreeView möchte ich das Object was an TreeView.Data hängt wieder auslesen. Nun ist es egal welchen Konten ich anklicke, es wird immer im Data das letzte Object zurückgegeben. Woran kann es liegen, was machen ich falsch?
procedure TForm1.TreeView1Click(Sender: TObject);
var MSBez3: TMSV1;
strTest: string;
Index:...