Zählschleife Auswertung der Zufallszahlen

[Michu]

ich danke dir total. brauch aber wieder hilfe bitte bitte

ich habs wirklich probiert mit deinem kriegs aber nicht hin, habe jetzt was anderes probiert aber läuft immer noch nicht

Delphi-Quellcode:

procedure TForm1.zaehler_feld;
var i:integer;
    zzahl,eins,zwei,drei,vier,fuenf,sechs:integer;
    zaehler_feld: array [1..6] of integer;
begin

for i:= 1 to 100 do begin
    zzahl:= z[i];
    eins:=0;
    zwei:=0;
    drei:=0;
    vier:=0;
    fuenf:=0;
    sechs:=0;
    if (zzahl=1)then begin
        inc(eins)
        end;
    if (zzahl=2)then begin
        inc(zwei)
        end;
    if (zzahl=3)then begin
        inc(drei)
        end;
    if (zzahl =4) then begin
        inc (vier)
        end;
    if (zzahl=5)then begin
        inc(fuenf)
        end;
    if(zzahl=6)then begin
        inc(sechs)
        end;

Li_zufa.Items.Add( inttostr(eins)+'mal die 1') ;

end;

[edit=Matze][delphi]-Tags repariert. Mfg, Matze[/edit]