Sortierte TObjectList - Einträge richtig einfügen

[Benmik]

Oh je, es handelt sich also um Alarmpheromone.

Ich hab mich jetzt zu Folgendem entschlossen:

Delphi-Quellcode:

function TZielListe.FindeWert(const Wert:string;var P:Integer):Boolean;
var L:TZiel;
begin
  L      := TZiel.Create;
  L.Wert := Wert;
  p      := -1;
  try
    Result := BinarySearch(L, p, TComparer<TZiel>.Construct(
      function (const L, R: TZiel): Integer 
      begin 
        Result := AnsiCompareText(L.Wert,R.Wert); 
      end));
  Finally
    L.Free;
  end;
end;

function TZielListe.AddSorted(const Ziel: TZiel): Boolean;
var P: Integer;
begin
  Result := Assigned(Ziel) and (Ziel.Wert <> '');
  If Result then 
    begin
    FindeWert(Ziel.Wert,p);
    Result := (p > -1);
    If Result then 
      Self.Insert(p,Ziel);
    end;
end;

Jetzt hoffe ich mal, von den AV verschont zu bleiben.

[freimatz]

Zitat von Stevie:

In Delphi 2009 lösen diese Generics Pheromone bei mir aber eher einen sehr starken Fluchtinstinkt aus

Also bei mir löst Delphi 2009 Fluchtinstinkt aus. Wie kann man nur freiwillig mit so einem "Schrott" arbeiten? Ich mit XE-7 habe in der Regel keine Probleme. (Außer wenn ich siebenfach verschachtele Genercis verwenden will)

[Benmik]

Wenn du mittlerweile mit XE7 arbeitest, solltest du deine Signatur aktualisieren. Die Bezeichnung "Schrott" für Delphi 2009 finde ich ärgerlich und sehr unangemessen. Und "freiwillig" ist bei Hobbyprogrammierern immer recht relativ.