Imam problem u delphi-ju, pravio sam igricu iks-oks, i sve radi osim funkcije RightStr(TLabel(Sender).....
dole sam stavio celu proceduru pa ako neko moze da mi pomogne-ne znam da li treba da je deklarisem nekako - ne znam stvarno, posto Delphi ne poznajem bas dobro da bih uklonio ovaj problem > pomozite ako ikako mozete ! Bar ako mozete da mi objasnite sta radi ta funkcija RightStr...odnosno ceo taj predposlednji red posto ga uopste ne razumem i zbog kojeg mi ne radi cela igrica!
procedure TfrMain.lblCell0Click(Sender: TObject);
var
iWin : integer;
CellIndex : 0..8;
begin
if bGameOver = True Then Exit;
if TLabel(Sender).Caption <> '' then
begin
ShowMessage('Cell occupied!');
Exit;
end;
CellIndex := StrToInt(RightStr(TLabel(Sender).Name,1));
iWin := GamePlay(CellIndex);
dole sam stavio celu proceduru pa ako neko moze da mi pomogne-ne znam da li treba da je deklarisem nekako - ne znam stvarno, posto Delphi ne poznajem bas dobro da bih uklonio ovaj problem > pomozite ako ikako mozete ! Bar ako mozete da mi objasnite sta radi ta funkcija RightStr...odnosno ceo taj predposlednji red posto ga uopste ne razumem i zbog kojeg mi ne radi cela igrica!
procedure TfrMain.lblCell0Click(Sender: TObject);
var
iWin : integer;
CellIndex : 0..8;
begin
if bGameOver = True Then Exit;
if TLabel(Sender).Caption <> '' then
begin
ShowMessage('Cell occupied!');
Exit;
end;
CellIndex := StrToInt(RightStr(TLabel(Sender).Name,1));
iWin := GamePlay(CellIndex);
