[ dimnicar @ 22.06.2007. 10:53 ] @
Treba mi pomoc pri ucenju paskala i delfija .pocetnik sam.
Ucim iz knjige "naucite da programirate u paskalu i delfiju od silvije langfield.

problem 1.
Poglavlje selekcija:
vezba 13.3
Korisniku se prikazuju dva skupa raduio dugmadi,koja sluze za biranje vrste i boje geometrijskog tela koje ce se prikazati.
resenje:
ubacio sam kontrolu shape,rgrpOblik(kruznica,elipsa,pravougaonik,zaobljenpravoug.zaobkvadrat i kvadrat i rgrpboja (crvena,plava,zelena,zuta i crna).
napisao sam im svojstva po knjizi i za dvaklika na rgrpoblik uneo kod
case rgrpOblik.ItemIndex of
0: shpoblik.shape := stcircle;
1: shpoblik.shape := stellipse;
2: shpoblik.shape := strectangle;
3: shpoblik.shape := stroundrect;
4: shpoblik.shape := stroundsquare;
5: shpoblik.shape := stsquare;

end; {iskaza case}

a dva klika na rgrpboja i upisao kod
case rgrpBoja.ItemIndex of

0: shpOblik.Brush.Color := clRed;
1: shpOblik.Brush.Color := clblue;
2: shpOblik.Brush.Color := clgreen;
3: shpOblik.Brush.Color := clyellow;
4: shpOblik.Brush.Color := clblack;

end; {iskaza case}

i kad startujem program prijavljuje mi gresku na zadnjem endu.Sta mu je???
[ viking13 @ 22.06.2007. 13:44 ] @
Da si prikazao ceo kod, pa da ti neko i pomogne.

Ovako imas odokativno 1/7 koda, koje ne govori ništa o samom problemu.

"Pojavljuje mi se greška" ne znači ništa.

Koja greška?

Jako je bitno kad želiš da ti pomognu da objasniš problem. Da bi objasnio problem moraš da shvatiš da je jako bitno da napišeš i grešku onako kako je ti vidiš.

Sve najbolje u učenju.
[ Milos D @ 22.06.2007. 13:44 ] @
Koju gresku prijavljuje? Daj copy/paste celog unita...
[ Milan Milosevic @ 22.06.2007. 14:56 ] @
Verovatno ti fali neko end; ili imas viska
[ dimnicar @ 22.06.2007. 22:22 ] @
hvala na javljanju
evo celog koda

unit EditorGeometrijskihTela;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;

type
Tfrmeditor = class(TForm)
rgrpoblik: TRadioGroup;
rgrpboja: TRadioGroup;
shpoblik: TShape;
procedure rgrpoblikClick(Sender: TObject);
procedure rgrpbojaClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
frmeditor: Tfrmeditor;

implementation

{$R *.dfm}

procedure Tfrmeditor.rgrpoblikClick(Sender: TObject);
begin
case rgrpOblik.ItemIndex of
0: shpoblik.shape := stcircle;
1: shpoblik.shape := stellipse;
2: shpoblik.shape := strectangle;
3: shpoblik.shape := stroundrect;
4: shpoblik.shape := stroundsquare;
5: shpoblik.shape := stsquare;

end; {iskaza case}
end;

procedure Tfrmeditor.rgrpbojaClick(Sender: TObject);
begin

case rgrpBoja.ItemIndex of

0: shpOblik.Brush.Color := clRed;
1: shpOblik.Brush.Color := clblue;
2: shpOblik.Brush.Color := clgreen;
3: shpOblik.Brush.Color := clyellow;
4: shpOblik.Brush.Color := clblack;

end; {iskaza case}

end.
[ Bojan Kopanja @ 22.06.2007. 23:25 ] @
U ovom bliku ti fali jedno end:
Code:
case rgrpBoja.ItemIndex of

0: shpOblik.Brush.Color := clRed;
1: shpOblik.Brush.Color := clblue;
2: shpOblik.Brush.Color := clgreen;
3: shpOblik.Brush.Color := clyellow;
4: shpOblik.Brush.Color := clblack;

end; {iskaza case}


Znaci samo ubaci jos jedno end ispred ovog sa tackom recimo i to ti je to... Case naredba se pise sa end, a ti ovde imas end samo od procedure OnClick.
[ savkic @ 23.06.2007. 08:20 ] @
> Znaci samo ubaci jos jedno end ispred ovog sa tackom recimo i to ti je to... Case naredba se pise sa end, a ti ovde imas end samo od procedure OnClick.

Zapravo ima end od case bloka.
[ Bojan Kopanja @ 23.06.2007. 10:38 ] @
Jeste, moja greska u izrazavanju . Imas end od case-a, ali ti fali od OnClick procedure . Hvala na ispravci .
[ dimnicar @ 24.06.2007. 22:35 ] @
Hvala vam svima na pomoci, sa mojim malim zakasnjenjem
Poslusaon sam savet,isprobao sa jos jednim endom i to je to
RADI1
hvala puno,do sledeceg problema
pozdrav