[fofka]

Добрый всем вечер.
Есто такой вопрос. Получаю данные примерно в таком виде "#RID,OUT,0101000000000000000000". Я принимаю таким образом (сделал для примера).

Код:

var n : String;
    m :integer;
begin
  n := edit5.Text;
  m := pos(',',n);
  Edit6.Text := copy(n,0,m-1);
  n := copy(n,m+1,length(n));
  m := pos(',',n);
  Edit7.Text := copy(n,0,m-1);
  Edit8.Text := copy(n,m+1,length(n));

В Edit5 у меня "#RID,OUT,0101000000000000000000", соответсвенно в Edit6 я получаю "#RID", в Edit7 - "OUT", в Edit8 - "0101000000000000000000". А мне нужно в Edit8 - "0", в Edit9 - "1", в Edit10 - "0". То есть взять для каждого Edit8,9,10 первый, второй, третий знак после запятой. Скрин прилогается. Подскажите как правильно взять данные?

[Yurk@]

как-то так (если правильно понял)

Код:

Edit8.Text := copy(n,m+1,1);
Edit9.Text := copy(n,m+2,1);
Edit10.Text := copy(n,m+3,1);

[fofka]

Благодарю!!! То что нужно. Все работает. Переделаю как мне нужно, и самое то. Может кому сгодится.

Код:

begin
  n := edit5.Text;
  m := pos(',',n);

  Edit6.Text := copy(n,0,m-1);
  n := copy(n,m+1,length(n));
  m := pos(',',n);
  Edit7.Text := copy(n,0,m-1);

  Edit8.Text := copy(n,m+1,1);
  Edit9.Text := copy(n,m+2,1);
  Edit10.Text := copy(n,m+3,1);

ОГРОМНОЕ Спасибо.