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