Текущий архив: 2004.11.07;
Скачать: CL | DM;

Вниз

помогите с TEdit компонентами   Найти похожие ветки 

← →
NT0   (2004-10-26 21:58) [0]

помогите с TEdit компонентами
допустим у меня несколько Tedit(edit1...edit3) компонентов как из них поместить данные в массив, а потом вывести в memo??????

---

← →
Yanis ©   (2004-10-26 22:07) [1]

Блин, что за вопросы то?
Если a:array[0..10] of string; то

var i: integer;
begin
 for i := 0 to ComponentCount - 1 do
   if Components[i] is TEdit then
     a[i] := (Components[i] as TEdit).Text;

 for i := 0 to Length(a)-1 do
   memo1.Lines.add(a[i]);
end;


---

Страницы: 1 вся ветка

Текущий архив: 2004.11.07;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.047 c