aus einer Liste Einträge in eine andere Liste verschieben

[Bjoerk]

Ich möchte aus einer Liste Einträge in eine andere Liste übertragen und gleichzeitig aus der alten Liste raus löschen. Das tue ich deshalb weil der einzige in der alten Liste verbleibende Eintrag ein wichtiges Ergebnis ist. Bis jetzt ist es mir nicht gelungen..

Delphi-Quellcode:

procedure TPolygonTriangles.Flip;
var
  k1, k2, I, J: integer;
  SCur, SNew: double;
  ACur, BCur, ANew, BNew: TFLoatPoints;
begin
  ACur := TFLoatPoints.Create;
  BCur := TFLoatPoints.Create;
  ANew := TFLoatPoints.Create;
  BNew := TFLoatPoints.Create;
  try
    for k1 := 0 to Count - 2 do
      for k2 := k1 + 1 to Count - 1 do
      begin
        ACur.Clear;
        BCur.Clear;
        ANew.Clear;
        BNew.Clear;
        ACur.Add(Item[k1].A);
        ACur.Add(Item[k1].B);
        ACur.Add(Item[k1].C);
        BCur.Add(Item[k2].A);
        BCur.Add(Item[k2].B);
        BCur.Add(Item[k2].C);
        I := 0;
        J := 0;
        while I < ACur.Count  do
        begin
          while J < ACur.Count  do
          begin
            if Util_SameFloatPoint(ACur[I], BCur[J]) then
            begin
              // ShowMessage(Format('ACur(I) %.4f %.4f', [ACur[I].X, ACur[I].Y]));
              // ShowMessage(Format('BCur(J) %.4f %.4f', [BCur[J].X, BCur[J].Y]));
              ANew.Add(ACur[I]);
              BNew.Add(BCur[J]);
              // ShowMessage('IndexOf ACur ' + IntToStr(ACur.IndexOf(ACur[I])));
              // ShowMessage('IndexOf BCur ' + IntToStr(BCur.IndexOf(BCur[J])));
              ACur.Del(ACur.IndexOf(ACur[I]));
              BCur.Del(BCur.IndexOf(BCur[J]));
              Dec(I); // *** Kann nicht stimmen, aber wie ???
              Dec(J);
            end;
            Inc(J);
          end;
          Inc(I);
        end;
        if (ANew.Count = 2) then // Adjacent;
        begin
          SCur := Util_FloatPointDistance(ANew[0], ANew[1]);
          SNew := Util_FloatPointDistance(ACur[0], BCur[0]);
          if SCur / SNew > 1.5 then
          begin
            Item[k1].A := ANew[0];
            Item[k1].B := ACur[0];
            Item[k1].C := BCur[0];
            Item[k2].A := ACur[0];
            Item[k2].B := ANew[1];
            Item[k2].C := BCur[0];
          end;
        end;
      end;
  finally
    ACur.Free;
    BCur.Free;
    ANew.Free;
    BNew.Free;
  end;
end;