Реферат: Программная система обработки и анализа изображений

for y := yOld to yOld+dy-1 do begin

for x := xOld to xOld+dx-1 do begin

if Image.Canvas.Pixels[x,y] <> clWhite then Inc(BlackCnt);

end; { for x }

end; { for y }

{------------------------------------------------------------------}

TotCnt := dx*dy;

P := BlackCnt/TotCnt; { Плотность пикселов в квадранте }

Str(P:1:3, S1);

S := S+S1+' ';

xOld := xOld+dx;

end; { for i }

yOld := yOld+dy;

end; { for j }

Result := S;

end; { TMainForm.GetDensity }

procedure TMainForm.N5Click(Sender: TObject);

var

S: string;

ID: word;

begin

S := GetDensity;

ID := DataTable.RecordCount;

DataTable.AppendRecord([ID+1, S]);

end;

procedure TMainForm.N10Click(Sender: TObject);

var

SValue: string[5];

S, DStr1, DStr2, OldS: string;