уменьшения кода процедур

[designer999]

Здравствуйте
Как сделать например такой кусок программы меньше, тут например 4 одинаковых (только меняется Load2.Strings[0], меньше на 1 за номер кнопки) действий, а у меня в программе например 20,и вот я думаю не рационально так делать как представлено ниже, и вот хотелось бы узнать возможно как то это сделать по другому ?

procedure TForm1.CheckBox1Click(Sender: TObject);
var Load2:TStringList;
begin
Load2:=TStringList.Create;
Load2.LoadFromFile('imacros.ini');
if CheckBox1.checked=true then
begin 
Load2.Strings[0]:='1'; 
end;


procedure TForm1.CheckBox3Clik(Sender: TObject);
var Load2:TStringList;
begin
Load2:=TStringList.Create;
Load2.LoadFromFile('imacros.ini');
if CheckBox2.checked=true then
begin 
Load2.Strings[1]:='1'; 
end;
end;

procedure TForm1.CheckBox3Clik(Sender: TObject);
var Load2:TStringList;
begin
Load2:=TStringList.Create;
Load2.LoadFromFile('imacros.ini');
if CheckBox1.checked=true then
begin 
Load2.Strings[2]:='1'; 
end;
end;

procedure TForm1.CheckBox3Clik(Sender: TObject);
var Load2:TStringList;
begin
Load2:=TStringList.Create;
Load2.LoadFromFile('imacros.ini');
if CheckBox1.checked=true then
begin 
Load2.Strings[3]:='1'; 
end;
end;

[Marsel737]

Вот пример для четырёх чекбоксов, можеш добавить хоть сто новых код программы от этого не увеличится ни на строку.

unit uMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    procedure CheckBox1Click(Sender: TObject);
    procedure LoadStr(intANum: integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  LoadStr((Sender as TCheckBox).Tag);
end;

procedure TForm1.LoadStr(intANum: integer);
var 
  Load2:TStringList;
  Sender: TObject;
begin
  Load2 := TStringList.Create;
  Load2.LoadFromFile('imacros.ini');
  if (Sender as TCheckBox).Checked then
  begin
    Load2.Strings[intANum] := '1';
  end;
  Load2.SaveToFile('imacros.ini');
  Load2.Free; //!!!
end;

end.

[designer999]

спасибо, а если мне например нужны только чекбоксы с 3 по 20 то как тут можно реализовать ?

[W0LF]

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  LoadStr((Sender as TCheckBox).Tag);
end;

procedure TForm1.LoadStr(intANum: integer);
var 
  Load2:TStringList;
  Sender: TObject;
begin
  Load2 := TStringList.Create;
  Load2.LoadFromFile('imacros.ini');
  if intANum = 3..20 then begin// чото типа такого...
  if (Sender as TCheckBox).Checked then
  begin
    Load2.Strings[intANum] := '1';
  end;
  Load2.SaveToFile('imacros.ini');
end;
  Load2.Free; //!!!
end;

end.