Forum: Object-Pascal / Delphi-Language
Delphi
by SaFu,
21. Okt 2007
das ging ja einfach hab mir das viel komplizierter vorgestellt
for i:=0 to 2 do
begin
zahl:=zahl +1 ;
Desk:=('DESK-' +(IntToStr (i +1))+' = TASK(' + (IntToStr (zahl)) + ') LPT(PP0) WX() WY() FONT() TITLE('+ Edit2.Text + ') START(pw)');
end;
Memo2.Lines:=(desk0);
Memo2.Lines:= desk;// Desk1
Forum: Object-Pascal / Delphi-Language
Delphi
by SaFu,
21. Okt 2007
na sieh mal an da gehts do ne Stunde am Problem rumgemacht
Ich bin doch so Doof :duck:
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
Forum: Object-Pascal / Delphi-Language
Delphi
by SaFu,
21. Okt 2007
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
procedure TForm1.Button8Click(Sender: TObject);
var zahl, i : integer ;
desk0 : String;