Zitat von
Phoenix:
Hrm. Ich würde da auch nur eine einzelne Funktion draus machen:
Delphi-Quellcode:
function GetCharCount(source: string; token: char): integer;
var
i: integer;
begin
result := 0;
for i := 0 to length(source) - 1 do
if source[i] = token then
inc(result);
end;
Be careful, Phoenix!!!!!
Bei Strings gilt immer Index (1 bis n) und NICHT Index (0 bis n-1) !!!
Ich erlaube mir mal, das zu korriegieren:
Delphi-Quellcode:
function GetCharCount(source: string; token: char): integer;
var
i: integer;
begin
result := 0;
for i := 1 to length(source) do // von 1 bis n
if source[i] = token then
inc(result);
end;