Последние записи

made in programmersforum 8

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

28th
Янв

Найти все edit на форме и присвоить им строку

Posted by Chas under Delphi, Исходники

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

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

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

     else

       Application.MessageBox(PChar('Не найден контрол ввода c именем '+'Edit'+IntToStr(i+1)),

           'Ошибка!', MB_OK or MB_ICONERROR);

     { Memo1.Lines.Append(IntToStr(i)+' : '+TS.Strings); }

  end;

end;