StringListe

[guidok]

Delphi-Quellcode:

list: array[1..3] of string=('Abc','Beta','Ce'); 

var 
  vi: array[1..3] of integer; 


if edit.text=list[1] then 
  inc(vi[1]); 
if edit.text=list[2] then 
  inc(vi[2]); 
if edit.text=list[3] then 
  inc(vi[3])

oder in einer Schleife

Delphi-Quellcode:

for i:=1 to 3 do
  if edit.text=list[i] then inc(vi[i]);

Man könnte sich auch einen record basteln, damit die Daten schön zusammenbleiben

Delphi-Quellcode:

type
  TListentyp = record
    Str: String;
    Count: Integer;
  end;

var
  Liste: Array[1..3] of TListentyp

for i:=1 to 3 do
  if edit.text=Liste[i].Str then inc(Liste[i].Count);