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:

unit Material1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, Db, DBTables;

type
  TForm11 = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
Form11: TForm11;
var WelcheSeite,F11Anz:Integer;
L1,L2,L3 : array [1..99] of TLabel;
TE : array [1..99] of TEdit;

implementation

uses Material;

{$R *.DFM}

procedure TForm11.FormCreate(Sender: TObject);
 var T  : TTable;
     D  : TDataSource;
     i,a  : integer;
begin
  i := 1;
  F11Anz := 1;
  a := 0;
  Image1.Picture.LoadfromFile ('F:\Kasse\ProgrammDaten\Panel1.bmp');
  T := TTable.Create(form11);
  T.DatabaseName := 'C:\Nguyen\Info Post Programm\';
  T.TableName := 'Material1.dbf';
  T.Active := True;
  D := TDataSource.Create(form11);
  D.DataSet := T;
  while not T.eof do
  begin
    if (T['Artnr']>=WelcheSeite)and(T['Artnr']<=WelcheSeite+99) then
    begin
      L1[F11Anz] := TLabel.create(Form11);
      L1[F11Anz].parent := Form11;
      with L1[F11Anz] do
      begin
        Caption :=T['Artnr'];
        Font.Name := 'Lucida Console';
        Font.Size := 9;
        Font.Style := [fsBold];
        Top := i*20;
        Left := 40+a*300;
        Transparent := True;
      end;
      L2[F11Anz] := TLabel.create(Form11);
      L2[F11Anz].parent := Form11;
      with L2[F11Anz] do
      begin
        Caption :=T['Wasdenn'];
        Font.Name := 'Lucida Console';
        Font.Size := 9;
        Font.Style := [fsBold];
        Top := i*20;
        Left := 70+A*300;
        Transparent := True;
      end;
      L3[F11Anz] := TLabel.create(Form11);
      L3[F11Anz].parent := Form11;
      with L3[F11Anz] do
      begin
        Caption :=T['Einheit'];
        Font.Name := 'Lucida Console';
        Font.Size := 9;
        Font.Style := [fsBold];
        Top := i*20;
        Left := 270+A*300;
        Transparent := True;
      end;
      TE[F11Anz]:= TEdit.create(Form11);
      TE[F11Anz].parent := Form11;
      with TE[F11Anz] do
      begin
        Font.Name := 'Lucida Console';
        Font.Size := 9;
        Font.Style := [fsBold];
        Top := i*20;
        Left := 320+A*300;
        Width := 25;
        OnKeyPress := Edit1KeyPress;
      end;
      inc(i);
      inc(F11Anz);
      if i = 25 then
      begin
       a := 1;
       i := 1;
      end;
    end;
    a := a+1; 
    T.next;
    end;
  T.free;
  D.free;
end;					

1:

Application.CreateForm(TForm11, Form11);					

1:
2:
3:

    if (T['ArtNr']>=WelcheSeite)and(T['ArtNr']<=WelcheSeite+99)
     then
     ...					

1:
2:
3:

  ...
  Caption :=T['ArtNr'];
  ...					

1:

(T['ArtNr']<=WelcheSeite+99)