Получение младшего и старшего байта числа.

[spamer]

Всем привет. Возникла проблема, подскажите.
Есть ini файл в котором хранятся координаты точек, вот пример содержимого ini файла:

[General]
Count=3 //Количество точек
[Координаты]
Point1=7517
Point2=3789
Point3=1517

В программе я читаю эти значения в массив Points. Но что бы получить координату Х и Y точки, я использую функции получения старшего и младшего байта числа. При этом младшие байты числа заношу в один массив, старшие в другой (masLo и masHi соответственно). Но проблема в том что функции Hi и Lo не получают и не заносят младший и старший байты чисел в соответственные массивы.
Вопрос - как получить младший и старший байты чисел, которые хранятся в этом ini файле и записать их в соответственные массивы?
Вот как я пробовал, но оно не работает:

  count:= f.ReadInteger('General','Count',count); //Читаю количество точек
  SetLength(Points,count);
  for i:=0 to count-1 do
  Points[i]:= f.ReadInteger('Координаты','Point'+IntToStr(i+1),CountPoint); //Записую в массив значения координат точек (Point1=7517 , Point2=3789 , Point3=1517)
//До этого момента все работает, а вот теперь не работает
  SetLength(masLo,count);
  for i:=0 to count-1 do
  begin
  masLo[i]:=Lo(Points[count]); //Пытаюсь получить младший и 
  masHi[i]:=Hi(Points[count]);  //старший байт чисел из файла и записать их в массивы
  end;

[Serge_Bliznykov]

не подтверждаю!

  i := 7517;
  Label1.Caption :=
    'Ст.байт=' + IntToStr(Hi(i)) +
    ' мл.байт='+IntToStr(Lo(i));
7517 = $1D5D
старший байт:  $1D = 29
младший байт: $5D = 93

похоже у Вас проблема в другом...
Кстати, не думаю, что проблема в этом, но всё же: Какой тип у массива Points ??

[spamer]

Массив Points имеет тип integer.

P.S.А как бы вы посоветовали получить младший и старший байты чисел, которые хранятся в этом ini файле и записать их в соответственные массивы?

[Пепел Феникса]

у меня такой вопрос, а что должно получится?
то есть как именно получается число Поинт?
например: для этой точки Point1=7517
какие Х и У получатся?

[spamer]

Ну по идее как я понимаю, то для пользователя это будут следующие координаты: X=75 и Y=17. А уже в программе я буду преобразовывать эти координаты к внутренним.

P.S. Этот способ мене посоветовал мой преподаватель по программированию.

Но, может есть у вас какие то идеи как считать координаты X и Y точек из ini файла и уже применять их для opengl(работаю с этой библиотекой)????

[soleil@mmc]

  count:= f.ReadInteger('General','Count',count);
  SetLength(Points,count);
  for i:=0 to count-1 do
    Points[i]:= f.ReadInteger('Координаты','Point'+IntToStr(i+1),CountPoint);
  
  SetLength(masLo,count);
  // не забываем выставлять размер второму массиву
  SetLength(masHi,count);
  
  for i:=0 to count-1 do
  begin
    masLo[i]:=Lo(Points[i]); //здесь не путаемся с порядками
    masHi[i]:=Hi(Points[i]);  //и здесь тоже
  end;

ну и Serge_Bliznykov показал результат работы фунок...
честно говоря, непонятно - что мешает хранить координаты в чистом виде?

[General]
Count=3
[Координаты]
X1=75
Y1=17 
X2=37
Y2=89
X3=15
Y3=17

и потом считывать их без доп.обработки

[Пепел Феникса]

если получается 75 и 17 то байты тебе конечно же не то выдадут
там разряды десятичного числа надо получать тогда с помощью div

[Баламут]

И все-таки идея с вариантной записью мне ближе...

....
type TMyInt = record
case integer of
    0: (i: integer);
    1: (a: byte; b: byte; c: byte; d: byte);
end;
...

var
   n: TMyInt;
....
n.i := Points[i];

Теперь в n.a мы имеем старший байт, а в n.d - младший. Но имей ввиду, что между ними есть еще пара байт, т.к. Points у тебя объявлен как integer. Может все-таки стоит его объявить как WORD?

[Serge_Bliznykov]

Баламут, да ТС совсем не нужны старший и младший байты!!!! ему нужны числа из десятичной записи числа!!
т.е. ему из числа 7517 нужно получить x=75 и y=17

spamer, Вы меня, конечно, извините, но Вы с Вашим преподавателем фигню придумали!!!
выделить из 7517 отдельно 75 и отдельно 17 абсолютно не сложно (либо в цикле через div 10 и mod 10, как предложил Пепел Феникса, либо, банальное:
x := StrToInt(Copy(Trim(IntToStr(Points[i]),1,2));
y := StrToInt(Copy(Trim(IntToStr(Points[i]),3,2)); )

Но Вы, наверное, догадываетесь, что координаты бывают не только двухзначные?!
Так вот, расскажите мне, какие, по Вашему (и по мнению Вашего преподавателя) должны быть координаты если:
Point = 5 (x=0 y=5 или x=5 y=0 ??)
Point = 12145 (x=12 y = 145 или x=121 y = 45
Point = 111111 (варианты??)

таким образом, целое число по предложенному Вами алгоритму нельзя однозначно перевести в координаты x и y). точка.

[spamer]

spamer, Вы меня, конечно, извините, но Вы с Вашим преподавателем фигню придумали!!!

Я не спорю. Просто он сказал, что надо из ini файла считать координаты точек и предложил считывать младший и старший байты чисел. Мене сразу эта идея не понравилась.

Вот думаю может по другому это как то сделать. А конкретно хочу попробовать как предложил soleil@mmc:

хранить координаты в чистом виде

CountPoint:= f.ReadInteger('Количество точек','Count',CountPoint);  //Читаю количество точек
  SetLength(masX,CountPoint);
  SetLength(masY,CountPoint);

  for i:=0 to CountPoint-1 do
  begin
    //Читаю координаты X точек в массив masX
    masX[i]:=f.ReadFloat('Координаты X','X'+IntToStr(i+1),CountPoint); 
    //Читаю координаты Y точек в массив masY 
    masY[i]:=f.ReadFloat('Координаты Y','Y'+IntToStr(i+1),CountPoint);
  end;


  //Передаю координаты в метод движения фигуры
  for i:=0 to CountPoint-1 do
  begin
    MyClass.Paint(masX[i], masY[i]);
    Sleep(1000);
  end;

Вот так сделал. Народ, если можете - подскажите, мой код правильно реализован??? Он то вроде работает, но все же, что вы скажите - нормально реализован или как то переделать???


Содержимое ini файла :
[Количество точек]
Count=3
[Координаты X]
X1=-0,3
X2=-0,5
X3=0,0
[Координаты Y]
Y1=0,0
Y2=0,0
Y3=-0,5