array test

[davtix]

okay habs rausgefunden

Delphi-Quellcode:

s:= edit2.Text;


for i := 1 to 100 do
  begin
    if a[i] = s then begin
                      label6.Caption:= ('gefunden');
                      label7.Caption:= inttostr(i)
                 end;
  end;