Чтение переменных из составной переменной

[Van-89]

Здравствуйте... помогите плиз... или намекните как сделать)
Имеется текстовая переменная t:='100|465|2|1|' и в ней записаны первые две цифры координаты объекта... а вторые две диагональное движение объекта...
проблема в том что мне надо вытащить значения из этой переменной в 4 отдельные переменные параметров объекта...
Нужно сделать так или мне придется заводить 4 отдельных массива...

Описал всё в вкратце что бы за меня ничего не сделали))

[Sciv]

А один массив размерностью [1..4] чем не устраивает?

var params: array [1..4] of integer;
    t, tt: string;
    i, code: integer;
begin
  i:=1;
  While pos('|',t)<>0 do begin
    tt:=copy(t,1,pos('|',t)-1);
    val(tt,params[i],code);
    delete(t,1,pos('|',t));
    inc(i);
  end;
end.

[unbanned]

можно по красивше сделать

type
  param = record
    x: integer;
    y: integer;
    mv1: integer;
    mv2: integer;
  end;

var
  t: param;
  i, err: integer;
  str: string;

begin
  str := '100|465|2|1|';
  with t do
  begin
    i := pos('|', str);
    val(copy(str, 1, pos('|', str) - 1), x, err);
    delete(str, 1, i);
    i := pos('|', str);
    val(copy(str, 1, pos('|', str) - 1), y, err);
    delete(str, 1, i);
    i := pos('|', str);
    val(copy(str, 1, pos('|', str) - 1), mv1, err);
    delete(str, 1, i);
    i := pos('|', str);
    val(copy(str, 1, pos('|', str) - 1), mv2, err);    
  end; 
  with t do
    writeln(x, ' ', y, ' ', mv1, ' ', mv2);
end.

в случае если объектов будет несколько

var
arr:array [1..N] of param;
....

[Stilet]

Предложу классику: http://www.programmersforum.ru/showt...369#post398369
Только вместо пробела в условие поставить символ |
И будет сплитовка строки в массив, а там уже из массива выбирать как хочется.

[Van-89]

действительно можно было использовать двухмерный массив...
но я хотел попробовать сделать подругому...

спасибо за помощь! :-) все сделал ))