Предыдущая страница реферата | 11  12  13  14  15  16  17  18  19  20  21 | Следующая страница реферата

LineTo(11,8);

Pen.Width:=2;

Pen.Color:=clBlack;

Rectangle(1,1,17,17);

MoveTo(9,6);

LineTo(9,11); end;

F[i]:=false; end; end;

function Analyze(AOwner:TComponent):boolean; begin
Zap:=ActList.First; if WorkMode=0 then if (Zap.FImage=AOwner.Name) then begin if Zap.FImage'0' then
ActList.Delete(ActList.IndexOf(ActList.First));

Result:=true;

Form1.Label1.Caption:='';

Prot.Append(Zap.FComment); end else begin

Form1.Label1.Caption:=' Ошибка';

Prot.Append('Ошибка, '+Zap.FComment);

Error:=Error+1;

Result:=false; end else Count:=Count+1;
Form1.ResultBtn.Visible:=True; end;

{Считывание информации дла решения задач}

procedure Read; var Fil:textfile; s:string; j:integer; begin for j:=1 to 10 do begin s:='Info'+IntToStr(j)+'.str'; assign(fil,s); reset(fil); readln(fil,s);
Form1.TaskList.Items.Insert(j-1,s); end; end;

procedure ReadInfo(Num:integer); var Fil:textfile; s,s1:string; i,j:integer; begin
ActList:=TList.Create; s:='Info'+IntToStr(Num)+'.str'; assign(fil,s); reset(fil); readln(fil,s); readln(fil,s); for i:=0 to 24 do if s[i+1]='1' then F[i]:=true else F[i]:=false; readln(fil,s); for i:=0 to 24 do if s[i+1]='1' then E[i]:=true else E[i]:=false; for i:=1 to 15 do begin readln(fil,s); s1:=s; for j:=1 to 7 do s1[j]:=' ';

ActList.Add(TMyZap.Create(StrToInt(s[1]+s[2]),s[3]+s[4]+s[5]+s[6],StrToInt(s
[7]),s1)); end; closefile(fil); end;

procedure TForm1.FormActivate(Sender: TObject); begin

Form1.ResultBtn.Visible:=False;

Form1.HelpBtn.Visible:=False;

Form1.Label2.Visible:=false;

Image1.Visible:=False;

Image2.Visible:=False;

Рекомендуем скачать другие рефераты по теме: дипломная работа по юриспруденции, рассказы.



Предыдущая страница реферата | 11  12  13  14  15  16  17  18  19  20  21 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки