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;

[Thorben_Ko]

Hat dein Memo auch genug Zeilen?
Weil sonnst scheint der Code ok zu sein ...

Thorben

[SaFu]

ich habe dem memo scrollbars gegeben

[DeddyH]

Du schreibst oben etwas von Edit3, fragst aber Edit1 ab :gruebel:

[SaFu]

Ich habe jetzt eine ComboBox gesetzt mit der ich den Schleifendurchlauf Steuer

Delphi-Quellcode:

zahl2 := StrToInt (ComboBox3.Text) ; 

 for i:=0 to Zahl2 do

und Edit1 erweitert nur die zahl im Task

Delphi-Quellcode:

zahl := StrToInt (Edit1.Text) ; 


 TASK(' + (IntToStr (zahl))

[DeddyH]

Hmm... dann sehe ich auf den ersten Blick auch nichts weiter. Aber wieso nimmst Du ein statisches Array, wenn Du die Anzahl der Elemente nicht kennst?

[SaFu]

das sollte eigentlich nur ein kleines Projekt werden das jetzt schon ausgeartet ist und ich wollte eigentlich nicht soviel aúfwand betreiben.

Mich ärgert es jetzt schon das diese Schleife nicht geht.

[SaFu]

Vielleicht will sich das ja mal jemand angucken und einer findet den Fehler keine Angst das Programm ändert nichts am system es erzeugt ledigtlich nur eine datei

[DeddyH]

In einem schnell dahingeschriebenen Projekt funktioniert Dein Code. Wenn ich Dein Projekt öffne, kann ich die Edits nicht fokussieren (hab den Grund auf die Schnelle nicht herausgefunden).

[SaFu]

Du musst zuerst oben auf den Linken Button drücken dann wir die GroupBox freigegeben