Delphi-Quellcode:
function ZaehleZeichen(const zeile: String; const suchzeichen: Char): integer;
var
i: integer;
begin
Result := 0;
if Length(zeile) > 0 then
for i := 1 to Length(zeile) do
if zeile[i] = suchzeichen then
Result := Result + 1;
end;
allerdings werden damit nicht vorkommen von ; (= suchzeichen) innerhalb von felddaten (also innerhalb von gänsefüßchen) ausgelassen...