Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Hangman Igra

[es] :: Pascal / Delphi / Kylix :: Hangman Igra

[ Pregleda: 3660 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

OrdeB
Orde Boskoski
Prilep . Makedonija

Član broj: 13625
Poruke: 7
62.220.218.*



Profil

icon Hangman Igra13.11.2003. u 22:25 - pre 218 meseci
Zdravo na site
naidon na eden problem pisuvajci igra besilka.
Nov sum vo Delphi pa ne znam sto mi e problemot pa resiv da ve prasam dokolku mozete da mi pomognite.
Pred se fala.
Eve go kodot:


Code:
  const
         dcrta = '_';
         mesto = ' ' ;
var
  Form1: TForm1;
  pateka:string;
  prilap:string;
  dzbor:string;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
pateka:=ExtractFileDir(Application.ExeName);
glava.Picture.LoadFromFile(pateka+'\'+'sliki'+'\'+'glava.bmp');
DRaka.Picture.LoadFromFile(pateka+'\'+'sliki'+'\'+'desnaraka.bmp');
DNoga.Picture.LoadFromFile(pateka+'\'+'sliki'+'\'+'desnanoga.bmp');
LRaka.Picture.LoadFromFile(pateka+'\'+'sliki'+'\'+'levaraka.bmp');
LNoga.Picture.LoadFromFile(pateka+'\'+'sliki'+'\'+'levanoga.bmp');
telo.Picture.LoadFromFile(pateka+'\'+'sliki'+'\'+'telo.bmp');
prilap:='Prilapon';
for i:=0 to length(prilap) do begin
dzbor:=dzbor + mesto + dcrta ;
end;
zbor.Caption:=dzbor;


end;

procedure TForm1.Button1Click(Sender: TObject);
var a:char;
    i:integer;
begin
a:='a';
for i:=1 to length(prilap) do begin
if a = prilap[i] then begin
dzbor[i]:=a;
zbor.Caption:=dzbor[i] + mesto + dcrta
else
dnoga.Visible:=false;
end;

end.


i mi dava greska
Code:
'END' expected but 'ELSE' found
';' expected but '.' found
'Declaration expected but end of file found'


Probav i drugi kombinacii no sepak imam greska.
Moze Li nekoj da mi pomogne ?? ?
Fala
Pozdravi Orde
Secret hacker rule #11: hackers read manuals.
 
Odgovor na temu

agocs

Član broj: 276
Poruke: 5
*.neobee.net

ICQ: 93100857


Profil

icon Re: Hangman Igra13.11.2003. u 22:44 - pre 218 meseci
sintaksa if-a nije dobra

if a = prilap then begin
dzbor:=a;
zbor.Caption:=dzbor + mesto + dcrta
else
dnoga.Visible:=false;
end;

if a = prilap then
begin
dzbor:=a;
zbor.Caption:=dzbor + mesto + dcrta;
end
else
dnoga.Visible:=false;
end;
Agocs Imre
 
Odgovor na temu

byTer

Član broj: 10936
Poruke: 1221
*.ptt.yu

ICQ: 47761626


Profil

icon Re: Hangman Igra13.11.2003. u 23:39 - pre 218 meseci
probaj da begin stavis u novi red...
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Hangman Igra

[ Pregleda: 3660 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.