Algorithmus

[Dannyboy]

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;