Прога не работает

[MAZADA]

Сложно написать!
Смотрите в архиве
В Edit46 выходит сума загальна кубатур.
В ComboBox введите значения и сохраните но при выгрузке у меня Edit46 уже не щетает!

[ZvEr_HaCkEr]

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

Смотрите в архиве

Архив то где?
Все появился щаз посмотрим.

[MAZADA]

Ок посмортите

[ZvEr_HaCkEr]

Прогу полностью переделывать надо.Уж очень много тупого кода!!!

[MAZADA]

а что имено нужно переделать?

Подскажите что можна передержать чтоб було проще!
Кто что б там переделал?

[ZvEr_HaCkEr]

Хотя бы сохранение параметров в иник.Вам самому не надоело писать столько строк?Ведь можно все в цикле забабахать!Кстати после того как поменял сохранение параметров на так

procedure TForm4.Button2Click(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;

procedure TForm4.FormCreate(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
    TEdit(Components[i]).Text:= Ini.ReadString('Text',TEdit(Components[i]).Name,TEdit(Components[i]).Text);
finally
  Ini.Free;
end;
end;

Все заработало

[MAZADA]

Я просто не знаю как работают цикли!
Как туда вписать ComboBox?