Thema: Delphi Redundanzprüfung

Einzelnen Beitrag anzeigen

Benutzerbild von danku
danku

Registriert seit: 9. Apr 2006
Ort: 32-bit Adressbus
181 Beiträge
 
Delphi 7 Enterprise
 
#1

Redundanzprüfung

  Alt 9. Mai 2006, 13:12
Im Bezug auf den Thread:

Letztes Item einer Lisbox löschen:

Delphi-Quellcode:
//Redundanz!
for i:=lbfilter.items.Count-1 downto 1
  do begin
  if lbfilter.Items.Strings[i] = lbfilter.Items.Strings[i-1]
  then begin
  showmessage('Redundanz Problem');
  edfilter.SetFocus;
  lbfilter.selected[i-1] := True;
  lbfilter.DeleteSelected;
  //Zeile markieren
  end;

  lbfilter.Selected[i];
ich setz die daten von einem Tedit in eine Tlistbox.
die prüfung funktioniert einwandfrei, bis aber eine zahl in das Tedit geschrieben wird,
die in der tlistbox an letzter stelle steht. da gibts einen crash.
wie kann ich den umgehen zumal ja der rest auch geht?
  Mit Zitat antworten Zitat