Zoals ik in mijn eerste post aangaf "een sorted stringlist" aanmaken. Daarna heb ik aangegeven dat je FIndex.Sorted vergeten bent (wat GolexTrol ook heeft gemarkeerd in zijn voorlaatste post). Dus:Quote:
gedeclareerd tenzij dat verkeerd is.
Code:FIndex := TStringList.Create;
FIndex.Sorted := True;
PVirtualNode is een pointer, dus je kunt dat casten naar elk ander pointer type (zoals TObject). Het wordt dan:Quote:
[dcc32 Error] Unit1.pas(111): E2010 Incompatible types: 'TObject' and 'PVirtualNode'
Code:FIndex.AddObject(SwitchQuery.Fields.FieldByName ('Basename').AsString, TObject(Node));