ComboBox

[MAZADA]

как сохранить ComboBox? Но нужно в цикле бо их много!

[Mad_Cat]

var i: integer; 
begin 
for i := 0 to componentcount - 1 do 
if components[i] is tcombobox then 
(components[i] as tcombobox).items.savetofile(inttostr(i)+'.txt'); 
end;

[MAZADA]

че то не получается, а можна как то проще?

ini:=tinifile.Create(ExtractFilePath(ParamStr(0))+'Config.ini');
try
  for I := 0 to ComponentCount - 1 do
      if Components[i] is TEdit then
      if Components[i] is TComboBox then
       (Components[i] as TComboBox).Items.SaveToFile(IntToStr(i)+'.txt');
     Ini.WriteString('Text',TEdit(Components[i]).Name,TEdit(Components[i]).Text);
finally
  Ini.Free;
end;
end;

что не в порядке?

Как сохранить ComboBox в цикле в ini файл?

[_SERGEYX_]

Ты сам понял что написал?

  
if Components[i] is TEdit then //Если компонент является TEdit
if Components[i] is TComboBox then //И если ОН ЖЕ является TComboBox....

[Stilet]

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);
      if Components[i] is TComboBox then
(Components[i] as TComboBox).Items.SaveToFile(IntToStr(i)+'.txt');

finally
  Ini.Free;
end;
end;