Geht bei mir leider nicht. Habe mal meinen Code dazugepackt. Vielleicht kann mir ja einer helfen. Danke!
Delphi-Quellcode:
procedure TForm1.Eingabefeldonkeydown(Sender: TObject;
var Key: Word;
Shift: TShiftState);
var
i: integer;
j: integer;
begin
//Eingabe der Maschinendaten
Label1.caption:='
Anzahl Maschinen eingeben';
if key=13
then
begin
mac:=strtoint(Eingabefeld.text);
end;
//Eingabe der Periodenanzahl
Label1.caption:='
Anzahl Perioden eingeben';
if key=13
then
begin
per:=strtoint(Eingabefeld.text);
end;
//Eingabe der Kapazitäten der Maschinen je Periode
Label1.Caption:=('
Die Kapazitäten der '+inttostr(mac)+ '
eingeben:');
i:=1;
j:=1;
while i<mac+1
do
begin
while j<per+1
do
begin
Label2.Caption:=('
Periode '+inttostr(i)+'
Maschine'+inttostr(j));
machine[per,mac].cap:=strtoint(Eingabefeld.text);
j:=j+1;
end;
i:=i+1;
j:=1;
end;
end;
Gruß
Kaddy 8)