Показать сообщение отдельно
  #1  
Старый 19.01.2013, 18:24
Аватар для fofka
fofka fofka вне форума
Начинающий
 
Регистрация: 12.10.2008
Сообщения: 163
Репутация: -1588
По умолчанию Взять по одному знаку (конкретный знак) после запятой

Добрый всем вечер.
Есто такой вопрос. Получаю данные примерно в таком виде "#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 первый, второй, третий знак после запятой. Скрин прилогается. Подскажите как правильно взять данные?
Изображения
Тип файла: jpg Vopros.jpg (18.3 Кбайт, 5 просмотров)
Ответить с цитированием