запись данных в файл из 10 штук TEdit'ов

[Devostator]

Допустим есть на форме 10 штук TEdit.
Я проверяю их содержимое вот так:

for i:=0 to Form1.ComponentCount-1 do
if (Form1.Components[i] is TEdit) and (TEdit(Form1.Components[i]).text<>'') then begin
file.add(TEdit(Form1.Components[i]).text);
TEdit(Form1.Components[i]).clear;
end;

Но почему-то данные с TEdit'ов не сохраняются..

Прошу помощи=)

[ZvEr_HaCkEr]

А как насчет если так попробывать?

procedure TForm4.Button1Click(Sender: TObject);
 var
ini:tinifile;
i:integer;
begin
ini:=tinifile.Create(extractfilepath(paramstr(0))+'Config.ini');
try
  for I := 0 to ComponentCount-1 do
  if Components[i] is TEdit then

ini.WriteString('Text',TEdit(Components[i]).Name,TEdit(Components[i]).Text);
finally
ini.Free;
end;

end;

Uses IniFiles;

[Devostator]

Ну это в *.ini файлы сохраняет. А мне в простой *.txt надо.
Я хотел спросить, может я чего-нибудь не правильно делаю?

[MAZADA]

f: TextFile;
begin
AssignFile(f,'db.txt');
ReWrite(f);
Writeln(f,Edit2.Text,'',edit7.text, ' ',edit1.text);

[ex.cluz]

file.add(TEdit(Form1.Components[i]).text);

А енто что?

Я бы потоком (TStream) писал.

[ZvEr_HaCkEr]

Сообщение от Devostator

Ну это в *.ini файлы сохраняет. А мне в простой *.txt надо.

Ну так кто мешает сделать

 ini:=tinifile.Create(extractfilepath(paramstr(0))+'Config.txt');

[Devostator]

Сообщение от ex.cluz

file.add(TEdit(Form1.Components[i]).text);

А енто что?

Я бы потоком (TStream) писал.

Да я бы с удовольствием записал бы потоком, да только не осилил я:
file.write(Edit1.text, ????);
Вместо вопросов нужно писать кол-во байт отведенное для Edit1.... а я откуда знаю сколько пользователь напишет туда букв.
SizeOf(????) не канает почему-то.

Даже без If....then не работает:

for I := 0 to Form1.GB3.ComponentCount-1 do
begin
  f.Add('&'+TEdit(Form1.GB3.Components[i]).Text);
  TEdit(Form1.GB3.Components[i]).Clear;
end;

GB3 - это GroupBox. В самом GroupBox'e только Edit'ы.

[Stilet]

var AFile:TStringList;
...
Afile:=TStringList.Create;
for i:=0 to Form1.ComponentCount-1 do begin
 if (Form1.Components[i] is TEdit) and (TEdit(Form1.Components[i]).text<>'') then begin
   afile.add(TEdit(Form1.Components[i]).text);
   TEdit(Form1.Components[i]).text:='';
 end;
end;
Afile.SaveToFile('c:\temp\Мой файл.txt');
Afile.Free;
...

[Devostator]

Так работает, но мне надо взять Edit'ы тока из определенного GroupBox'a.

for I := 0 to Form1.GB3.ComponentCount-1 do

[Stilet]

Afile:=TStringList.Create;
with Form1.GroupBoxопределенный do 
 for i:=0 to ControlCount-1 do begin
  if (Controls[i] is TEdit) and (TEdit(Controls[i]).text<>'') then begin
   afile.add(TEdit(Controls[i]).text);
   TEdit(Controls[i]).text:='';
  end;
 end;
Afile.SaveToFile('c:\temp\Мой файл.txt');
Afile.Free;