move items i en listbox

Clear din stringlist og assign items fra listbox'en efter du
har flyttet rundt på items

dinstringlist.clear;
dinstringlist.AddStrings(listbox1.Items);

Stoney

kan det ikke gøres på en anden måde..? så jeg "bare" kan flytte items plads i min Tstringlist.

sikkert, hvad er problemet ?

Det er 2 liniers kode og hastigheden kan ikke være noget problem

Stoney

det er fordi der står ikke det samme i Tstringlist og listbox. jeg ved godt at jeg sagde en kopi, men der der står ikke det samme de høre bare samme.

nogle der kan hjælpe??

Kan du ikke bare køre 2 parallelle ombytninger:

procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X,
  Y: Integer; State: TDragState; var Accept: Boolean);
var
  DropIndex: Integer;
  TempStr  : String;
begin
  DropIndex := ItemAtPos(Point(X,Y), True);
  if (DropIndex > -1) and (DropIndex <> ItemIndex) then
  begin
    with TListBox(Sender) do
    begin
      TempStr          := Items[DropIndex];
      Items[DropIndex] := Items[ItemIndex];
      Items[ItemIndex] := TempStr;
    end;
    with MyListbox do
    begin
      TempStr          := Items[DropIndex];
      Items[DropIndex] := Items[ItemIndex];
      Items[ItemIndex] := TempStr;
    end;
    TListBox(Sender).ItemIndex := DropIndex;
    MyListBox.ItemIndex        := DropIndex;
  end;
end;

koden virker ikke.. har prøvet at køre 2 parallelle ombytninger, men kunne ikke finde ud af det.

Prøv det her: (det virker).
2 listbox'e på formen (kunne også være en listbox og en TStringList)

procedure TForm1.FormCreate(Sender: TObject);
begin
  with listbox1 do
  begin
    clear;
    items.add('abc');
    items.add('def');
    items.add('ghi');
    items.add('jkl');
    items.add('mno');
  end;
  with listbox2 do
  begin
    clear;
    items.add('ABC');
    items.add('DEF');
    items.add('GHI');
    items.add('JKL');
    items.add('MNO');
  end;
end;

procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
var
  DropIndex: Integer;
  TempStr  : String;
  ombyt: boolean;
  i,j: integer;
begin
  with TListBox(Sender) do
  begin
    ombyt := false;
    DropIndex := ItemAtPos(Point(X,Y), True);
    if (DropIndex > -1) and (DropIndex <> ItemIndex) then
    begin
      i := ItemIndex;
      j := DropIndex;
      ombyt := true;

      TempStr          := Items[DropIndex];
      Items[DropIndex] := Items[ItemIndex];
      Items[ItemIndex] := TempStr;
      ItemIndex  := DropIndex;
    end;
  end;
  if ombyt then
  begin
    with Listbox2 do
    begin
      TempStr  := Items[j];
      Items[j] := Items[i];
      Items[i] := TempStr;
      ItemIndex:= j;
    end;
  end;
end;

Eller lidt forenklet:

procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
var
  Index,DropIndex: Integer;
  TempStr  : String;
begin
  Index := TListBox(Sender).ItemIndex;
  DropIndex := TListBox(Sender).ItemAtPos(Point(X,Y), True);
  if (DropIndex > -1) and (DropIndex <> Index) then
  begin
    with TListBox(Sender) do
    begin
      TempStr          := Items[DropIndex];
      Items[DropIndex] := Items[Index];
      Items[Index] := TempStr;
      ItemIndex  := DropIndex;
    end;
    with Listbox2 do  {eller den TStringList der skal byttes om}
    begin
      TempStr  := Items[DropIndex];
      Items[DropIndex] := Items[Index];
      Items[Index] := TempStr;
      ItemIndex:= DropIndex;
    end;
  end;
end;

kan ikke få det til at virke med en Tstringlist

[Error] Main.pas(1058): Undeclared identifier: 'Items'
[Error] Main.pas(1061): Undeclared identifier: 'ItemIndex'
[Fatal Error] Contact.dpr(5): Could not compile used unit 'Main.pas'

Her med en TStringList: (Der er kommet en button på - Indholdet af listen kopieres over i Listbox2 ved tryk på knappen)


var Liste: TStringList;


procedure TForm1.FormCreate(Sender: TObject);
begin
  with listbox1 do
  begin
    clear;
    items.add('abc');
    items.add('def');
    items.add('ghi');
    items.add('jkl');
    items.add('mno');
  end;
  Liste := tstringlist.create;
  with liste do
  begin
    clear;
    add('ABC');
    add('DEF');
    add('GHI');
    add('JKL');
    add('MNO');
  end;
end;

procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
var
  Index,DropIndex: Integer;
  TempStr  : String;
begin
  Index := TListBox(Sender).ItemIndex;
  DropIndex := TListBox(Sender).ItemAtPos(Point(X,Y), True);
  if (DropIndex > -1) and (DropIndex <> Index) then
  begin
    with TListBox(Sender) do
    begin
      TempStr          := Items[DropIndex];
      Items[DropIndex] := Items[Index];
      Items[Index] := TempStr;
      ItemIndex  := DropIndex;
    end;
    TempStr  := Liste[DropIndex];
    Liste[DropIndex] := Liste[Index];
    Liste[Index] := TempStr;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to Liste.count-1 do
    ListBox2.items.add(Liste[i]);
end;

jeg har ikke to listbox!! en listbox og en tstringlist.... jeg vil ikke bruge 2 listbox til det.

Ok, så undlader du bare at overføre indholdet til listbox2 (Button1Click)
Jeg havde det bare med for at se om det virkede (Det gør det)

takker