Text von Memobox nach Zeichen durchsuchen

**Felge**

Hallo,
ALso ich möchte einen Text in einer Memobox nach einem Zeichen durchsuchen welches ich vorher angebe ( Edit1)
Aber irgendwie bekomm ich es nicht mit dem stand meines Wissens hin.
Hier meine Prozedur:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

var  Ergebnis,n, i, j: integer;

begin

 n:=strtoint(edit1.text);

 ergebnis := 0;

  for i := 0 to memo1.Lines.Count do

  begin

   for j := 1 to length(memo1.Lines[i]) do

    begin

     case memo1.lines[i][j] of

   CHR(n)  : ergebnis:= ergebnis +1;

         end;

    end;

   edit1.text:=inttostr (ergebnis);

  end;

end;

PS. Ins Edit Feld müsste man dann aScii code eingeben!

Text von Memobox nach Zeichen durchsuchen

Text von Memobox nach Zeichen durchsuchen

Forumregeln