Anzahl von Werten in einem Feld

[Licht]

Hey,
ich wollte von einem Feld welches zufällig gefüllt wurde die Anzahl der einzelnen Zahlen wissen.
Also wie oft z.B. die 1, die 2,die 3 darin vorkommt.
Leider fällt mir im Moment garnichts mehr ein wie ich dieses Problem lösen könnte.
Ich hoffe ihr könnt mir helfen.?
THX schonmal

[Sir Rufo]

Überlege Dir, wie du das manuell machst ... dann weißt du den Weg (genauso wird das gemacht)

Dann brauchst du nur noch die Befehle dazu ... und die bekommst du dann per SuFu.

btw: Feld? Was für ein Feld? Die Komponente hat doch bestimmt einen KlassenNamen? Meinst du vielleicht ein TEdit?
In der Programmierung funktioniert "ey du da" nicht, der Computer braucht schon genau beschrieben wo er hinlaufen soll

[Noedel]

Zitat von Sir Rufo:

[...]
btw: Feld? Was für ein Feld? Die Komponente hat doch bestimmt einen KlassenNamen? Meinst du vielleicht ein TEdit?
In der Programmierung funktioniert "ey du da" nicht, der Computer braucht schon genau beschrieben wo er hinlaufen soll

Ich nehme mal an, es handelt sich hier um ein Array, denn das engl. Wort "Array" = "Feld" (Link)

Zur Ausgangsfrage:
Ich würde mir ein weiteres (dynamisches und zweidimensionales) Array of Integer anlegen und immer wenn eine neue Zahl auftaucht, das Array vergrößern und die gefundene Zahl auf die linke Seite packen und rechts mit 1 initialisieren, ansonsten (wenn die Zahl schon einmal gefunden wurde) den Wert um 1 erhöhen.
Kannst ja mal versuchen, das umzusetzen.
Noedel

//edit: Schlechtschreibung

[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.

[Licht]

ja danke
denke ich habs jetzt verstanden.