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]