1:
2:
3:
4:
5:

type
  TArtikel = Record
    Artikel, Anzahl : String;
  End;
TArtikelListe = array of TArtikel;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm2.LB_ArtikelDblClick(Sender: TObject);
var
  ArtikelNr:integer;
begin
  if ArtikelAnz<= 13 then
  begin
    ArtikelAnz:=ArtikelAnz+1;
    ArtikelNr:=LB_Artikel.ItemIndex;
    ArtikelAuswahl:=LB_Artikel.Items.Strings[ArtikelNR];
    LB_Aus_Artikel.Items.Append(ArtikelAuswahl);
  end;
end;					

1:

ArtikelAuswahl:=inttostr(TArtikelListe[ArtikelNR].Anzahl)+' '+LB_Artikel.Items.Strings[ArtikelNR];					

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.FormCreate(Sender: TObject);
begin
  // Bis auf Cells kann man das auch im Objektinspektor einstellen.

  // 1 Beschriftungszeile + 13 Artikelzeilen
  // 2 Spalten für Anzahl + Artikelbeschreibung
  StringGrid1.ColCount := 2;
  StringGrid1.RowCount := 14;

  // 1 nicht editierbare Beschriftungszeile
  StringGrid1.FixedRows := 1;

  // Sonst kann man nichts Editieren.
  StringGrid1.Options := StringGrid1.Options + [goEditing];

  // Beschriftung des StringGrids
  StringGrid1.Cells[0, 0] := 'Anzahl';
  StringGrid1.Cells[1, 0] := 'Artikelbeschreibung';

  // Damit ich beim Programmlauf nicht soviel tippen muss.
  Edit1.Text := 'Kugelschreiber, blau';
end;

function TForm1.FindeFreieZeile: integer;
var
  Schleife : integer;
begin
  // Als freie Zeile wird hier gewertet, wenn in der Spalte Anzahl
  // nichts drin steht. Zusätzlich könnte man hier überprüfen,
  // ob eine Null in der Spalte mit der Anzahl steht oder ob
  // die Zelle mit der Artikelbeschreibung leer ist.
  // Wird keine freie Zeile gefunden, wird - 1 zurück gegeben.
  // ---> = 13 Artikelzeilen voll
  Result := - 1;
  for Schleife := StringGrid1.RowCount - 1 downto 0 do
    if Trim(StringGrid1.Cells[0, Schleife]) = '' then
      Result := Schleife;
end;

procedure TForm1.BtnAddClick(Sender: TObject);
var
  Zeile : integer;
begin
  Zeile := FindeFreieZeile;
  if Zeile = - 1 then    // keine freie Zeile gefunden
    ShowMessage('Zu viele Artikel!')
  else
    begin
      StringGrid1.Cells[0, Zeile] := '1';
      StringGrid1.Cells[1, Zeile] := Edit1.Text;
    end;
end;					

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:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComObj;

type
  TForm2 = class(TForm)
    Button1: TButton;
    LB_Kunde: TListBox;
    Label1: TLabel;
    LB_Artikel: TListBox;
    Label2: TLabel;
    Button2: TButton;
    E_Kunde: TEdit;
    L_Kunde: TLabel;
    LB_Aus_Artikel: TListBox;
    Label3: TLabel;
    Button3: TButton;
    CheckBox1: TCheckBox;
    E_Lieferdatum: TEdit;
    L_DatumLayout: TLabel;
    B_Vorschau: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure LB_KundeClick(Sender: TObject);
    procedure LB_ArtikelDblClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure B_VorschauClick(Sender: TObject);
    procedure LB_Aus_ArtikelContextPopup(Sender: TObject; MousePos: TPoint;
      var Handled: Boolean);
    procedure LB_Aus_ArtikelDblClick(Sender: TObject);

  private
    { Private-Deklarationen }

  public
    { Public-Deklarationen }
    var
      Excel:variant;
      Kundenauswahl,Artikelauswahl:string;
      ArtikelAnz:integer;
    procedure ArtikelFuellen;
    procedure Memofüllen;
  end;

type
  TArtikel = Record
    Artikel, Anzahl : String;
  End;
TArtikelListe = array of TArtikel;

var
  Form2: TForm2;

implementation

uses Unit3;

