Delphi-Quellcode:
//Hier gibt es ein Error!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Val.free;
end;
Reg.free;
//Hier das Ergebnis der Suche
Result:=Val.Count;
Von einen freigegeben objekte kanst du nichts verlangen
Delphi-Quellcode:
//Hier gibt es ein Error!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Result:=Val.Count;
Val.free;
end;
Reg.free;
//Hier das Ergebnis der Suche