Witam. Potrzebuję pomocy z programem, który składa się ze stringgridu 5x5, Tbutton'a oraz 2x Tedit.
Program ma za zadanie po kliknięciu na button wypełnić stringgrid losowymi liczbami od 0 do 50, a następnie w polach edycyjnych wpisać ilość liczb parzystych i nieparzystych.
Do wypełniania stringgridu już doszedłem, tak samo jak do tego, jak znaleŹć liczbę parzystą (przynajmniej tak mi się wydaje).
Co do wypełniania stringgridu kod mam taki:
var I,J:INTEGER;
BEGIN
FOR I:=0 TO STRINGGRID1.ROWCOUNT-1 DO
FOR J:=0 TO STRINGGRID1.COLCOUNT-1 DO
STRINGGIRD1.CELLS[I,J]:=INTTOSTR(RANDOM(50))
END;
co do znajdowania przystych to doszedłem do czegoś takiego:
IF (I MOD 2=1) THEN Edit1.text:=..........
Czy ktoś mógłby mi powiedzieć co dalej z tym zrobić, jak napisać taki program, poprawić błędy w obecnym kodzie?
Chcę jeszcze zaznaczyć, że kod jest pisany na sucho, gdyż nigdzie nie mogę znaleŹć Turbo Delphi, nawet trialowej wersji. Jakby ktoś posiadał link do takowego programu to byłbym bardzo wdzięczny.