Super. Danke funktioniert prima.
Ist es auch möglich folgendes Problem zu lösen:
Eine Liste mit Strings und Variablen:
Delphi-Quellcode:
list: array[1..3] of string=('Abc','Beta','Ce');
var
viAbc,viBeta,viCe : integer;
if edit.text=list[1] then
inc(viAbc);
if edit.text=list[2] then
inc(viBeta);
if edit.text=list[3] then
inc(viCe)
einfach irgendwie zu sagen
inc (vi[edit.text] )
Danke Tim