zeichen durchlaufen und bestimmte Zeichenfolge finden

**jority**

Wunderschönen guten morgen,

ich habe folgendes Problem:
ich möchte in einem memo die zeichen einzeln durchlaufen und dabei nach einer bestimmten Zeichenfolge suchen.

es darum herauszufinden wo Postleitzahlen stehen also 5-stellige Zahlen.
hatte an sowas gedacht:

markieren

Delphi-Quellcode:

			for i:= 0 to length(memo1.text) do

begin

if zeichen = zahl then begin  //hier ist das Problem! 

zähler:= zähler +1;

end;

if zähler:=5 then begin

in memo zeilenumbruch einfügen an stelle (zeichen-5)

end;

end;

hat da jemand ne hilfe?
ich will nicht 10 IF-Anweisungen hintereinander durchlaufen.
kann man das in eine Schreiben?
sowas wie
if zeichen = (#48..#57) then...

danke
gruß Jority

zeichen durchlaufen und bestimmte Zeichenfolge finden

zeichen durchlaufen und bestimmte Zeichenfolge finden

Forumregeln