LISTBOX HILFE 2 !!!!!!!!!!!!

[bundy]

Wie kann man die Listbox auf doppelde Eintäge überprüfen und diese entfernen ? :coder:

[City Light]

dazu schau dir das mal an...

Delphi-Quellcode:

{
Mit dieser Procedure kann man doppelte Einträge aus den verschiedenen
Komponenten wie z.B. einer ComboBox oder einem Memo entfernen.
}

procedure TForm1.Button1Click(Sender: TObject);
var
  a,b : integer;
begin
  a := 0;
  while a <= ComboBox1.Items.count - 2 do
  begin
    for b := a + 1 to ComboBox1.Items.count - 1 do
    begin
      if ComboBox1.Items[a] = ComboBox1.Items[b] then
      begin
        dec(a);
        ComboBox1.Items.delete(b);
        break;
      end;
    end;
    inc(a);
  end;
  label1.Caption := inttostr(ComboBox1.Items.Count - 1);
end;

[Daniel B]

Hallo,

ich habe den Thread nach Delphi-Language verschoben. Mit Datenbanken hat das nichts zutun. ;)
Ausserdem gibt es in der Library bereits einen Beitrag dazu.
http://www.delphipraxis.net/viewtopic.php?t=4426

Grüsse, Daniel :hi: