Forum: Programmieren allgemein
Delphi
by LordGinn,
21. Okt 2014
Danke mkinzler
Von der Logik her müsste es klappen, aber es funktioniert mit else nicht.
Ich bin froh, dass es funktioniert und lass es deshalb so bestehen.
Forum: Programmieren allgemein
Delphi
by LordGinn,
21. Okt 2014
Ich habs geschafft. ^^
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.Caption=edit1.text)
and (form1.ListView7.Items.subitems=edit4.text)then vorhanden:=true;
if vorhanden=true then showmessage('Eintrag ist bereits vorhanden');
Forum: Programmieren allgemein
Delphi
by LordGinn,
19. Okt 2014
Danke himitsu
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.
...
Forum: Programmieren allgemein
Delphi
by LordGinn,
18. Okt 2014
Danke an cookie22, Jumpy, Sir Rufo und p80286
Das mit dem IndexOf hat bei mir nicht funktioniert..
Ich werd versuchen eure Vorschläge zu verstehen, aber das wird ne Weile dauern.
Das mit dem Trennen von Daten und visueller Ansicht scheint mir sinnvoll zu sein. Ich werd mich dazu belesen.
Forum: Programmieren allgemein
Delphi
by LordGinn,
15. Okt 2014
@cookie
Danke, ich habe das mit true und false geändert.
Den Code habe ich auch angepasst, doch gibt es ein kleines Problem. Wenn edit1.text nicht dem letzten Eintrag der Listview entspricht kommt die Meldung 'Eintrag bereits vorhanden' und wird aber trotzdem der Listview hinzugefügt mit der erfolgreichen Mitteilung. Wenn edit1.text dem letzten Eintrag entspricht funktioniert es perfekt.
...
Forum: Programmieren allgemein
Delphi
by LordGinn,
15. Okt 2014
Ich habe jetzt folgenden Code geschrieben, da ich eure nicht verstehe und es eine einfache Lösung geben muss.
procedure TForm2.Button1Click(Sender: TObject);
var i: integer;
begin
if form2.RadioButton1.checked=true
then for i := 0 to 50 do
if (form1.ListView1.Items.Caption=edit1.text) then
showmessage('Eintrag bereits vorhanden')
Forum: Programmieren allgemein
Delphi
by LordGinn,
14. Okt 2014
Da habt ihr Recht!
Ich seh mir den Code morgen an.
Forum: Programmieren allgemein
Delphi
by LordGinn,
14. Okt 2014
@DeddyH
Hi :)
Ist das nicht gern gesehen, wenn man das gleiche in zwei Foren postet?
Kann ja sein, dass jemand der die Lösung weiß nur in einem Forum registriert ist.
Forum: Programmieren allgemein
Delphi
by LordGinn,
13. Okt 2014
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,...