string in einem memo-feld finden

huuuuuh · Verfasst: Sa 23.02.08 00:55

ich suche eine funktion mit der ich in einem memo-feld einen string suchen kann und die zeilennummer zurückbekomme. kann mir da einer helfen?

Blackheart666 · Beiträge: 2195 XP D3Prof, D6Pers.

Lines, Pos

_________________
Blackheart666
Der Irrsinn ist bei Einzelnen etwas Seltenes, - aber bei Gruppen, Parteien, Völkern, Zeiten die Regel. (Friedrich Nietzsche)

huuuuuh · Verfasst: Sa 23.02.08 06:55

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

function searchforstring (search : string ): integer;
Var
  Idx: Integer;
Begin
  For Idx := 0 To memo1.lines .Count Do
    If Pos (Search, memo1.lines [Idx]) > 0 Then result:=idx;

End;

ok danke dir

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme