Forum: Object-Pascal / Delphi-Language
by Dalai,
17. Okt 2019
Bist du sicher, dass der String nicht hinzugefügt wird? Hast du mal einen Breakpoint auf die Button7Click-Methode gesetzt und mit Einzelschritt durchgesteppt?
Grüße
Dalai
Forum: Object-Pascal / Delphi-Language
by Dalai,
16. Okt 2019
Na dann lieber gleich ein Memo.Lines.IndexOf, wie es schon ein paar Zeilen weiter unten (in der for-Schleife) steht. Verstehe sowieso nicht, warum einmal mit Pos und einmal mit IndexOf gesucht/verglichen wird.
if (Memo6.Lines.IndexOf(ListBox6.Items) < 0) then
...
Je nachdem, ob case-sensitiv oder -insensitiv gesucht werden soll, kann man ja noch ein UpperCase/LowerCase mit reinbringen.
...
Forum: Object-Pascal / Delphi-Language
by Dalai,
16. Okt 2019
Du willst nicht den kompletten Inhalt der Listbox im Memo suchen sondern nur den markierten String. So müsste es tun (ungetestet):else if Pos(ListBox6.Items, Memo6.Lines.Text) <> 0 then begin
...
end ...
PS: Bitte benenne deine Controls sauber! Keiner weiß, was ListBox6 und Memo6 ist, und selbst du wirst das in ein paar Wochen nicht mehr wissen.
Grüße
Dalai