Skocz do zawartości

Random-problem


Fronist

Polecane posty

Witam mam taki problem, iż chcę użyć funkcji random w delphi lecz mi to nie wychodzi ;(...

mam 3 ediy i 1 button poniżej kod:

Co jest źle? Proszę o pomoc...

 

 

procedure TForm1.LosowanieClick(Sender: TObject);
begin
a:=strtoint(Edit1.Text);
b:=strtoint(Edit2.Text);
c:=strtoint(Edit3.Text);
a:=random(20)+1;
Edit1.Text:=inttostr(a);
b:=random(20)+1;
Edit2.Text:=inttostr(b);
Edit3.SetFocus;

end;

Link do komentarza
Udostępnij na innych stronach

Program jako tako działa, ale nie wiem czy tak jak do końca chciał jego autor. Ale za ukrywanie przycisków zamiast je dynamicznie tworzyć i pokazywac z różną funkcjonalnośćią oraz brak formatowania kodu powinni rozstrzeliwać każdego bez wyjątku. Tak samo jak za pisanie "dopuki". itp. Natomiast nazywanie go tabliczka mnożenia to trochę nadużycie. Ponieważ to raczej test/quiz ze sprawdzenia umiejętności mnożenia. Tabliczka mnożenia kojarzy się mi raczej z czymś, co będzie zawierało 10x10 komórek i pokazywało wynik operacji mnożenia kolumny z wierszem, tak jak na pomocach edukacyjnych czy ściągach dla dzieci z podstawówki.

Pozdrawiam: olesio

Link do komentarza
Udostępnij na innych stronach

Zarchiwizowany

Ten temat jest archiwizowany i nie można dodawać nowych odpowiedzi.

×
×
  • Utwórz nowe...