[Harima Hario]

Доброго времени суток! При написании программы возникло два неразрешенных момента, с которыми самостоятельно я увы не справлюсь, поэтому обращаюсь к вам.

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;

[PhoeniX]

2.

Код:

p.Y := Memo1.Lines.Count;

[chainik]

посмотри повнимательней
secm := firstas*255;
на 255 ты умножаешь переменную firstas
она объявлена как локальная внутри процедуры
но не инициализирована!

[Harima Hario]

Согласен - детская ошибка. Спасибо, в следующий раз буду повнимательнее.

[Ildar-tsr]

1. Если б повнимательнее был такого вопроса не возникло бы:

Код:

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);
firstas := StrToInt(firstb); //сравни

secm := firstas*255;
showmessage(IntToStr(secm));