[es] - pomoc za pocetnika u paskalu i delfiju (greska na zadnjem endu)

dimnicar
dimnicar

Član broj: 48094
Poruke: 505
*.228.eunet.yu.

+5 Profil

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

^{22.06.2007. u 10:53 - pre 205 meseci}

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

Odgovor na temu

viking13
Aleksandar Milanovic
SBB
Novi Beograd

Član broj: 131741
Poruke: 190
*.sbb.co.yu.

Profil

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

^{22.06.2007. u 13:44 - pre 205 meseci}

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.

viking ®

Odgovor na temu

Milos D
Beograd

Član broj: 5621
Poruke: 280
*.smin.sezampro.yu.

+1 Profil

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

^{22.06.2007. u 13:44 - pre 205 meseci}

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

Odgovor na temu

Milan Milosevic

Član broj: 67
Poruke: 932
77.46.248.*

+31 Profil

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

^{22.06.2007. u 14:56 - pre 205 meseci}

Verovatno ti fali neko end; ili imas viska

Odgovor na temu

dimnicar
dimnicar

Član broj: 48094
Poruke: 505
*.178.eunet.yu.

+5 Profil

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

^{22.06.2007. u 22:22 - pre 205 meseci}

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.

Odgovor na temu

Bojan Kopanja
Bojan Kopanja
Senior Web Developer, ZeusSoftware
Stara Pazova

Član broj: 6155
Poruke: 507
77.46.226.*

ICQ: 346697685
Sajt: www.zeussoftware.rs

Profil

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

^{22.06.2007. u 23:25 - pre 205 meseci}

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.

ex Strog

http://www.zeussoftware.rs

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

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

^{23.06.2007. u 08:20 - pre 205 meseci}

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

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

Odgovor na temu

Bojan Kopanja
Bojan Kopanja
Senior Web Developer, ZeusSoftware
Stara Pazova

Član broj: 6155
Poruke: 507
77.46.179.*

ICQ: 346697685
Sajt: www.zeussoftware.rs

Profil

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

^{23.06.2007. u 10:38 - pre 205 meseci}

Jeste, moja greska u izrazavanju

. Imas end od case-a, ali ti fali od OnClick procedure

. Hvala na ispravci

ex Strog

http://www.zeussoftware.rs

Odgovor na temu

dimnicar
dimnicar

Član broj: 48094
Poruke: 505
*.121.eunet.yu.

+5 Profil

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

^{24.06.2007. u 22:35 - pre 204 meseci}

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

Odgovor na temu