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:

procedure TArtikel_Form.Btn_ListKonvertierenClick(Sender: TObject);
var i:Integer;
begin
.
.
.

    for i := 0 to ListBox1.Items.Count - 1 do    //für jeden Listboxeintrag
    begin
      for x := 1 to StringGrid1.RowCount - 1 do   //für jede Spalte
      begin
        if ListBox1.Items[i] = StringGrid1.Cells[x,1] then
        begin
          vZeile := '';
          //y=0 : erste(leere Spalte)
          //y=1 : zweite(erste gefüllte Spalte)
          for y := 0 to StringGrid1.ColCount - 1 do
          begin
            for x := 1 to StringGrid1.Row -1 do
            begin
              vZeile := vZeile + StringGrid1.Cells[y,x] + vTrennzAus;
             memo1.Lines.Add('INVITEM' + vZeile);
           end;
          end;
        end;
      end;
    end;
    Listbox1.Clear;
  end;
end;