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);