Redundanzprüfung

[danku]

Im Bezug auf den Thread: :cyclops:

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?

[marabu]

Hi.

Ich kann deinen Fehler nirgends entdecken - vielleicht steckt er in dem Code, den ich nicht sehen kann?

Delphi-Quellcode:

function CheckItems(lb: TListBox): Integer;
var
  i: Integer;
begin
  with lb do
  begin
    for i := Pred(items.Count) downto 1 do
      if Items[i] = Items[i-1] then
        Selected[i-1] := True;
    Result := SelCount;
  end;
end;

procedure TDemoForm.CheckButtonClick(Sender: TObject);
begin
  if CheckItems(lbFilter) > 0 then
  begin
    lbFilter.DeleteSelected;
    ShowMessage('Houston, we''ve got a problem');
    edFilter.SetFocus;
  end;
end;

Grüße vom marabu

[danku]

hm eigentlich nicht.

das ist die methode von dem tbutton:

Delphi-Quellcode:

procedure Tfmformat.baddClick(Sender: TObject);
var counter,i:integer;

begin
lbfilter.items.Add(edfilter.text);
lbfilter.Sorted:=true;
edfilter.Clear;
counter:= lbfilter.Items.Count;
label2.caption:='(' + inttostr(counter) + ')';
if label2.caption ='(0)'
then label2.caption:='()';

change:=true;

//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];


 change:=true;
 
 end;  
end;

übrigens geht deins nicht. es werden trotzdem gleiche strings geaddet.

[sir-archimedes]

Ich habe da mal eine ganz pragmatische Frage: wieso fügst du den Eintrag erst zur Listbox hinzu, prüfst dann ob er doppelt auftritt und schmeißt ihn wieder raus? Prüfe vorher, ob der Eintrag bereits vorkommt und du hast deine Probleme nicht.

[TBx]

Hallo Danku!

Was soll das Ganze denn bewirken?

Wenn Du nur verhindern möchtest, daß über das Editfeld doppelte Werte in die Listbox übergeben werden, so kannst Du das am einfachsten bei der Übergabe lösen:

Delphi-Quellcode:

procedure Button1Click (Sender:TObject);
begin
  if lbfilter.items.indexof (edfilter.text) > -1 then
  begin
    showmessage ('Redundanzproblem!');
    edfilter.SetFocus;
  end
  else
  begin
    lbfilter.items.Add (edfilter.Text);
  end;
end;

Dies hat den Vorteil, daß alle Items dahingehend überprüft werden, ob sie dem Text des Edits entsprechen.

Bei Deiner Methode werden immer nur zwei aufeinanderfolgende Einträge verglichen, sodaß Eingaben ala
eins
zwei
drei
eins
zwei
drei
möglich wären.

Zur Erklärung, warum Du eine Zugriffsverletzung bekommst, wenn der Wert in der letzten und in der vorletzten Zeile Deiner Listbox identisch sind, liegt in dieser Zeile:

Delphi-Quellcode:

lbfilter.selected [i]

Diese Zeile ist zum einen sinnlos (wie in dem vorherigen Thread erklärt), zum anderen greift sie in diesem Fall auf ein nicht mehr vorhandenes Item:
Du hast zuvor das Item, das einen Platz zuvor in der Liste steht [i-1] gelöscht. Dadurch rückt item [i] auf den Platz von item [i-1] auf und ein Item [i] ist nicht mehr vorhanden.

Hope it helps

Thomas

[danku]

@Onlinekater:

Zitat:

Bei Deiner Methode werden immer nur zwei aufeinanderfolgende Einträge verglichen, sodaß Eingaben ala
eins
zwei
drei
eins
zwei
drei
möglich wären.

Zitat:

Zitat von dominik.boehm

Ich habe da mal eine ganz pragmatische Frage: wieso fügst du den Eintrag erst zur Listbox hinzu, prüfst dann ob er doppelt auftritt und schmeißt ihn wieder raus? Prüfe vorher, ob der Eintrag bereits vorkommt und du hast deine Probleme nicht.

ja ist ja logisch. ich hatte mir das so vorgestellt, dass die werte erst in die tstringgrid geschrieben werden (sortiert), der user kann sie sehen und die werte dann herausgefiltert werden. bei doppelwerten eben die fehlermeldung.

man kann natürlich aber auch vorher die werte schon abfangen.
aber das ist ansichtssache finde ich :roll: