wie kann ich in einer tlist solche Verlinkungen durchführen ?
ich hab mal folgenden code:
Delphi-Quellcode:
type
PMyList = ^AList;
AList = record
cat_id: Integer;
parent_id: Integer;
cat_name:string;
end;
procedure TForm2.cxButton1Click(Sender: TObject);
var
i:integer;
MyList: TList;
ARecord: PMyList;
begin
MyList := TList.Create;
mySQLQuery1.SQL.Text:='select * from categories where parent_ID = 0';
mySQLQuery1.Active:=True;
mySQLQuery1.First;
for i := 0 to mySQLQuery1.RecordCount-1 do
begin
New(ARecord);
ARecord^.cat_id := mySQLQuery1.FieldByName('cat_id').AsInteger;
ARecord^.parent_id := mySQLQuery1.FieldByName('parent_id').AsInteger;
ARecord^.cat_name := mySQLQuery1.FieldByName('cat_name').AsString;
MyList.Add(ARecord);
mySQLQuery1.Next;
end;
end;
Ich bitte euch um ein paar Tips, ich glaub ich steh auf´n Schlauch
