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

[Mariner_dmx]

Есть MEMO, 4 EDIT. В MEMO записана последовательность чисел к примеру 123456789. Надо что бы в edit1 записалось к примеру "12" в edit2-"3456", edit3-"78", edit4-"9"

Есть это, но как по группам распределить?

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
Form1.Edit1.Caption:=Form1.Memo1.Text;
end;

procedure TForm1.Memo1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
Form1.Edit1.Caption:=Form1.Memo1.Text;
end;

[Человек_Борща]

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

[Mariner_dmx]

Сообщение от Человек_Борща

что значит по группам?

Это значит что-бы первые два символа отправлялись в Edit1, третий, четвертый, пятый, шестой символ строки в Edit2, седьмой, восьмой в Edit3 и т.д
Что-то типа того.

[vovk]

 Edit1.Text:=Memo1.Text[1]+Memo1.Text[2];
 Edit2.Text:=Memo1.Text[3]+Memo1.Text[4]+Memo1.Text[5]+Memo1.Text[6];
 Edit3.Text:=Memo1.Text[7]+Memo1.Text[8];

итд

[Аватар]

Тогда уж лучше Copy пользоваться, хоть ошибку не даст, если длина текста меньше 8

[vovk]

Сообщение от Аватар

Тогда уж лучше Copy пользоваться, хоть ошибку не даст, если длина текста меньше 8

Вообщето и так ошибки не будет...

[Mariner_dmx]

Сообщение от Аватар

Тогда уж лучше Copy пользоваться, хоть ошибку не даст, если длина текста меньше 8

А можно по подробнее?

[Аватар]

Вообщето и так ошибки не будет

Кстати удивительно, ошибку не дает, но из var переменной что-то возвращает выходящее за пределы, а из свойства Memo1.Text пусто возвращает

А можно по подробнее?

Edit2.Text:=Copy(Memo1.Text,3,4);

[Mariner_dmx]

Возникла такая задача. Есть последовательность в MEMO:
50,127,,331,,,—3,,40,148,24,,89,10, 7856,43
Нужно в EDIT вставлять значения разделенные запятой. Например в EDIT1 - 50, в EDIT2 - 127, в EDIT3-0 (если после запятой нет числа, то считать там записано "0" или просто оставить поле пустое), в EDIT4 - 331 и тд до конца строки. Значения в строке могут быть разные, единственный разделитель запятая. Как это можно реализовать?

[alextrof94]

Сообщение от Mariner_dmx

Возникла такая задача. Есть последовательность в MEMO:
50,127,,331,,,—3,,40,148,24,,89,10, 7856,43
Нужно в EDIT вставлять значения разделенные запятой. Например в EDIT1 - 50, в EDIT2 - 127, в EDIT3-0 (если после запятой нет числа, то считать там записано "0" или просто оставить поле пустое), в EDIT4 - 331 и тд до конца строки. Значения в строке могут быть разные, единственный разделитель запятая. Как это можно реализовать?

procedure GetIntegers(BufString: string);
begin
 Edit1.text:=Copy(BufString, 1, pos(',', BufString)-1);
 if Edit1.text='' then Edit1.text:='0';
 Delete(BufString, 1, pos(',', BufString));

 Edit2.text:=Copy(BufString, 1, pos(',', BufString)-1);
 if Edit2.text='' then Edit2.text:='0';
 Delete(BufString, 1, pos(',', BufString));
//...
end;

Если требуется записывать числа в переменные, код будет немного короче.

var 
  int1, int2, int3: integer;

procedure GetIntegers(BufString: string);
begin
 int1:=StrToIntDef(Copy(BufString, 1, pos(',', BufString)-1), 0);
 Delete(BufString, 1, pos(',', BufString));
 
 int2:=StrToIntDef(Copy(BufString, 1, pos(',', BufString)-1), 0);
 Delete(BufString, 1, pos(',', BufString));
//...
end;

А если в массив, то еще короче

var 
  Count: integer;
  ArrayOfInteger: integer;

procedure GetIntegers(BufString: string);
var
 i: integer;
begin
 for i:=1 to Length(BufString) do
  if BufString[i]=',' then
   Inc(Count)
 SetLength(ArrayOfInteger, Count);
 while Pos(',', BufString)>0 do
 begin
  ArrayOfInteger[Count-1]:=StrToIntDef(Copy(BufString, 1, pos(',', BufString)-1), 0);
  Delete(BufString, 1, pos(',', BufString));
 end;
//все данные из строки будут помещены в массив ArrayOfInteger
end;