String in Memo suchen

[Dalai]

Du willst nicht den kompletten Inhalt der Listbox im Memo suchen sondern nur den markierten String. So müsste es tun (ungetestet):

Delphi-Quellcode:

else if Pos(ListBox6.Items[ListBox6.ItemIndex], 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

[Michael II]

So könntest du checken, ob das Element aus Liste bereits im Memo vorhanden ist:

Delphi-Quellcode:

 lbel := Listbox1.Items[ListBox1.ItemIndex];

 if pos( #13#10 + lbel + #13#10, #13#10 + memo1.Text ) = 0 then
   Memo1.Lines.Add( lbel );

Bei Dalais Lösung würde zum Beispiel das Element "Anna" nicht zu Memo hinzugefügt werden, wenn "Annabelle" bereits im Memo vorhanden wäre.

Eventuell lohnt sich für dich auch ein Blick auf TStringList und die Eigenschaft Duplicates.

[Dalai]

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.

Delphi-Quellcode:

if (Memo6.Lines.IndexOf(ListBox6.Items[ListBox6.ItemIndex]) < 0) then
...

Je nachdem, ob case-sensitiv oder -insensitiv gesucht werden soll, kann man ja noch ein UpperCase/LowerCase mit reinbringen.

Grüße
Dalai

[Michael II]

Ja klar Dalai - mach ich ja sonst auch so... es wäre gut, wenn man einer Meldung ein ttl (zum Beispiel 0) mitgeben könnte .

[Kratos]

Vielen Dank für die vielen raschen Antworten!

@Dalai
Die Controls habe ich extra nur im Forum umbenannt. Ich dachte, das wäre übersichtlicher.
Desweiteren steh ich noch am Anfang von delphi und weiß noch nicht, wann ich was einsetzen kann.

Ich hab noch .Text geaddet, dann hat es wunderbar funktioniert:

Code:

if (Memo6.Lines.Text.IndexOf(ListBox6.Items[ListBox6.ItemIndex]) < 0) then

@Michael II
Was bedeutet ttl?

[Rolf Frei]

Du machst da ein IndexOf auf dem String. Lines.Text ist ein String. Das entspricht einem Pos(), was du eigentlich nicht haben willst, da dir sonst beim Wert "Anna" auch "Susanna", "Annabelle" etc. als Treffer geliefert werden. Du musst Memo6.Lines.IndexOf verwenden. So wird die ganze Zeile im Memo6 verglichen.

[Kratos]

@Rolf Frei
Ja, du hast recht. Ich war zu vorschnell mit meiner Erfolgsnachricht.
Komischerweise hat es beim ersten Programmstart genau so funktioniert wie es sollte. Danach aber nicht mehr.
Jetzt läuft es aber.

----------------------------------------------------------------

Ich hab inzwischen schon wieder ein neues Problem
Ich hab mein Programm weiter ausgebaut.
Und zwar:

Programmaufbau:

Code:

Form6 -> ListBox6A, ListBox6B
Form7 -> Edit7, Button7

Bisher:
Per Doppelklick auf ein Item in ListBox6A, wird dieses in ListBox6B geschrieben. Wenn ein in ListBox6A geklicktes Item bereits in ListBox6B vorhanden ist, wird es in ListBox6B gar nicht erst aufgenommen.
Wird in ListBox6A das 6. Item doppelgeklickt, erscheint Form7.
---- Bis hierhin klappt alles.

Nun soll in Edit7 ein String eingegeben werden. Button7 wird gedrückt. Der String aus Edit7 soll als neues Item der ListBox6B erscheinen.
-> Und genau das letzte klappt nicht.

Hier mein Versuch:

Code:

procedure TForm7.Button7Click(Sender: TObject);
begin
   Form6.ListBox6B.Items.Add(Edit7.Text);
   Close;
end;

Wo ist mein Denkfehler?

Gruß
Kratos

[Dennis07]

Alternativ, nur der Vollständigkeit halber, ein "dirty way" falls "Contains" nicht in frage kommt (solltest du nicht verwenden):

if Boolean(Pos('bla', Memo1.Text)) then ...

[Kratos]

So Leute,

ich melde mich endlich wieder.
Zu allererst @Dennis07, danke für den Tipp!

Zu meinem Problem. Anfangs beinhaltete mein Programm 3 Forms ( Form5,6,7). Ich hab das jetzt so umgeschrieben, dass Form6 rausfällt. Und nun klappt das auch so wie ich will.
Zu Beginn wollte ich von Form7 auf Form6 auf Form5 schreiben. Nun schreibe ich von Form7 gleich auf Form5.
Vielleicht kam deswegen immer ein Fehler.

Over all, danke an alle für eure Unterstützung!

[Dennis07]

Zitat von Kratos:

Zu allererst @Dennis07, danke für den Tipp!

Wie gesagt, bitte nicht verwenden außer du musst es
Am besten Contains nahmen.