[ dragancesu @ 15.03.2005. 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;
[ sasas @ 15.03.2005. 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.