Array geht nicht

[SaFu]

Hi

kannn mir einer sagen was ich falsch mache

ich möchte die variablen immer um 1 erhöhen lassen und dann im memo ausgeben

Delphi-Quellcode:

procedure TForm1.Button8Click(Sender: TObject);
var zahl, i : integer ;
    desk0 : String;
    Desk: array [1..4] of String;

begin
   zahl := StrToInt (Edit1.text) ;

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

     for i:=0 to  2 do
      begin
       zahl:=zahl +1 ;
       Desk[i]:=('DESK-' +(IntToStr (i +1))+' = TASK(' + (IntToStr (zahl)) + ') LPT(PP0) WX() WY() FONT() TITLE('+ Edit2.Text + ') START(pw)');
      end;
     Memo3.Lines[1]:=(desk0);
     Memo3.Lines[2]// Desk1
     Memo3.Lines[3]// Desk2
     Memo3.Lines[4] // Desk3
 end;

Gruss sascha

[Apollonius]

Dein Array geht von 1 bis 4, aber in der Schleife greifst du auf Desk[0] zu.

[mkinzler]

Wenn die Zeilen im Memo schon existieren;

Delphi-Quellcode:

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

Sonst Memo3.Lines. Add( Desk[i]);

[SaFu]

na sieh mal an da gehts do ne Stunde am Problem rumgemacht

Ich bin doch so Doof

Zitat von mkinzler:

Wenn die Zeilen im Memo schon existieren;

genau die zeilen möchte ich ja im Memo ersetzen aber nur and in der 39 - 42 zeile kann ich das gleich in der schleife mit machen ansonsten mach ich das

mit Stringreplace

[mkinzler]

Kann man in der Schleife machen.

[SaFu]

das ging ja einfach hab mir das viel komplizierter vorgestellt

Delphi-Quellcode:

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

aber danke nochmal