Schleife

[SaFu]

hab heute schon so viele dumme ´Fragen gestellt dann kommts auf die letzte auch nicht mehr an

Wie kann ich die zeilen auch noch hochzählen lassen

Delphi-Quellcode:

//====================Desks Umbennen============================================
procedure TForm1.desk0Bis4Umbenennen;
var zahl,zahl2,a, i : integer ;
    desk0 : String;
    Desk: array [0..99] of String;

begin
   zahl := StrToInt (Edit1.text) ;
   zahl2 := StrToInt (Edit3.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)');

       for a:= 38 to zahl2  do
         begin
          Memo2.Lines[a]:= desk[i];
         end;
      end;
     Memo2.Lines[37]:=(desk0);
end;

[inherited]

warum nimmst du nicht
Memo2.Lines[i+38]:= desk[i]; ?

[SaFu]

das geht doch so nicht oder

Die zeile 37 ist festgelegt danach soll die zeilen und die desks erhöht werden also ab zeile 38 und nur so hoch zählen wie die eingabe im edit3 ist

[inherited]

Sorry, aber ich verstehe nicht was du erreichen willst. Bitte bemühe dich klar zu äußern:
1. Was soll der Code tun
2. Was klappt nicht/Wo liegt das Problem.

Ich nehme an (der Kristallkugel sei dank) dass du von 0 bis zahl2 den Desk[i] ändern möchtest und das Ergebnis im Memo speichern möchtest, und zwar ab Zeile 38. Also wenn i=0, dann in Zeile 38, bei i=1 Zeile 39 usw.
Deswegen kannst du in jedem Schleifendurchlauf einfach auf Memo2.Lines[i+38] zugreifen.

[SaFu]

Also eigentlich will ich genau das erreichen

so habe ich es jetzt per hand mal gemacht und das in einer schleife so hoch wie Edit3 ist

Delphi-Quellcode:

 Memo2.Lines[37]:=(desk0);
     Memo2.Lines[38]:= desk[0];
     Memo2.Lines[39]:= desk[1];
     Memo2.Lines[40]:= desk[2];
     Memo2.Lines[41]:= desk[3];
     Memo2.Lines[42]:= desk[4];
     Memo2.Lines[43]:= desk[5];
     Memo2.Lines[44]:= desk[6];
     Memo2.Lines[45]:= desk[7];
     Memo2.Lines[46]:= desk[8];
 
// usw.

[inherited]

Und wo ist jetzt das Problem? Mach es doch mit Memo2.Lines[38+i]

[SaFu]

bekomm das irgenwie net hin

Delphi-Quellcode:

   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;

hab ich es an die falsche stelle gesetzt

[inherited]

So hatte ich mir das gedacht. Und was funktioniert daran nicht? *Kristallkugelrauskram*

[SaFu]

egal welche zahl ich ins edit3 eingeben es wird nur bis 6 hochgezählt

[inherited]

Sicher? Zeig mal deinen ganzen Code dieser Stelle.