Форум: "Основная";
Текущий архив: 2007.07.08;
Скачать: [xml.tar.bz2];

Вниз

Массив   Найти похожие ветки 

← →
Nicky000   (2007-05-09 17:38) [0]

Как создать массив из уже имеющихся на форме компонентов Edit,  и как экспортировать (импортировать) текст из них (объединенных в массив), например в .txt?

---

← →
{RASkov} ©   (2007-05-09 17:55) [1]

ArrEd: Array of TEdit;
.....
ArrEd:=nil;
for N:= ComponentCount-1 downto 0 do begin
if Components[N] is TEdit then begin
 SetLength(ArrEd, Length(ArrEd)+1);
 ArrEd[N]:=TEdit(Components[N]);
end;
end;

SaveToFile:

for N:=0 to Length(ArrEd)-1 do
WriteLn(F, ArrEd[N].Text;

F - TextFile, ассациирован и открыт для записи.

---

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

Форум: "Основная";
Текущий архив: 2007.07.08;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.053 c