Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - Memofeld nach string durchsuchen


Pegasusowl - Do 27.07.06 09:18
Titel: Memofeld nach string durchsuchen
hallo, folgendes Problem eines Anfängers........

Ich habe ein Memofeld und ein Editfeld

Im Memofeld steht ein langer Text und ich möchte das dieser Text nach dem Vorhandensein des Inhaltes des Editfeldes durchsucht wird und dann eine Message kommt wenn der Text vorhanden ist....

Wie durchsucht man ein Memofeld? allerdings ohne einen "FindDialog"

Wäre toll wenn jemand Rat weiß


mkinzler - Do 27.07.06 09:19

Den gesamten Inhalt eines Memos erhälst du mit memo.Lines.Text dies kannst du dann mit Pos(ex) durchsuchen.


freak4fun - Do 27.07.06 10:15


Delphi-Quelltext
1:
2:
3:
4:
if (Pos(Edit1.Text, Memo1.Text)) = 0 then
  ShowMessage(Edit1.Text + ' wurde nicht gefunden.')
else
  ShowMessage(Edit1.Text + ' wurde gefunden.');


Bei der Suche wird Groß-/Kleinschreibung unterschieden.

MfG
freak