Der Quellcode der
Unit ist zwar am Ende der Dokumentation (in der PDF) vorhanden, und er ist vor allem auch außerhalb der bezeichneten Verwendung nicht uninteressant.
Nur leider fehlt dabei die Implementierung sämtlicher Methoden zur Klasse TClauseList.
@NamenLozer: Ist das beabsichtigt oder könntest Du diese fehlende Implementierung vielleicht doch noch nachreichen ?
TClauseList ist eine ganz einfache typensichere TObjectlist, unter neueren Delphis könnte man auch einfach eine generische TList<> nehmen. Ich habe sie nicht mit in die Dokumentation gepackt, da man Teile, die für die Lösung nicht direkt von Bedeutung sind, möglichst weglassen sollte, und der Quellcode auch so schon recht lang war.
Delphi-Quellcode:
{ TClauseList }
function TClauseList.Add(AObject: TClause): Integer;
begin
Result := inherited Add(AObject);
end;
function TClauseList.Extract(Item: TClause): TClause;
begin
Result := TClause(inherited Extract(Item));
end;
function TClauseList.First: TClause;
begin
Result := TClause(inherited First);
end;
function TClauseList.GetItem(Index: Integer): TClause;
begin
Result := TClause(inherited GetItem(Index));
end;
function TClauseList.IndexOf(AObject: TClause): Integer;
begin
Result := inherited IndexOf(AObject);
end;
procedure TClauseList.Insert(Index: Integer; AObject: TClause);
begin
inherited Insert(Index, AObject);
end;
function TClauseList.Last: TClause;
begin
Result := TClause(inherited Last);
end;
function TClauseList.Remove(AObject: TClause): Integer;
begin
Result := inherited Remove(AObject);
end;
procedure TClauseList.SetItem(Index: Integer; AObject: TClause);
begin
inherited SetItem(Index, AObject);
end;