Positionen Um-Sortieren

[rocksoft]

Hallo Albert,


Mensch darauf hätte ich selber drauf kommen können, leider geht es so nicht mit query, für Tables habe ich es jetzt so gemacht, für den fall das noch jemand interese daran hat, eventuell geht es noch eleganter aber laufen tut es schon mal.

Danke für die Hilfe

Delphi-Quellcode:

procedure TForm1.UpClick(Sender: TObject);
var
  CurrPos: integer;
begin
  myTable.DisableControls;
  CurrPos := myTable.FieldByName('Pos').AsInteger;
  try
    if CurrPos = 1 then exit;
    myTable.Edit;
    myTable.FieldByName('Pos').AsInteger := 9999;
    myTable.Post;

    myTable.FindKey([CurrPos - 1]);
    myTable.Edit;
    myTable.FieldByName('Pos').AsInteger := myTable.FieldByName('Pos').AsInteger + 1;
    myTable.Post;

    myTable.FindKey([9999]);
    myTable.Edit;
    myTable.FieldByName('Pos').AsInteger := CurrPos - 1;
    myTable.Post;
  finally
    myTable.EnableControls;
  end;
end;

procedure TForm1.DownClick(Sender: TObject);
var
  CurrPos: integer;
begin
  myTable.DisableControls;
  CurrPos := myTable.FieldByName('Pos').AsInteger;
  try
    if CurrPos = PosTab.RecordCount then exit;
    myTable.Edit;
    myTable.FieldByName('Pos').AsInteger := 9999;
    myTable.Post;

    myTable.FindKey([CurrPos + 1]);
    myTable.Edit;
    myTable.FieldByName('Pos').AsInteger := myTable.FieldByName('Pos').AsInteger - 1;
    myTable.Post;

    myTable.FindKey([9999]);
    myTable.Edit;
    myTable.FieldByName('Pos').AsInteger := CurrPos + 1;
    myTable.Post;
  finally
    myTable.EnableControls;
  end;
end;