Zahlenvorkommen zählen

[jfheins]

Ja dann ist ja einfach
Entweder mit explode() ein Array erzeugen, oder eine Funktion schreiben, die einen String als var-Argument bekommt und die erste Zahl rausschneidet und zurückgibt.

Dann ein Array[0..100] of Cardinal; deklarieren und die Zahlen nach und nach einsortieren. Mit der oben beschriebenen Funktion ungefähr so:

Delphi-Quellcode:

var
zaehler: Array[0..100] of Integer;
temp: Integer;
begin
// ggf. mit nullen füllen
while str <> '' do
begin
  temp := getfirstnumber(str);
  zaehler[temp] := zaehler[temp] + 1;
end;