http://irc.lv/blogs?lang=&nick=%D0%90%D0%BD%D0%B6%D0%B5%D0%BB%D0%B8%D0%BA%D0%B0%20%D0%A1%D1%82%D0%B0%D1%80 IRC.LV - (Анжелика Стар) http://irc.lv/images/irc-logo-2.gif http://irc.lv/blogs?lang=&nick=%D0%90%D0%BD%D0%B6%D0%B5%D0%BB%D0%B8%D0%BA%D0%B0%20%D0%A1%D1%82%D0%B0%D1%80 Mon, 24 Mar 2014 12:16:11 +0200 http://irc.lv/blogs?id=158392 http://irc.lv/blogs?id=158392 irc@irc.lv (Lenokk)



там где выделено жирным выбивает ошибку:
Fatal: Syntax error, ";" expected but "." found
но ведь там точно "." должна быть!
вот мое решение...


type TVirobnik=class(TObject)
  name:string;
  kraina:string;
  constructor Create(aname:string; akraina:string);
end;
  type TSklad=class(TObject)
   narkotik: String;
   vaga: integer;
   constructor Create(anarkotik: String; avaga: integer);
   function dodvart:integer;
  end;
  type TLiksas=class(TObject)
   Sklad: TSklad;
   Virobnik: TVirobnik;
   data:integer;
   vartist: integer;
  constructor Create(anarkotik,aname,akraina:string; adata,avartist,avaga:integer);
  destructor Destroy; override;
  procedure Getnewvaga (avaga:integer);
  function zagvartist:integer;
  constructorTLiksas.Create (anarkotik,aname,akraina:string; adata,avartist,avaga:integer);
   begin
    inherited Create;
    Sklad:=TSklad.Create(narkotik,vaga);
    Virobnik:=TVirobnik.Create(name,kraina);
    data:=adata;
    vartist:=]]> Mon, 24 Mar 2014 12:16:11 +0200