Нашли или выдавили из себя код, который нельзя назвать нормальным,
на который без улыбки не взглянешь?
Не торопитесь его удалять или рефакторить, — запостите его на
говнокод.ру, посмеёмся вместе!
for j := Low(Matrix) to High(Matrix) do begin
Caption := 'Processing ' + IntToStr(j) + ' of ' + IntToStr(High(Matrix));
for i := Low(Matrix[j]) to High(Matrix[j]) do begin
SendMessage(PictureWindow, WM_MOUSEMOVE, 0, MakeLPARAM(i,j));
S := GetCaption(TemperatureWindow);
Matrix[j,i].V := StrToFloat(S);
end;
end;
Я не смог раскрыть формат нужной программы, поэтому я извлекаю данные, бегая по окну с картинкой и считывая число из окна с температурой, лол.
Скорость считывания удручает, но пока альтернатив нет.
Ну я примерно так и сделал, только автоматом, всё-таки надо считать всю матрицу 320х240.
В той программе прямо видно было, как перекрестие бегает по строчкам, правда скорость была ещё на 1 порядок меньше до тех пор, пока я не послал WM_SETREDRAW 0.
MVC тихо курит в сторонке.
В той программе прямо видно было, как перекрестие бегает по строчкам, правда скорость была ещё на 1 порядок меньше до тех пор, пока я не послал WM_SETREDRAW 0.