Массив [D7, WinXP]
Nicky000 © (2007-05-09 17:38:00)
Как создать массив из уже имеющихся на форме компонентов Edit,
и как экспортировать (импортировать) текст из них
(объединенных в массив), например в .txt?
{RASkov} (2007-05-09 17:55:00) [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, ассациирован и открыт для записи.
Наверх 
ЧАТ |
Орешник |
|
