[es] - skolski primer, ne radi

dragancesu
subotica

Član broj: 38340
Poruke: 1357
*.voban.co.yu.

Sajt: www.buvljak.co.yu

Profil

^{15.03.2005. u 13:57}

Gledam delfi ali mi nije jasno zasto ovo ne radi, inace primer iz knjige.

Na formi je jedno Memo polje i jedno dugme koje na OnClick treba da skriva i prikazuje memo polje, kod za to je ovaj, ali compiler javlja gresku. Sta ne valja?

Code:

procedure TPMEForm.Button1Click(Sender: TObject);
const
   IsVisible : Boolean = False;
begin
   IsVisible := not IsVisible;   <<< greska : [Error] Unit1.pas(31): Left side cannot be assigned  to >>>
   if IsVisible then
      Memo.Show
   else
      Memo.Hide;
end;

Pomozite Micro$oftu u borbi protiv piraterije, poklonite prijatelju Linux

^{15.03.2005. u 13:57}

sasas
Saša Slavnić
looking for...
Na lepom plavom Dunavu

Član broj: 35478
Poruke: 611
*.zaslon-telecom.si.

Profil

Re: skolski primer, ne radi

^{15.03.2005. u 14:05}

Odeš u project->Options meniju, pa Compiler, pa uključiš "assignable typed constants" i to bi bilo to.

A sav taj kood može da se zameni jednom linijom (ako koga zanima):

Code:

procedure TPMEForm.Button1Click(Sender: TObject);
begin
memo.Visible := not memo.Visible;
end;

ss.

When something is hard to do, then it's not worth doing.

^{15.03.2005. u 14:05}