das liegt nicht an Begin und End von der For-Schleife :
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
node: TTreeNode;
I: Integer;
data: PMyData;
Begin
node:=TreeView1.Items.GetFirstNode;
while Node <> nil do
if Node.level = 1 then
for i:= 0 to 3 do
begin
new( data);
data.Url := ListBox1.Items[i];
Node.Data := data;
Node := Node.GetNext;
end;
End;
Wenn ich das Programm kompiliere, dann erscheint zwar keine Fehlermeldung, bleibt das Programm unsichtbar bis ich mit ALT+Schift+Entf beande !!!
Ein Freund von mir hat das Problem mit einer anderen Idee gelöst, wollte ich aber gerne diesen Code weiterbearbeiten bis ich ihn zum laufen bringe.