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:
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!