close

Вход

Забыли?

вход по аккаунту

?

Отчет №5 (2)

код для вставкиСкачать
?????????? ??????????????? ??????????? ??.?.?.???????
????????? ??????.
??????? ???2-??
???????????? ?????? ?5
???????????? ???? ?????
???????? ???????
?????? ???-62
???????? ?.?.
???????? ?????????????
???????? ?.?.
??????, 2011
????????????? ?????
???? ?? ????????? ??????? ???? ?????, ??????? ?????????? ???????? ??????? - ??? ????????????. ??????? ???? ????? ???????? ??????????, ???? ????? ????? ? ??? ??????? ?? ????????? 1. ???????????? - ??????? ?????? ???????? ??????????????. ???? ????? ?????????, ???? ????????? ??? ?? ???????, ????? ???? ???????????? ????????? ???????????????? ??????? ??? ???????, ? ???????, ?????? ?????????? ?????????????, ????? ???? ??????? ??? ?????. ???? ??????? ?? ???????? ??????? ??????? ??? ???????? ??? ????????, ?? ????? ??????? ??????????. ? ??????? pi, ??????? ?????????? ??????? ?????????? ??????????? ????? ??????? pi'. ????????, ? ??????? pi ???????????? ? ???????? ??????? ??? ???????? ??????? ?????????????? ????????? ???????:
???? pi ? I(tj) ? pi � O(tj), ?? ???????? pi ' ? O(tj) ???? pi ? O(tj) ? pi � I(tj), ?? ???????? pi ' ? I(tj) ???? pi ????? ?????, ?? ??????? pi ' - ???, ? ????????.
??????? ?????????
unit MainUnit;
procedure TMainForm.N14Click(Sender: TObject);
var i,j,x,kolv,ind,l:integer;
flag,bezop:boolean;
str:string;
begin
SecurityForm.Memo1.Clear;
flag:=false;
for i:=1 to MainForm.Table3.ColCount do
if MainForm.Table3.Cells[i,1]<>'' then
if strtoint(MainForm.Table3.Cells[i,1])>1 then
begin
SecurityForm.Memo1.Lines.Add('??????? - p'+inttostr(i)+' - ???????? ????? ????? ????? ('+MainForm.Table3.Cells[i,1]+')');
flag:=true;
end;
for i:=1 to MainForm.Table1.ColCount do
for j:=1 to MainForm.Table1.RowCount do
begin
if (MainForm.Table1.Cells[i,j]<>'') then
if strtoint(MainForm.Table1.Cells[i,j])>1 then
begin
SecurityForm.Memo1.Lines.Add('??????? ??????? - p'+inttostr(i)+' - ???????? ??????? ??? ???????? - t'+inttostr(j));
flag:=true;
end;
if (MainForm.Table2.Cells[i,j]<>'') then
if strtoint(MainForm.Table2.Cells[i,j])>1 then
begin
SecurityForm.Memo1.Lines.Add('???????? ??????? - p'+inttostr(i)+' - ???????? ??????? ??? ???????? - t'+inttostr(j));
flag:=true;
end;
end;
if (flag=true) then SecurityForm.ShowModal
else begin
kolv:=MainForm.Table1.ColCount-1;
flag:=false;
for j:=1 to kolv do
begin
flag:=false;
str:=MainForm.Table1.Cells[j,0];
if str[length(str)]='"' then break;
for i:=1 to MainForm.Table1.RowCount do
begin
if (MainForm.Table1.Cells[j,i]<>'')and(MainForm.Table1.Cells[j,i]<>MainForm.Table2.Cells[j,i]) then
begin
bezop:=false;
for l:=1 to MainForm.Table1.ColCount-1 do
if ('p'+inttostr(j)+'"')=(MainForm.Table1.Cells[l,0]) then
bezop:=true;
if bezop=false then begin
flag:=true;
ind:=j;
end;
end;
if (MainForm.Table2.Cells[j,i]<>'')and(MainForm.Table1.Cells[j,i]<>MainForm.Table2.Cells[j,i]) then
begin
bezop:=false;
for l:=1 to MainForm.Table2.ColCount-1 do
if ('p'+inttostr(j)+'"')=(MainForm.Table2.Cells[l,0]) then
bezop:=true;
if bezop=false then
begin
flag:=true;
ind:=j;
end;
end;
end;
if flag=true then
begin
MainForm.Table1.ColCount:=MainForm.Table1.ColCount+1;
MainForm.Table1.Cells[MainForm.Table1.ColCount-1,0]:='p'+inttostr(ind)+'"';
MainForm.Table2.ColCount:=MainForm.Table2.ColCount+1;
MainForm.Table2.Cells[MainForm.Table2.ColCount-1,0]:='p'+inttostr(ind)+'"';
MainForm.Table3.ColCount:=MainForm.Table3.ColCount+1;
MainForm.Table3.Cells[MainForm.Table3.ColCount-1,0]:='p'+inttostr(ind)+'"';
for i:=1 to MainForm.Table1.RowCount do
begin
MainForm.Table1.Cells[MainForm.Table1.ColCount-1,i]:=MainForm.Table2.Cells[ind,i];
MainForm.Table2.Cells[MainForm.Table2.ColCount-1,i]:=MainForm.Table1.Cells[ind,i];
end;
if (MainForm.Table3.Cells[ind,1]='')or(MainForm.Table3.Cells[ind,1]='0') then
MainForm.Table3.Cells[MainForm.Table3.ColCount-1,1]:='1'
else MainForm.Table3.Cells[MainForm.Table3.ColCount-1,1]:='';
end;
end;
showmessage('???? ?????????');
end;
end;
Документ
Категория
Без категории
Просмотров
3
Размер файла
19 Кб
Теги
отчет
1/--страниц
Пожаловаться на содержимое документа