Text von Memobox nach Zeichen durchsuchen

[alleinherrscher]

Hey, dein Code sollte doch fast funktionieren:

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-1 do 
     for j := 1 to length(memo1.Lines[i]) do
        if memo1.lines[i][j] = chr(n) then inc(ergebnis); 

  edit1.text:=inttostr(ergebnis);
end;