Zitat von
mlhk:
also
memo4.Lines[1]:= inttostr (round(zeichen / (100 * b)))+'%';
müsste doch eigendlich funktionieren
Nein, das ist Quark.
Zeichen = Anzahl aller Zeichen = Maximum
b = Anzahl der gefundenen Zeichen = Zähler
memo4.Lines[1]:= inttostr (round((100 * b) / zeichen))+'%';