pomoc za pocetnika u paskalu i delfiju (greska na zadnjem endu)

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???

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.

Potpis

viking ®

Koju gresku prijavljuje? Daj copy/paste celog unita...

Verovatno ti fali neko end; ili imas viska

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.

U ovom bliku ti fali jedno end:


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.

Potpis

ex Strog

http://www.zeussoftware.rs

> 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.

Potpis

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Jeste, moja greska u izrazavanju . Imas end od case-a, ali ti fali od OnClick procedure . Hvala na ispravci .

Potpis

ex Strog

http://www.zeussoftware.rs