{"id":1719545,"user_name":null,"score":0,"text":"Cze\u015b\u0107 i czo\u0142em :)\nUcz\u0119 si\u0119 Pascala i napotka\u0142em problem, kt\u00f3rego nie mog\u0119 rozwik\u0142a\u0107 od d\u0142u\u017cszego czasu.\nChcia\u0142bym \u017ceby m\u00f3j program podawa\u0142 wynik mno\u017cenia w polu TEdit. \nW 50% przypadk\u00f3w ma by\u0107 losowy, a w pozosta\u0142ej cz\u0119\u015bci prawid\u0142owy. Zanim jednak to nast\u0105pi chcia\u0142bym, aby w polu wyniku 30 razy wy\u015bwietli\u0142a si\u0119 losowa liczba.\nEfekt losowo\u015bci uda\u0142o mi si\u0119 uzyska\u0107 poprzez funkcje **Randomize;**\nM\u00f3j problem polega na tym, \u017ce nie wiem jak przekona\u0107 program by wy\u015bwietli\u0142 30 razy losowy wynik, a nie tylko ten ostateczny :)  w tym momencie dostaje tylko odpowied\u017a ko\u0144cow\u0105. \nB\u0119d\u0119 bardzo wdzi\u0119czny za wskaz\u00f3wki! :)\nPracuje na Lazarusie.\nWklejam kod do podgl\u0105du:\n```pascal\nvar liczba2 : integer ;\nvar wynik : integer ;\nvar losowosc : integer ;\nvar szansa : integer ;\n  var petla : integer ;\nbegin\n    Randomize;\n    petla := 0;\n    liczba1 := StrToInt(Edit1.text);\n    liczba2 := StrToInt(Edit2.Text);\n    szansa := random(2);\n    losowosc := random(2000);\n    wynik :=  liczba1 * liczba2;\n\n\n    if (szansa =1) then\n        begin\n         for petla:=0 to 30 do               {Po klikni\u0119ciu przycisku chcialbym 30 razy zobaczy\u0107 losowy wynik w polu edit3}\n            begin\n            edit3.text := IntToStr(losowosc) ;\n            end\n        end\n        else\n        begin\n        edit3.text := IntToStr(wynik);\n        end;\n\nend;\n              \n```","edit_count":0,"is_voted":null,"is_accepted":null,"is_subscribed":null,"user_id":110013,"deleter_name":null,"delete_reason":null,"orderingScore":0,"created_at":"2020-10-31T08:19:31+01:00","updated_at":"2020-10-31T08:19:31+01:00","deleted_at":null,"user":{"id":110013,"name":"Nibek","is_online":false,"bio":"Hej ::) \r\nJestem pasjonatem informatyki oraz studentem jednej z uczelni na kierunku informatyka. Chcia\u0142bym bardzo rozwin\u0105\u0107 si\u0119 w tym kierunku. Nowy dzie\u0144 nowe wyzwania!","location":"\u0141\u00f3d\u017a","allow_sig":1,"allow_count":1,"allow_smilies":1,"posts":9,"visited_at":"2023-04-03T05:58:56.000000Z","created_at":"2020-10-31T06:42:35.000000Z","initials":"NI","is_verified":false,"is_deleted":false,"is_incognito":false,"is_blocked":false,"is_blocked_perm":false,"deleted_at":null,"photo":null,"sig":"Student informatyk lubi\u0105cy wyzwania! :D\n"},"html":"<p>Cze\u015b\u0107 i czo\u0142em :)<br \/>\nUcz\u0119 si\u0119 Pascala i napotka\u0142em problem, kt\u00f3rego nie mog\u0119 rozwik\u0142a\u0107 od d\u0142u\u017cszego czasu.<br \/>\nChcia\u0142bym \u017ceby m\u00f3j program podawa\u0142 wynik mno\u017cenia w polu TEdit.<br \/>\nW 50% przypadk\u00f3w ma by\u0107 losowy, a w pozosta\u0142ej cz\u0119\u015bci prawid\u0142owy. Zanim jednak to nast\u0105pi chcia\u0142bym, aby w polu wyniku 30 razy wy\u015bwietli\u0142a si\u0119 losowa liczba.<br \/>\nEfekt losowo\u015bci uda\u0142o mi si\u0119 uzyska\u0107 poprzez funkcje <strong>Randomize;<\/strong><br \/>\nM\u00f3j problem polega na tym, \u017ce nie wiem jak przekona\u0107 program by wy\u015bwietli\u0142 30 razy losowy wynik, a nie tylko ten ostateczny :)  w tym momencie dostaje tylko odpowied\u017a ko\u0144cow\u0105.<br \/>\nB\u0119d\u0119 bardzo wdzi\u0119czny za wskaz\u00f3wki! :)<br \/>\nPracuje na Lazarusie.<br \/>\nWklejam kod do podgl\u0105du:<\/p>\n<div class=\"markdown-code\"><div class=\"copy-button\">Kopiuj<\/div><pre><code class=\"language-pascal line-numbers\">var liczba2 : integer ;\nvar wynik : integer ;\nvar losowosc : integer ;\nvar szansa : integer ;\n  var petla : integer ;\nbegin\n    Randomize;\n    petla := 0;\n    liczba1 := StrToInt(Edit1.text);\n    liczba2 := StrToInt(Edit2.Text);\n    szansa := random(2);\n    losowosc := random(2000);\n    wynik :=  liczba1 * liczba2;\n\n\n    if (szansa =1) then\n        begin\n         for petla:=0 to 30 do               {Po klikni\u0119ciu przycisku chcialbym 30 razy zobaczy\u0107 losowy wynik w polu edit3}\n            begin\n            edit3.text := IntToStr(losowosc) ;\n            end\n        end\n        else\n        begin\n        edit3.text := IntToStr(wynik);\n        end;\n\nend;\n              \n<\/code><\/pre><\/div>\n","url":"http:\/\/static.175.128.202.116.clients.your-server.de\/Forum\/Delphi_Pascal\/345527-wielokrotne_wyswietlanie_wyniku_w_polu_edycyjnym?p=1719545#id1719545","is_locked":false,"permissions":{"write":false,"delete":false,"update":false,"accept":false},"moderatorPermissions":{"delete":false,"update":false,"accept":false,"merge":false,"sticky":false,"admAccess":false},"comments":[],"comments_count":0,"assets":[],"metadata":"eyJpdiI6IlhXWFFlL1hLY1Y3VGNvS0phVk5TTkE9PSIsInZhbHVlIjoiQVRDZ1JBT1dCb1lyTEIzTXQzUzZ6dlpVK0RLOEozbTAwcnpvVWwvU0FVcXZZM2YxSTJ1SGNoUmxwRkxQQUh0b3V0SG9wMGVTZUUyRFVjaXhPSWxxakU1Y1VqSW5YbWpiWDBiN1hYTXZRMWdFZEJ4MkFCVzMzSzVLU3I1L2V3NG4iLCJtYWMiOiI0NTliYWJlMTQzOWZmMWIyNGQ1NDU1NzcwYTUyMjIxZWFhYTk1ZjdkMDUxMWM5ZGYzY2E2OGQxYmJmM2RlMTdkIiwidGFnIjoiIn0=","has_review":false,"review_style":"info","parentPostId":null,"childrenFolded":false,"type":"regular","highlighted":false}