Jeden stary projekt v Pascale... (diskuse)

[Michal Fecko]

Příloha:

• burza.tar.bz2 (3304 bytů)

^^^^^^^^^^ Zdojaky programu v prilohe....

[hikikomori82]

daj tam uses sysutils, choice zmen z integer na string a kontroluj takto:

case StrToIntDef(choice,0) of 
   1: begin
        from_how(false);
        buy(_w,_h);
      end; 
   2: begin
        ...
      end;
   3: begin
        ...
      end;
   4: begin
        ...
      end;
   else
     ... zla volba
   end;
end;