procedure TForm1.Button1Click(Sender: TObject);
begin
k:=k+1;radiobutton1.Checked:=false; radiobutton2.Checked:=false;
radiobutton3.Checked:=false;
if k=1 then begin edit1.Text:='Delphi тіліндегі жоба файлының типі?';
radiobutton1.Caption:='frm';
radiobutton2.Caption:='pas';
radiobutton3.Caption:='dpr' end;
if k=2 then begin edit1.Text:='Delphi тіліндегі код файлының типі?';
radiobutton1.Caption:='dpr';
radiobutton2.Caption:='pas';
radiobutton3.Caption:='frm'; end;
if k=3 then edit2.Text:='Дұрыс жауап саны: '+ inttostr(s);
end;
{“Келесі” батырмасының коды }
procedure TForm1.Button2Click(Sender: TObject);
begin
n:=n+1;
if (n=1) and (radiobutton1.Checked) then s:=s+1;
if (n=2) and (radiobutton3.Checked) then s:=s+1;
if (n=3) and (radiobutton2.Checked) then s:=s+1;
end;
end.
Мысал11. Таңдалған жыл мезгілі нөміріне байланысты бұл мезгілге сәйкес ай аттарын шығарыңдар.
Сурет 24. Жоба интерфейсі
Шешуі:
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
if radiobutton1.Checked then edit1.Text:='желтоқсан, қаңтар, ақпан';
end;
procedure TForm1.RadioButton2Click(Sender: TObject);
begin
if radiobutton2.Checked then edit1.Text:='наурыз, сәуір, мамыр';
end;
procedure TForm1.RadioButton3Click(Sender: TObject);
begin
if radiobutton3.Checked then edit1.Text:='маусым, шілде, тамыз';
end;
procedure TForm1.RadioButton4Click(Sender: TObject);
begin
if radiobutton4.Checked then edit1.Text:='қыркүйек, қазан,қараша';
end;
Достарыңызбен бөлісу: |
