Anzahl von Werten in einem Feld

[patti]

Wenn du tatsächlich ein Edit-Feld meinst, aus dessen Inhalt die Zahlen ausgelesen werden sollen, dann würde ich ungefähr so vorgehen:

• Array mit der Länge 10 (0..9) definieren (Datentyp integer). Darin kann jeweils die Anzahl der einzelnen Zahlen gespeichert werden. (Array muss evtl. mit 0 initialisiert werden.
• Edit.Text in einer string-Variable zwischenspeichern.
• Dann Zeichen für Zeichen des Strings durchgehen und schauen, um was für eine Zahl es sich handelt.
• Bei der entsprechenden Zahl im Array die Anzahl um 1 erhöhen

Als Quelltext könnte das in etwa so aussehen:

Delphi-Quellcode:

var Anzahl  : array[0..9] of integer;
var eingabe : string;
var laenge  : integer;
var c       : string;
var i       : integer;
var zahl    : integer;
begin
  //--
  // Initialisieren
  for i := Low(Anzahl) to High(Anzahl) do Anzahl[i] := 0;
  //
  einagbe := Edit.Text;
  laenge  := Length(eingabe);
  //
  if laenge > 0 then
  begin
    for i := 1 to laenge do
    begin
       c := eingabe[i];
       //
       zahl := StrToIntDef(c,-1);
       //
       if zahl > -1 then Anzahl[zahl] := Anzahl[zahl] + 1;
    end;
  end;

(ungetestet)

Hoffe, das trifft dein Problem in etwa.