1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:

procedure Tfm_preisakt.bt_aaktClick(Sender: TObject);
var mysql: string;
    nettopreis : double;
    nettostr : string;
    artikel : string;
    hekchange : string;
    hek : double;
    a : array of string;
    z : integer; //Index
begin
  // i : integer;  <-----globale Variable die die Anzahl der Artikel zählt(nötig für Array)
  Form1.DBGDI.Connected := TRUE;

  SetLength(a,i);  //Länge des Arrays definieren

  DecimalSeparator := '.';

  form1.qgdi.Close;
  form1.qgdi.SQL.clear;
  form1.qgdi.SQL.add('Select ARTIKELNR, MATERIAL from PREISE where PREISLST = 2 AND Artikelnr LIKE'+ QuotedStr('MAC'+'%'));
  form1.qgdi.Open;                                                                                         //sucht nur MAC Artikel aus

  z := 0; //<----Index für den jeweiligen Artikel
          // damit später den Artikeln die pasenden Preise zugewiesen werden können

  while not form1.qgdi.eof do  
  begin
    artikel := form1.qgdi.Fieldbyname('ARTIKELNR').AsString;
    delete(artikel,1,3);  //ersten 3 Zeichen werden gelöscht da er die Artikel sonst nicht findet(wegen MAC am Anfang)

    a[z] := artikel; // Artikelnummern werden in das Array eingefügt
    z := z + 1;      

    form1.qgdi.next;
  end;
  z := 0;

  while z <> i do
  begin
    Form1.Qmac.close;
    Form1.Qmac.sql.clear;
    Form1.qmac.SQL.Add('Select HEK FROM mac_dbf where Artikel_nr =' +#39+a[z]+#39);
    Form1.Qmac.open;

    hek := Form1.qmac.FieldByName('HEK').AsFloat; //HEK ist der Einkaufspreis
    hek := hek * 1.19;
    hek := hek * 1.2;
    hek := (round(hek * 10)) / 10 ;  //gerundeter Brutto Preis

    hekchange := Floattostr(hek);

    //form1.qgdi.Close;
    form1.qgdi.sql.clear;
    mysql:='UPDATE PREISE SET MATERIAL = '+#39+hekchange+#39+' where Preislst = 2 AND Artikelnr =' +#39+a[z]+#39;
    form1.qgdi.SQL.Add(mysql);           //Bruttopreis
    form1.qgdi.execsql;

    //form1.Qgdi.Fieldbyname('MATERIAL');
    //Hier würde er mir anzeigen das er das Feld Material nicht findet

    nettopreis := strtofloat(hekchange);
    nettopreis := nettopreis / 1.19;
    nettostr := floattostr(nettopreis);

    //form1.qgdi.Close;
    form1.qgdi.sql.clear;
    mysql:='UPDATE PREISE SET MATERIAL = '+#39+nettostr+#39' where Preislst = 1 AND artikelnr =' +#39+a[z]+#39;
    form1.qgdi.SQL.Add(mysql);               //Nettopreis
    form1.qgdi.execsql;

    z := z + 1;
    form1.qmac.next;
  end;
  form1.qgdi.close;
  Form1.DBGDI.Connected := FALSE;
end;                    

1:

a : array of string;                    

1:
2:
3:

    [...]
    mysql:='UPDATE PREISE SET MATERIAL = '+#39+nettostr+#39+' where Preislst = 1 AND artikelnr =' +#39+a[z]+#39;
    [...]                    

1:

[...] set material = :Netto [...]