//zadanie 1.
procedure TForm1.Button1Click(Sender: TObject);
var
a, b: single;
begin
a:= strtofloat(edit1.text);
b:= strtofloat(edit2.text);
case a>b of
true:
begin
edit1.Color:= clgreen;
edit2.color:= clwhite;
end;
false:
begin
edit2.Color:= clgreen;
edit1.color:= clwhite;
end;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
edit2.Color:=clwhite;
edit1.color:=clwhite;
end;
end. {Mozna dodatkowe 2 linijki dopisac co w przypadku gdy liczby sa jednakowe np: if a=b then edit1 i edit2 color red}
//zadanie 2. {W treści nie jest sprecyzowany zakres losowanych liczb, przyjąłem <0;50>}
procedure TForm1.Button1Click(Sender: TObject);
var
a: integer;
begin
randomize;
a:=0;
repeat
begin
a:=a+1;
label1.caption:=label1.Caption+#13+inttostr(random(51));
end
until a=10;
end;
end.
// zadanie 3. {Po wstawieniu label1 najlepiej usunac zawartosc ( caption )}
procedure TForm1.Button1Click(Sender: TObject);
var
a, b: integer;
begin
a:=strtoint(edit1.Text);
b:=strtoint(edit2.Text);
if a < b then
repeat
begin
a:=a+1;
label1.caption:=label1.caption+', '+inttostr(a);
end
until a = b-1
else
showmessage(edit1.Name+' jest wieksze od '+edit2.name);
end;
end. {funkcja showmessage wystepuje w przypadku gdy edit2 jest wiekszy i aby program dzialal edit1 musi byc wiekszy od edit2}
// zadanie 4. {Dla przypomnienia, obraz początkowy laduje sie z polecenia Picture w zakladce Properties dla komponentu Image1.}
procedure TForm1.Image1DblClick(Sender: TObject);
begin
image1.Visible:=false;
end;
procedure TForm1.FormClick(Sender: TObject);
begin
image1.Visible:=true;
end;
end.
// zadanie 5. {stworzyc popupmenu i przypisac do panalu na który wstawimy shape}
procedure TForm1.prostokat1Click(Sender: TObject);
begin
shape1.Shape:=strectangle;
end;
procedure TForm1.elipsa1Click(Sender: TObject);
begin
shape1.Shape:=stellipse;
end;
end.
// zadanie 6. {Po wstawieniu label1 najlepiej usunac zawartosc ( caption )}
procedure TForm1.Button1Click(Sender: TObject);
var
a, b: integer;
begin
a:=0;
b:=strtoint(edit1.Text);
repeat
begin
a:= a+1;
label1.caption:=label1.Caption+#13+inttostr(b)+', '+inttostr(b*b);
b:=b+1;
end
until
a=10;
end;
end.
// zadanie 7. { Latwiejszego nie ma:D }
procedure TForm1.Button1Click(Sender: TObject);
begin
Caption:=edit1.Text;
end;
end.
// zadanie 8. { wstawiamy popupmenu a w nim 2 polecenia zakresow, popupmenu przypisujemy scrollbarowi.
Wartosc na suwaku wyswietla sie na bierzaco poprzez procedure OnChange dla scrollbara }
procedure TForm1.N15001Click(Sender: TObject);
begin
scrollbar1.Min:=1;
scrollbar1.Max:=500;
end;
procedure TForm1.N1001001Click(Sender: TObject);
begin
scrollbar1.Min:=-100;
scrollbar1.Max:=100;
end;
procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
label1.Caption:=inttostr(scrollbar1.position);
end;
end.
// zadanie 9. {wstawiamy dwa edity i pod kazdym label, po przycisnieciu buttona labele mowia jaka to liczba.
PO STWORZENIU EDITÓW NAJLEPIEJ ODRAZU ZMIENIC ICH ZAWARTOSC NA liczbe 0}
procedure TForm1.Button1Click(Sender: TObject);
var
a, b: integer;
begin
a:=strtoint(edit1.Text);
b:=strtoint(edit2.Text);
if a mod 2=0 then
label1.Caption:='liczba parzysta'
else
label1.Caption:='liczba nieparzysta';
if b mod 2=0 then
label2.caption:='liczba parzysta'
else
label2.Caption:='liczba nieparzysta';
end;
end.
//zadanie 10. {wstawiamy button i opendialog}
procedure TForm1.Button1Click(Sender: TObject);
begin
if opendialog1.Execute then
caption:=opendialog1.FileName;
end;
end.
// zadanie 11. { Wartosc na suwaku wyswietla sie na bierzaco poprzez procedure OnChange dla scrollbara }
procedure TForm1.Button1Click(Sender: TObject);
begin
scrollbar1.Min:=Strtoint(edit1.Text);
scrollbar1.Max:=strtoint(edit2.Text);
end;
procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
label1.Caption:=inttostr(scrollbar1.position);
end;
end.
// zadanie 12 { Po wprowadzeniu wszystkich 3 liczb, nacisniecie buttona wyswietli srednią na labelu }
procedure TForm1.Button1Click(Sender: TObject);
var
a, b, c: integer;
begin
a:=strtoint(edit1.Text);
b:=strtoint(edit2.Text);
c:=strtoint(edit3.Text);
label1.Caption:=floattostrF((a+b+c)/3,fffixed,10,2);
end;
end.
// zadanie 13
procedure TForm1.Button1Click(Sender: TObject);
begin
case label1.Font.Color of
clred: label1.font.color:=clgreen;
clgreen: label1.font.Color:=clred;
else
label1.font.Color:= clred;
end;
end;
end.
// zadanie 14 {w tym zadaniu nie ma podanych trzech roznych formatow daty, wiec kazdy moze sobie wymyslic cos innego }
// zadanie 15
procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
label1.Caption:=floattostr((scrollbar1.Position+scrollbar2.position)/2);
end;
procedure TForm1.ScrollBar2Change(Sender: TObject);
begin
label1.Caption:=floattostr((scrollbar1.Position+scrollbar2.position)/2);
end;
end.
// zadanie 16 { dla edit1 ustwiamy event onkeypress }
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 THEN label1.Caption:=inttohex(strtoint(edit1.Text),10);
end;
// zadanie 17 {tu mozna wstawic procedure KeyPress dla Edita jak i dla Fromu.
W przypadku formu nalezy dodatkowo wlaczyc wartoc KeyPreview na true w zakladce Properties WAZNE!: w edicie ma byc juz wartość 0,2 wpisana}
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
var
a: single;
begin
a:=strtofloat(edit1.Text);
if key=#13 then
edit1.Text:=floattostrf(a+0.1,fffixed,10,1);
end;
end.
// zadanie 18 { to zadanie mozna zrobic w prosty sposob zaslaniania i odslaniania sie dwoch image. Image2 nakladamy na image1, wstawiamy obrazki i... }
procedure TForm1.Image2Click(Sender: TObject);
begin
image2.Visible:=false;
image1.Visible:=true;
end;
procedure TForm1.Image1Click(Sender: TObject);
begin
image2.Visible:=true;
image1.Visible:=false;
end;
end. { piszcie jak znacie metode z jednym image. }
// zadanie 19 { Twozymy dialogi dla czconki(fontdialog) i dla kolorow. Tworzymy popupmenu i przypisujemy je labelowi. Dla dwoch wartosci w popupmenu przypisujemy procedury odpwiednio dla zmiany czcionki i dla zmiany koloru }
procedure TForm1.czcionka1Click(Sender: TObject);
begin
if fontdialog1.Execute then
label1.Font:=fontdialog1.Font;
end;
procedure TForm1.kolor1Click(Sender: TObject);
begin
if colordialog1.Execute then
label1.color:=colordialog1.Color;
end;
end.
// zadanie 20
procedure TForm1.Button1Click(Sender: TObject);
var
r: integer;
pole, obwod: single;
begin
r:=strtoint(edit1.Text);
pole:=3.14*r*r;
obwod:=2*3.14*r;
label1.Caption:='pole kola: '+floattostr(pole)+#13+'obwod kola: '+floattostr(obwod);
end;
end.
// zadanie 21 { dla form1 - event OnDblClick }
procedure TForm1.FormDblClick(Sender: TObject);
begin
button1.Width:=button1.Width*2;
button1.Height:=button1.Height*2;
end;
// zadanie 22 { Tworzymy radiogroup i w Items w Properties dodajemy 3 wartosci, kolejno jedna pod druga }
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
case radiogroup1.ItemIndex of
0: label1.Caption:=floattostr(strtoint(edit1.Text)*0.1);
1: label1.Caption:=floattostr(strtoint(edit1.Text)*0.15);
2: label1.Caption:=floattostr(strtoint(edit1.Text)*0.2);
end;
end;
// zadanie 23 jest to zadanie 16, chyba jakas pomylka
// zadanie 24 { Dla edit1. event OnKeyPress }
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
if strtoint(edit1.Text) mod 2=0 then
label1.Caption:=inttostr(strtoint(edit1.Text)*strtoint(edit1.Text))
else
label1.Caption:=floattostr(1/strtoint(edit1.Text));
end;
// zadanie 25 to samo co zadanie 13 tylko ze klikamy w label a nei w button
// zadanie 26 { w uses dopisujemy IdGlobal }
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
case radiogroup1.ItemIndex of
0: label1.Caption:=inttobin(strtoint(edit1.Text));
1: label1.Caption:=inttohex(strtoint(edit1.Text),10)
end;
end;
// zadanie 27 { tworzymy 3 scrollbary i ich zakresy od 1 do 255 i dla kazdego event OnChange z taka sama procedura }
procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
color:=rgb(scrollbar1.Position,scrollbar2.Position,scrollbar3.Position);
end;
procedure TForm1.ScrollBar2Change(Sender: TObject);
begin
color:=rgb(scrollbar1.Position,scrollbar2.Position,scrollbar3.Position);
end;
procedure TForm1.ScrollBar3Change(Sender: TObject);
begin
color:=rgb(scrollbar1.Position,scrollbar2.Position,scrollbar3.Position);
end;
// zadanie 28
procedure TForm1.Button1Click(Sender: TObject);
begin
if button1.Caption='Otworz plik' then
button1.Caption:='Zamknij plik'
else
button1.Caption:='Otworz plik';
end;
// zadanie 29
procedure TForm1.Button1Click(Sender: TObject);
var
a,b: integer;
begin
a:=strtoint(edit1.Text);
b:=strtoint(edit2.Text);
color:=round((a+b)/2);
end;
// zadanie 30 zadanie 28
// zadanie 31 ----> zadanie 14
// zadanie 32
procedure TForm1.Button1Click(Sender: TObject);
begin
label1.Caption:=edit1.Text;
label1.Color:=strtoint(edit2.Text);
end;
// zadanie 33
procedure TForm1.Button1Click(Sender: TObject);
begin
button1.Left:=button1.Left+10;
end;
// zadanie 34 { indywidualne zadanie, a funkcja to image1.picture.loadfromfile('....') }
// zadanie 35 { 0 odpowiada dolarowi, 1 euro, a 2 funtowi }
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
case radiogroup1.ItemIndex of
0: label1.Caption:=floattostrF(strtoint(edit1.Text)/2.5,ffFixed,10,2);
1: label1.Caption:=floattostrF(strtoint(edit1.Text)/3.7,ffFixed,10,2);
2: label1.Caption:=floattostrF(strtoint(edit1.Text)/5.5,ffFixed,10,2);
end;
end;
// zadanie 36 { Tworzymy 4 ckeckboxy, ceny kolejno dla poszczegolnych checkboxów tak jak w tresci zadania. Dla kazdego procedura dla zdarzenia OnClick. WAZNE!: ZAWARTOSC POCZĄTKOWĄ LABEL1 ZMIENIAMY NA 0 (caption) }
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if checkbox1.Checked=true then
label1.Caption:=inttostr(strtoint(label1.Caption)+800)
else
label1.Caption:=inttostr(strtoint(label1.Caption)-800);
end;
procedure TForm1.CheckBox2Click(Sender: TObject);
begin
if checkbox2.Checked=true then
label1.Caption:=inttostr(strtoint(label1.Caption)+100)
else
label1.Caption:=inttostr(strtoint(label1.Caption)-100);
end;
procedure TForm1.CheckBox3Click(Sender: TObject);
begin
if checkbox3.Checked=true then
label1.Caption:=inttostr(strtoint(label1.Caption)+300)
else
label1.Caption:=inttostr(strtoint(label1.Caption)-300);
end;
procedure TForm1.CheckBox4Click(Sender: TObject);
begin
if checkbox4.Checked=true then
label1.Caption:=inttostr(strtoint(label1.Caption)+150)
else
label1.Caption:=inttostr(strtoint(label1.Caption)-150);
end;
end.
// zadanie 37 { wstawiamy komponent Shape i wydluzamy troche }
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
case radiogroup1.ItemIndex of
0: shape1.Shape:=stsquare;
1: shape1.Shape:=stcircle;
2: shape1.Shape:=strectangle;
3: shape1.Shape:=stellipse;
end;
end;
// zadanie 38 { jest to mix zadania ze zmiana obrazka a'la zadanie 34 i zadanie 26 }
// zadanie 39
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
case radiogroup1.ItemIndex of
0: label1.Caption:=floattostr(strtofloat(edit1.Text)*strtofloat(edit1.Text));
1: label1.Caption:=floattostr(sin(strtoint(edit1.Text)));
2: label1.Caption:=floattostr((strtofloat(edit1.Text)*strtofloat(edit1.Text)*strtofloat(edit1.Text))+3);
end;
end;