помогите с TEdit компонентами [D7, WinXP]
NT0 © (2004-10-26 21:58:00)
помогите с TEdit компонентами
допустим у меня несколько Tedit(edit1...edit3) компонентов
как из них поместить данные в массив, а потом вывести в
memo??????
Yanis (2004-10-26 22:07:00) [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;
Наверх 
ЧАТ |
Орешник |
|