{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
  ArtikelFuellen;
end;
//------------------------------------------------------------------------------
procedure TForm2.Button2Click(Sender: TObject);
begin
  close;
end;
//------------------------------------------------------------------------------
procedure TForm2.B_VorschauClick(Sender: TObject);
begin
  form3.show;
  MemoFüllen;
end;
//------------------------------------------------------------------------------
procedure TForm2.CheckBox1Click(Sender: TObject);
begin
  E_Lieferdatum.Visible:=True;
  L_DatumLayout.Visible:=True;
end;
//------------------------------------------------------------------------------
procedure TForm2.FormShow(Sender: TObject);
begin
  ArtikelAnz:=1;
end;

//------------------------------------------------------------------------------
procedure TForm2.LB_ArtikelDblClick(Sender: TObject);
var
  ArtikelNr:integer;
begin
  if ArtikelAnz<= 13 then
  begin
    ArtikelAnz:=ArtikelAnz+1;
    ArtikelNr:=LB_Artikel.ItemIndex;
    ArtikelAuswahl:=LB_Artikel.Items.Strings[ArtikelNR];
    LB_Aus_Artikel.Items.Append(ArtikelAuswahl);
  end;
end;
//------------------------------------------------------------------------------
procedure TForm2.LB_Aus_ArtikelContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
begin
  //Hier kommte die Anzahl je Artikel per Rechtsklick rein
  showmessage('hallo');
end;
//------------------------------------------------------------------------------
procedure TForm2.LB_Aus_ArtikelDblClick(Sender: TObject);
var
i: Integer;
begin
  with LB_Aus_Artikel do
  begin
    i := 0;
    while (i <= Items.Count - 1) and (SelCount > 0) do
      begin
        while (i <= Items.Count - 1) and Selected[i] do
          Items.Delete(i);
          inc(i);
      end;
  end;
end;

//------------------------------------------------------------------------------
procedure TForm2.LB_KundeClick(Sender: TObject);
var
  KundenNr:integer;

begin
  KundenNr:=LB_Kunde.ItemIndex;
  Kundenauswahl:=LB_Kunde.Items.Strings[KundenNr];
  E_Kunde.Text:=Kundenauswahl;
end;
//------------------------------------------------------------------------------
procedure TForm2.ArtikelFuellen;
var
  Excel, ArtikelSheet, ContactsSheet: OleVariant;
  i,iMaxZeilen: Integer;
begin
  try
    try
      Excel := CreateOleObject('Excel.Application');
    except
      Excel := GetActiveOleObject('Excel.Application');
    end;
    Excel.Workbooks.Open(ExtractFilePath(Paramstr(0))+('rechi.xls'));

    ContactsSheet := Excel.Workbooks['rechi.xls'].Worksheets['Kontakte'];
    iMaxZeilen := ContactsSheet.UsedRange.Rows.Count;
    for i := 1 to iMaxZeilen do
      LB_Kunde.Items.Append(ContactsSheet.Cells[i, 1]);

    ArtikelSheet := Excel.Workbooks['rechi.xls'].Worksheets['Artikel'];
    iMaxZeilen := ArtikelSheet.UsedRange.Rows.Count;
    for i := 1 to iMaxZeilen do
      LB_Artikel.Items.Append(ArtikelSheet.Cells[i, 1]);

    Excel.ActiveWorkBook.Saved := TRUE;
    Excel.Quit; // Beendet Excel
    Excel := Unassigned;
  except
    Showmessage('Fehler, Exceldaten konnten nicht eingelesen werden');
    Exit;
  end;
end;
//------------------------------------------------------------------------------
procedure TForm2.Memofüllen;
var
  i:integer;

  begin
  Unit3.Form3.M_Rechnung.Lines.Add(Kundenauswahl);
  for i := 0 to ArtikelAnz - 1 do
    begin
      Unit3.Form3.M_Rechnung.Lines.Add('');
    end;

end;
//------------------------------------------------------------------------------
end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TForm2.LB_ArtikelDblClick(Sender: TObject);
var
  ArtikelNr:integer;

begin
  if ArtikelAnz<= 13 then
  begin
    ArtikelAnz:=ArtikelAnz+1;
    ArtikelNr:=LB_Artikel.ItemIndex;
    //Record wird aufgezeichnet
    ArtikelAuswahl[ArtikelNr].Ind:=LB_Artikel.Items.Strings[ArtikelNR]; //Der Index eines Artikels wird festgelegt
    ArtikelAuswahl[ArtikelNr].Anzahl:=IntToStr(ArtikelAnzahl);          //Die Anzahl der Artikelstückzahl wird festgelegt
    ArtikelAuswahl[ArtikelNr].Name:=LB_Artikel.Items.Strings[ArtikelNR];//Der Name des Artikels wird festgelegt
    //Record fertig
    //Artikel werden in Liste geschrieben
    LB_Aus_Artikel.Items.Append(ArtikelAuswahl[ArtikelNr].Name);
    LB_aus_ArtikelAnz.Items.Append(ArtikelAuswahl[ArtikelNr].Anzahl);
  end;
end;