GetItemAtPos macht bei Listbox manchmal probleme

[leonreiser]

Natürlich. Also hier hab ich noch die zwei Routinen für das Füllen und leeren. Dabei soll man sozusagen mit einem Klick auf ein Item jenes in die jeweils andere
Listbox schreiben:

Delphi-Quellcode:

procedure TForm2.ListBox1Click(Sender: TObject);
var
I :Integer;
begin
  for I := 0 to ListBox1.Count-1 do
    if ListBox1.Selected[I] = True then begin
        ListBox2.Items.Add(ListBox1.Items[I] + ' ▼');

       ListBox1.Items.Delete(I);
        break;
    end;
    ListBox1.Height := 16 * ListBox1.Count; // geschmackssache
    ListBox2.Height := 16 * ListBox2.Count; // geschmackssache

end;

procedure TForm2.ListBox2Click(Sender: TObject);
var
I :Integer;
begin
  for I := 0 to ListBox2.Count-1 do
    if ListBox2.Selected[I] = True then begin
      //  SortType[I] := Null;
      ListBox2.Items[I] := StringReplace(ListBox2.Items[I], ' ▼','',[rfReplaceAll , rfIgnoreCase]);
      ListBox2.Items[I] := StringReplace(ListBox2.Items[I], ' ▲','',[rfReplaceAll , rfIgnoreCase]);
        ListBox1.Items.Add(ListBox2.Items[I]);
        ListBox2.Items.Delete(I);
        break;
    end;
  ListBox1.Height := 16 * ListBox1.Count;  // geschmackssache
    ListBox2.Height := 16 * ListBox2.Count;   // geschmackssache
end;