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

i: byte;

ID: word;

begin

S := GetDensity;

OldS := S;

DataTable.First;

Value := 100;

ID := 0;

while not DataTable.EOF do begin

NewValue := 0;

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

for i := 1 to 9 do begin

DStr1 := Copy(S, (i-1)*6+1, 5);

DStr2 := Copy(DataTableOpis.Value, (i-1)*6+1, 5);

NewValue := NewValue + Abs(StrToFloat(DStr2)-StrToFloat(DStr1));

end; { for i }

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

if NewValue < Value then begin

Value := NewValue;

ID := DataTableID.AsInteger;

end;

DataTable.Next;

end; { while }

ShowMessage(IntToStr(ID));

end;

end.

[1] Известно, что при создании обычными средствами (”руками”) интерфейса пользователя для программ, работающих в графических средах, на это уходит более 80% времени разработки приложения.