Guten Morgen,
um späteren Pflegaufwand zu verringern, möchte ich die ca. 70 Datenbank-Felder einer
DB in ein Array schreiben, um dann zur Laufzeit beim Lesen/Schreiben der
DB mittels diesem Aaray auf die
DB zuzugreifen.
Zur Zeit lese ich die Shopdaten so:
Delphi-Quellcode:
procedure TForm1.ReadShopdaten;
begin
edshopnr.Text := zquery1.FieldByName('shopnr').AsString;
edshopname.Text := zquery1.FieldByName('shop_name').AsString;
edinstitute.Text := zquery1.FieldByName('institute').AsString;
cbform_of_adress.Text := zquery1.FieldByName('form_of_adress').AsString; cbform_of_adress.ItemIndex := 0;
cbtitle.Text := zquery1.FieldByName('title').AsString; cbtitle.ItemIndex := 0;
edsurname.Text := zquery1.FieldByName('surname').AsString;
edfirstname.Text := zquery1.FieldByName('firstname').AsString;
edadress.Text := zquery1.FieldByName('adress').AsString;
edcitycode.Text := zquery1.FieldByName('citycode').AsString;
edcity.Text := zquery1.FieldByName('city').AsString;
..
Leider habe ich noch nie mit Arrays gearbeitet, die Delphi - Hilfe erklärt Arrays etwas umständlich, was muss ich bei Arrays beachten und wie könnte eine Lösung im Ansatz aussehen?
Wie löst Ihr diese Zugriffe ?
Vielen Dank
René