Доброго времени суток! При написании программы возникло два неразрешенных момента, с которыми самостоятельно я увы не справлюсь, поэтому обращаюсь к вам.
1) После слова
STOP—PAGE идет набор цыфер, меня интересуют первые три, которые я благополучно вырезаю с помощью
Код:
firstb := Copy(s, Pos(substr, s) + 10, 3);
Возможные варианты с 000 до 255. Полученное значение мне нужно умножить на 255, что я и пытаюсь сделать, но
showmessage выводит мне совсем другое значение
-1736031076. Как мне разрешить эту ситуацию? чтобы при умножении 002 на 255 я получал 510
Возможно я что-то делаю не так, подскажите.
Код:
procedure SetMinMax(s:string);
var tmp,substr,firstb:string;
var secm:integer;
var firstas:Integer;
begin
substr:='STOP--PAGE';
if(not maxFound) then
begin
if(Pos(substr, s) > 0) then
begin
firstb := Copy(s, Pos(substr, s) + 10, 3);
firstb := IntToStr(firstb);
secm := firstas*255;
showmessage(IntToStr(secm));
2) В программе используется компонент
TMemo в котором постепенно появляется информация… её очень много, а меня в основном интересует то, что находится в последней строке… курсор постоянно стоит в первой. Искал в интернете, нашел следующую процедуру, но пока как с помощью её разрешить мою проблему.
Код:
procedure TForm1.btn1Click(Sender: TObject);
var
p:TPoint;
begin
p.X:=0;
p.Y:=0;
Memo1.CaretPos:=p;
Memo1.SetFocus;
end;