Witam mam mały problem z programem. Miałem za zadanie napisać program lotto i policzyć liczbę występujących liczb. Program działa prawidło, ale w Memo1, liczby które powinny być w tablicy 2 wymiarowej ustawiają się w pionowym rzędzie.
Jeszcze mam pytanie w jaki sposób mógłbym umieścić liczby wylosowane w tabelce takiej jak w excel'u.
Z góry dzięki za pomoc.
var
Form1: TForm1;
tab:array[1..6,1..8] of integer;
tab2:array[1..49] of integer;
x,y:integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.clear;
for y:=1 to 8 do begin
for x:=1 to 6 do begin
tab[x,y]:=random(48)+1;
if tab[x,y]=tab[x+1,y] then
tab[x+1,y]:=tab[x+1,y]+1;
Memo1.Lines.Add(inttostr(tab[x,y]));
end;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Memo2.Clear;
for x:=1 to 49 do
tab2[x]:=0;
for y:=1 to 8 do
for x:=1 to 6 do
tab2[tab[x,y]]:=tab2[tab[x,y]]+1;
for x:=1 to 49 do
memo2.Lines.Add(inttostr(x)+': '+inttostr(tab2[x]));
end;
end.