TMemo nach einem bestimmten String durchsuchen?

[smart]

Wie kann man am einfachsten ein mehrzelliges TMemo nach einem bestimmten String durchsuchen?

[PierreB]

Memo.Text in eine Variable vom Typ String laden und mit Pos nach einem String suchen. (Delphi-Hilfe)

[MrKnogge]

such mit pos TMemo.Text durch

[smart]

Vielen Dank für Eure Antworten!

Warum klappt dieser Code Nicht? Es kommt keine Fehlermeldung!
If Pos(Memo1.Text, '23') <> 0 Then Exit;

[BlackJack]

wenn ich mich recht erinnere mus bei Pos der zu suchende substring als erstes angegeben werden.

[PierreB]

Zitat von smart:

Vielen Dank für Eure Antworten!

Warum klappt dieser Code Nicht? Es kommt keine Fehlermeldung!
If Pos(Memo1.Text, '23') <> 0 Then Exit;

Edit: Hab Quatsch geschrieben.
So geht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
s : string;
begin
s := memo1.text;
if Pos('wie', s) <> 0 then close;
end;

Wenn das Wort "wie" vorkommt wird das Programm beendet.

[BlackJack]

Zitat von PierreB:

Zitat von smart:

Vielen Dank für Eure Antworten!

Warum klappt dieser Code Nicht? Es kommt keine Fehlermeldung!
If Pos(Memo1.Text, '23') <> 0 Then Exit;

Lass doch einfach das <> 0 weg, wenn 23 dann vorhanden ist wird das Programm beendet.

das glaube ich nicht, schliesslich gibt Pos einen integer zurück, von daher wird der compiler das gar nicht zulassen.

[smart]

Zitat von BlackJack:

wenn ich mich recht erinnere mus bei Pos der zu suchende substring als erstes angegeben werden.

Da bin ich auch schon drauf gekommen. Klappt aber in beiden Richtungen nicht.

[PierreB]

Jaja ich weiß hab quatsch geschrieben. Hab mich aber oben verbessert, so gehts.

[smart]

Zitat von BlackJack:

Zitat:

Lass doch einfach das <> 0 weg, wenn 23 dann vorhanden ist wird das Programm beendet.

das glaube ich nicht, schliesslich gibt Pos einen integer zurück, von daher wird der compiler das gar nicht zulassen.

Klar, hast Recht lässt der Compiler nicht zu.