Inhalt von EditFeldern speichern

[Knotti2005]

Da ich keinen Code klauen will hab ich es mal selber versucht..

Delphi-Quellcode:

var
  MyList: TStringList;
begin
  MyList := TStringList.Create;
  try
    MyList.Add(edit1.Text);
    MyList.Add(edit2.Text);
    MyList.Add(edit3.Text);
    MyList.Add(edit4.Text);
    MyList.Add(edit5.Text);
    MyList.Add(edit6.Text);
    MyList.Add(edit7.Text);
    MyList.Add(edit8.Text);
    MyList.Add(edit9.Text);
    MyList.Add(edit10.Text);
    MyList.Add(edit11.Text);
    MyList.Add(edit12.Text);
    MyList.Add(edit13.Text);
    MyList.Add(edit14.Text);
    MyList.Add(edit15.Text);
    MyList.Add(edit16.Text);
    MyList.Add(edit17.Text);
    MyList.Add(edit18.Text);
    MyList.Add(edit19.Text);
    MyList.Add(edit20.Text);
    MyList.Add(edit21.Text);
    MyList.Add(edit22.Text);
    MyList.Add(edit23.Text);
    MyList.Add(edit24.Text);
    MyList.Add(edit25.Text);
    MyList.Add(edit26.Text);

   finally
    end;

  end;

geht das auch kürzer