ugly code
Posted: Thu 15 Apr 2021 10:30
hello
now I have this code, which I do not like:
how do I implement this code in a loop, so that there are fewer lines of code and the code is more beautiful?
instead of: UniTable2.Fields[21].asString I can specify UniTable2.Fields[ic]asString
but I do not know how to specify Edit[ic+1]. Text instead of Edit22.Text?
now I have this code, which I do not like:
Code: Select all
procedure TForm7.Button1Click(Sender: TObject);
var
ic:integer;
begin
i:=Unitable2.FieldCount;
UniTable2.Append;
UniTable2.Fields[1].AsString:=Edit2.Text;
UniTable2.Fields[2].AsString:=Edit3.Text;
UniTable2.Fields[3].AsString:=Edit4.Text;
UniTable2.Fields[4].AsString:=Edit5.Text;
UniTable2.Fields[5].AsString:=Edit6.Text;
UniTable2.Fields[6].AsString:=Edit7.Text;
UniTable2.Fields[7].AsString:=Edit8.Text;
UniTable2.Fields[8].AsString:=Edit9.Text;
UniTable2.Fields[9].AsString:=Edit10.Text;
UniTable2.Fields[10].AsString:=Edit11.Text;
UniTable2.Fields[11].AsString:=Edit12.Text;
UniTable2.Fields[12].AsString:=Edit13.Text;
UniTable2.Fields[13].AsString:=Edit14.Text;
UniTable2.Fields[14].AsString:=Edit15.Text;
UniTable2.Fields[15].AsString:=Edit16.Text;
UniTable2.Fields[16].AsString:=Edit17.Text;
UniTable2.Fields[17].AsString:=Edit18.Text;
UniTable2.Fields[18].AsString:=Edit19.Text;
UniTable2.Fields[19].AsString:=Edit20.Text;
UniTable2.Fields[20].AsString:=Edit21.Text;
UniTable2.Fields[21].AsString:=Edit22.Text;
UniTable2.Post;
end;
instead of: UniTable2.Fields[21].asString I can specify UniTable2.Fields[ic]asString
but I do not know how to specify Edit[ic+1]. Text instead of Edit22.Text?