Сохранение значений динамических элементов

[ilyxaaa]

Добрый день.
Имеется программа написанная на Delphi, в которой динамически создаются элементы едит.
Помогите реализовать сохранение все динамически созданных значений едит и дальнейшую из загрузку в программу.
Код прилагается

Помогите кто знает очень нужно

Помогите хотябы переделать этот код сохранения в код загрузки

var
ms: TMemoryStream;
fs: TFileStream;
begin
fs := TFileStream.Create(edt1.text, fmCreate or fmOpenRead);
ms := TMemoryStream.Create;
try
ms.ReadComponent(self);
ms.Seek(0, soFromBeginning);
ObjectBinaryToText(ms, fs);
finally
ms.Free;
fs.free;
end;

[Black Fregat]

Вы не могли бы более чётко сформулировать, что именно и куда Вы хотите сохранить и передать?

[ilyxaaa]

В моей программе создаются динамические edit, каждый раз можно создать n колличество, так вот данные которые я в них вписываю во время работы мне нужно сохранить а так же потом загрузить данные и edit в которых они вписываются, с возможностью дальнейшей работы

[evg_m]

так вот данные которые я в них вписываю во время работы мне нужно сохранить

т.е. данные которые надо хранить есть TEdit.Text c указанием какому-такому EditXXX TEdit.Name они принадлежат.
<name> = <text>
edit1 =абракадабра
edit77 =чушь

запись

lst:=TstringList.Create;
for ....// какой-то цикл по всем Edit для сохранения!!!
begin
  r:=myEditX;//один из тех edit для которых нужно сохранить значение!!
  lst.Values[r.name]:=r.text;
end;
lst.SavetoFile(<полный путь к вашему файлу хранения данных>);
lst.Free;

и чтение

lst:=TStringList.Create;
lst.LoadFromFile(<см. выше>);
for ....// какой-то цикл по всем Edit для сохранения!!!
begin
  r:=myEditX;//один из тех edit для которых нужно сохранить значение!!
  r.Text:=lst.Values[r.name];
end;
lst.Free;

[ilyxaaa]

edit будет n колличество)) и сохранять нужно будет все которые будут на форме. и причем в последующем нужно их все восстановить и что бы появилось то количество edit которые было при сохранение

[evg_m]

count_type1 =3
count_type2 =7
type1_1 =чушь
type2_7 =абракадабра

list.vlaues['count_type1']:=inttostr(3);
for j:=1 to 3 do 
  list.values[format('type1_%d', [j]) ]:=edittype1[j].text;

count:=list.vlaues['count_type1'];
for j:=1 to count do begin
  edittype1[j]:=Tedit.Create(...);
  ......
  edittype1[j].text:=list.values[ format('type1_%d', [j]) ];
end;

[ilyxaaa]

Но edit создаются динамически.

[Vanta11a]

Вот так ты получишь все TEdit`ы на форме:

for i:=0 to ComponentCount - 1 do
 if Components[i].ClassName = "TEdit" then

Что с ними делать - решай сам.

[evg_m]

Но edit создаются динамически.

ты их где-то хранишь ? (после того как они были созданы)

type1: array of TEdit;

вот бери при записи данные отсюда.

lst.values['count_type1']:=inttostr(length(type1);
....

а когда надо создать читай и создавай столько сколько надо

count:=values['count_type1'];
SetLength(type1, count);
for j:=0 to length(type1)-1 do begin
  type1[j]:=TEdit.Create(....); //СОЗДАЕМ ДИНАМИЧЕСКИ!!!
  .....//настраиваем как надо
  type1[j].text:=values[....];
end;