Schleife

[SaFu]

So hab ich es jetzt

Delphi-Quellcode:

rocedure TForm1.desk0Bis4Umbenennen;
var zahl,zahl2,a, i : integer ;
    desk0 : String;
    Desk: array [0..99] of String;

begin
   zahl := StrToInt (Edit1.Text) ;
   zahl2 := StrToInt (ComboBox3.Text) ;

     desk0:= ('DESK-0' +' = TASK(' + Edit1.Text + ') LPT(PP0) WX() WY() FONT() TITLE('+ Edit2.Text + ') START(pw)');

     for i:=0 to Zahl2 do
      begin
       zahl:=zahl +1 ;
       Desk[i]:=('DESK-' +(IntToStr (i +1))+' = TASK(' + (IntToStr (zahl)) + ') LPT(PP0) WX() WY() FONT() TITLE('+ Edit2.Text + ') START(pw)');
       Memo2.Lines[38+i]:= desk[i];
      end;
     Memo2.Lines[37]:=(desk0);
 end;