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:

procedure TForm1.Button1Click(Sender: TObject);
var awp: AuctionWeb_WSPortType;
    errc,errc2: integer;
    itid: widestring;
    errstr:widestring;
    header: item_header;
    inventory: item_inventory;
    itemdata: item;     
    i,j: integer;
    begin
    for i:=0 to 20 do
      begin
      if length(StringGrid1.Cells[i+1,1]) <> 0 then
        begin
        header := item_header.Create;
        inventory := item_inventory.Create;
        itemdata := item.create;
        with header do
          begin
          artikel:=ComboBox1.Text+' '+Artikelfeld.text+' '+StringGrid1.Cells[0,0]+' '+StringGrid1.Cells[i+1,0];
          preis:=StrToFloat(preisfeld.text);  //hier wird die exception ausgelöst beim 2 durchlauf
          grafiklink:=grafiklinkfeld.text;
          user_def1:=user_def1feld.text;
          usepay:='N';
          shop_item:='N';
          end;
        with inventory do
          begin
          free_quantity:=StrToInt(StringGrid1.Cells[i+1,1]);
          lister_ignore:=false;
          shop_ignore:='N';
          acc_ignore:=false;
          inventory_active:=true;
          end;
        with itemdata do
          begin
          item_header:=header;
          item_inventory:=inventory;
          end;
      awp:=GetAuctionWeb_WSPortType(True);
      awp.addItem(28,'94383784',100,1,5258144,'kdmchhdk',itemdata,errc,itid);
      Label1.Caption:=itid;
      awp.getErrorString(28,'94383784',10,1,5258144,'kdmchhdk',errc,'de',errc2,errstr);
      end;
      end;
      Label2.Caption:=errstr;
      Preisfeld.Text:='';
      GrafiklinkFeld.Text:='';
      Artikelfeld.Text:='';
      User_def1feld.Text:='';
      for j:=0 to 20 do StringGrid1.Cells[i+1,1]:='';
end;                    

1:
2:
3:
4:
5:

Procedure Tfrm_Calculation_Params.EditFieldKeyPress(Sender: TObject; Var Key: Char);
Begin
  If ( Key In ['.', ','] ) Then
    Key := DecimalSeparator;
End;