Форум: "Основная";
Текущий архив: 2004.11.07;
Скачать: [xml.tar.bz2];
Внизпомогите с 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.026 c