Hi,
mir ist beim Lesen auch noch etwas aufgefallen:
Delphi-Quellcode:
procedure TIntegerListList.Delete(
const AIndex: Integer);
begin
// next condition can not be True - or statt and
// genau so in: TIntegerListList.GetIntegerLists
if (AIndex < 0)
and (AIndex >= Count)
then
raise EIntegerListListError.CreateFmt(SListIndexError, [AIndex]);
FIntegerLists.Delete(AIndex);
FHeadInteger.Delete(AIndex);
Dec(FCount);
end;
Delphi-Quellcode:
procedure TZeilenListe.Delete(AIndexes: TIntegerList);
var
i: Integer;
begin
for i := 0 to AIndexes.Count - 1 do
Delete(AIndexes[i]);
end;
Kannst du garantieren, dass AIndexes absteigend sortiert ist? Sonst löscht du die falschen oder bist plötzlich ausserhalb des Bereiches.
Cu, Frank