Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: Algorithmus

    Delphi
    by Phoenix, 23. Okt 2003
  Hrm. Ich würde da auch nur eine einzelne Funktion draus machen:
  
  function GetCharCount(source: string; token: char): integer;
  var
  i: integer;
  begin
  result := 0;
  for i := 0 to length(source) - 1 do
  if source = token then
  inc(result);