Wort Vorkommen in einem Array zählen.

[sintacs]

Hallo,
bin neuling in Sachen Programmieren und habe nun folgende Frage.
Ich möchte aus einem Array eine Abfrage machen wie oft ein Wort vorkommt und dies in die entsprechende Anzahl in ein StringGrid eintragen.
Bitte um Hilfe ...

[DeddyH]

Hallo und Willkommen in der DP ,

geh das Array von vorn nach hinten durch, vergleiche und setze bei einem Treffer eine Variable (die mit 0 initialisiert wurde) hoch. Pseudo-Code:

Delphi-Quellcode:

var
  i, Anzahl: integer;
begin
  Anzahl := 0;
  for i := Low(DeinArray) to High(DeinArray) do
    if DeinArray[i] = Das_was_Du_suchst then
      inc(Anzahl); //oder Anzahl := Anzahl + 1

[sintacs]

Hey,
Vielen Dank für die Schneller Antowort
Habe es mal so ausprobiert wie du es mir geschrieben hast, dennoch Zählt er nicht durch, er gibt bei einer Showmessage immer 0 aus. Mein Array besteht aus 20 Unterschiedlichen Sätzen alle durch ein Komma getrennt.

hier mein Code

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);

 var
  i, Anzahl: integer;
begin
  Anzahl := 0;
  for i := Low(MyArray) to High(MyArray) do
    if MyArray[i] = 'skirennen' then
       Anzahl := Anzahl + 1 ;
       ShowMessage('skirennen'+IntToStr(Anzahl));
   end;

[DeddyH]

Ist das denn auch wirklich ein Array? Wie ist MyArray deklariert?

[sintacs]

Delphi-Quellcode:

type TMyArray = Array [0..19] of string;

    const MyArray : TMyArray =

[DeddyH]

Dann zeig doch auch noch gleich, was hinter dem "=" kommt

[himitsu]

Stimmt denn auch die Groß-/Kleinschreibung, also sind die Strings genau so in dem Array enthalten?

AnsiSameText, AnsiContainsText, AnsiContainsStr usw.

[DeddyH]

Deshalb wollte ich das Array ja einmal sehen.

[FredlFesl]

Zitat von sintacs:

Ich möchte aus einem Array eine Abfrage machen wie oft ein Wort vorkommt

Also auf Gleichheit würde ich da nicht abfragen ('wie oft ein Wort vorkommt'), sondern eher mit Pos bzw. ContainsText arbeiten

[Hobby-Programmierer]

Moin ...,
zumindest gehört so etwas nicht in procedure TForm1.FormCreate(Sender: TObject);
Ist das Array zu diesem Zeitpunkt schon befüllt?

LG Mario