Eintrag nur hinzufügen wenn nicht in Listview vorhanden

LordGinn · Hält's aus hier Beiträge: 7

Hallo

Ich möchte Einträge aus Editfeldern in eine Listview übertragen, aber nur wenn sie nicht schon in dieser zu finden sind.
Mit meinem derzeitigen Code kann ich nur einen Eintrag hinzufügen und danach keinen mehr. Das sehe ich auch an dem Code.

Zwei Varianten möchte ich gerne verstehen:
1. Wo muss ich edit1.text einfügen? (Wenn edit1.text schon in der ersten Spalte zu finden ist, soll kein neuer Eintrag erstellt werden und eine showmessage folgen)
2. Wo muss ich edit1.text und edit4.text einfügen? (So wie oben nur wenn edit1.text und edit4.text in der selben Zeile vorhanden sind)

Bitte so einfach wie möglich, bin Anfänger.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TForm2.Button1Click(Sender: TObject);
  begin
    if form2.RadioButton1.checked=true
    and assigned (form1.listview1.items[0])=false
    then
    begin with
   form1.listview1.items.add do begin
   caption:=edit1.text;
   subitems.add(edit2.text);
   subitems.add(edit3.text);
   subitems.add(edit4.text);
   showmessage('Eintrag wurde hinzugefügt');
   end;
   end;

Danke schon mal.

Crosspost www.delphipraxis.net...tview-vorhanden.html

Moderiert von Narses: Quote- durch Delphi-Tags ersetzt

jaenicke · Verfasst: Mo 13.10.14 21:48

Hallo und

Ich würde dir raten zusätzlich eine TStringList zu verwenden und darüber festzustellen, ob ein Eintrag schon vorhanden ist.

Sprich:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

type
  TYourForm = class(TForm)
  //...
  private
    FAvailableEntries: TStringList;
  end;

// in OnCreate deines Formulars:
  FAvailableEntries := TStringList.Create;

// im OnDestroy deines Formulars:
  FAvailableEntries.Free;

Nun kannst du beim Hinzufügen einfach den Wert auch in deine Liste einfügen:

markieren

Delphi-Quelltext

1:	FAvailableEntries.Add(...);

Und auch prüfen, ob ein Eintrag schon vorhanden ist:

markieren

Delphi-Quelltext

1:
2:

  if FAvailableEntries.IndexOf(...) < 0 then
    //noch nicht vorhanden

Das ist viel schneller, als in der TListView die Einträge zu durchsuchen, auch wenn das theoretisch auch geht. Da gibt es glaube ich auch ein Find oder IndexOf oder so.

// EDIT:
Korrigiert, danke für den Hinweis

ub60 · Beiträge: 762 Erhaltene Danke: 127

jaenicke hat folgendes geschrieben :

markieren

Delphi-Quelltext

1:
2:

  if FAvailableEntries.IndexOf(...) <= 0 then
    //noch nicht vorhanden

Bei =0 ist der Eintrag vorhanden, und zwar an oberster Stelle. Besser so:

markieren

Delphi-Quelltext

1:
2:

  if FAvailableEntries.IndexOf(...) < 0 then 
    // bzw. ... = -1

ub60

LordGinn · Hält's aus hier Beiträge: 7

Danke euch.

Jetzt auf Anhieb hab ich es noch nicht verstanden mit der StringList. Wo muss man dann edit1.text bzw edit1.text und edit4.text reinpacken?

jaenicke · Verfasst: Di 14.10.14 14:28

In diese Liste, sprich bei Add und IndexOf musst du den Wert einsetzen, anhand dessen du feststellen willst, dass der Eintrag schon vorhanden ist.
Wo dieser eindeutige Wert drin steht, kannst nur du wissen, das muss ja nicht zwangsläufig die erste Spalte sein.

Ich vermute aber du möchtest Edit1 benutzen, also ...Add(Edit1.Text) und ...IndexOf(Edit1.Text).

LordGinn · Hält's aus hier Beiträge: 7

Danke für die Antworten.

Es wird ne Weile dauern, bis ich das verstehe, aber ich hab die Zeit.

LordGinn · Hält's aus hier Beiträge: 7

Ich habe jetzt die Radiobuttons entfernt und dafür auf der Form1 mehrere Buttons erstellt, das hat einiges vereinfacht.
Jetzt hat jede Listview einen eigenen Button fürs Hinzufügen und die Überprüfung funktioniert.

Ich muss dann nur noch herausfinden, wie man folgendes schreibt:
Wenn edit1.text und edit4.text in der selben Zeile der Listview auftauchen ist vorhanden true.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

procedure TForm7.Button1Click(Sender: TObject);
var i: integer; vorhanden: boolean;
begin
   vorhanden:=false;
   for i := 0 to Form1.Listview2.Items.Count - 1 do
    if (form1.ListView2.Items[i].Caption=edit1.text) then vorhanden:=true;
    if vorhanden=true then showmessage('Eintrag ist bereits vorhanden');
    if vorhanden=false then
    begin with
    form1.listview2.items.add do begin
    caption:=edit1.text;
    subitems.add(edit2.text);
    subitems.add(edit3.text);
    subitems.add(edit4.text);
    showmessage('Eintrag wurde hinzugefügt');
    end;
    end;
end;

LordGinn · Hält's aus hier Beiträge: 7

Ich habs geschafft. ^^

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedure TForm4.Button1Click(Sender: TObject);
var i: integer; vorhanden: boolean;
begin
   vorhanden:=false;
   for i := 0 to Form1.Listview7.Items.Count - 1 do
    if (form1.ListView7.Items[i].Caption=edit1.text)
    and (form1.ListView7.Items[i].subitems[2]=edit4.text)then vorhanden:=true;
    if vorhanden=true then showmessage('Eintrag ist bereits vorhanden');
    if vorhanden=false then
    begin with
    form1.listview7.items.add do begin
    caption:=edit1.text;
    subitems.add(edit2.text);
    subitems.add(edit3.text);
    subitems.add(edit4.text);
    subitems.add(edit5.text);
    showmessage('Eintrag wurde hinzugefügt');
    end;
    end;
end;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme