Photo AI
Doen die volgende: Maak die onvolledige program in die Vraag 1-lêergids oop - NSC Information Technology - Question 1 - 2017 - Paper 1
Question 1
Doen die volgende: Maak die onvolledige program in die Vraag 1-lêergids oop. Sluit jou eksamennommer as kommentaar in die eerste reël van die Vraag1_U_pas-lêer in.... show full transcript
Worked Solution & Example Answer:Doen die volgende: Maak die onvolledige program in die Vraag 1-lêergids oop - NSC Information Technology - Question 1 - 2017 - Paper 1
Step 1
Tabelblad ('Tab sheet') [Vraag 1.1]
Answer
In die OnCreate-gebeurtenishanterder, kan die volgende kode geskryf word:
procedure TForm1.FormCreate(Sender: TObject);
begin
pnlV1_1.Caption := 'IT IS PRET!';
pnlV1_1.Color := clLime; // Stel agtergrondkleur
pnlV1_1.Font.Size := 15; // Stel fontgrootte
end;
Step 2
Tabelblad ('Tab sheet') [Vraag 1.2]
Answer
In die Knoppie-gebeurtenishandler kan die volgende kode gebruik word:
procedure TForm1.Button1Click(Sender: TObject);
var
getal1, getal2: Integer;
begin
// Onttrek die getalle
getal1 := StrToInt(edv1_1.Text);
getal2 := StrToInt(edv1_2.Text);
// Bepaal die groter getal
if getal1 > getal2 then
edv1_2_1.Text := IntToStr(getal1) // Vertoon groter getal
else if getal2 > getal1 then
edv1_2_1.Text := IntToStr(getal2)
else
edv1_2_1.Text := 'Gelyk'; // Vertoon 'Gelyk' indien dieselfde
end;