Вставка из TMEMO в TEDIT по группам

[Serge_Bliznykov]

например, так:

procedure TForm5.Button1Click(Sender: TObject);
var
  TS : TStringList;
  i : integer;
  ed : TComponent;
begin
  TS := TStringList.Create;
  TS.Delimiter := ',';
  TS.DelimitedText := Memo1.Lines.Text;
  for i := 0 to TS.Count - 1 do begin
     ed := FindComponent('Edit'+IntToStr(i+1));
     if ed is TEdit then
       TEdit(ed).Text := TS.Strings[i]
     else
       Application.MessageBox(PChar('Не найден контрол ввода c именем '+'Edit'+IntToStr(i+1)),
           'Ошибка!', MB_OK or MB_ICONERROR);
     { Memo1.Lines.Append(IntToStr(i)+' : '+TS.Strings[i]); }
  end;
end;

ссылка на исходник и exe:
ParseMemoToEdits_sources.rar
ParseMemoToEdits_EXE.rar

[Mariner_dmx]

Спасибо, буду разбираться

[Mariner_dmx]

Возникла еще одна задача. В MEMO записана последовательность символов ABC... . Каждый символ нужно сопоставить со своим известным значением и вывести его в свой TEDIT согласно таблице:

Первый символ строки\Второй символ строки\Третий символ строки\...


A=1                   A=10                  A=32                A= ...
B=2                   B=34                  B=33                B= ...
C=3                   C=12                  C=44                C= ...
D=4                   D=13                  D=35                D= ...
E=5                   E=14                  E=36                E= ...
F=6                   F=15                  F=37                F= ...
G=7                   G=16                  G=38                G= ...

Если в MEMO записана последовательность ABC, то в EDITах должно быть 1,34,44
Как это можно сделать

[XE5]

Возникла еще одна задача

А задачи случайно возникают не из уст Вашего руководителя? Потому что в нормальной жизни таких задач я пока не встречал. А если моя догадка верна, то не помогаем ли мы очередному лентяю выплыть на сессии???

[Mariner_dmx]

Нет, не переживайте, это мне нужно лично по хобби, к работе никак не относиться. Это будет декодер телеметрии для моего устройства. Пожалуйста, подскажите как это можно реализовать.

[eval]

за десять лет хобби переходит в мастерство, у вас же не так, или подите поучитесь или подите купите

[XE5]

Это будет декодер телеметрии для моего устройства

А что за устройство, можно полюбопытствовать? И как данные с этого устройства попадают к Вам в Memo?