Delphi FOR-Schleifen-Start während Durchlauf +1 zählen

Thema durchsuchen

Ansicht

Themen-Optionen

FOR-Schleifen-Start während Durchlauf +1 zählen

Ein Thema von Svenkan · begonnen am 19. Apr 2007 · letzter Beitrag vom 19. Apr 2007

Vorheriger Beitrag

Nächster Beitrag

Blackheart

Registriert seit: 4. Mai 2005
846 Beiträge

Delphi 7 Enterprise

#13

Re: FOR-Schleifen-Start während Durchlauf +1 zählen

19. Apr 2007, 13:54

Nicht unbedingt schön aber naja

zusammenfalten · markieren

Delphi-Quellcode:

			var

  Form1: TForm1;

  j:Integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

i:Integer;

begin

  for i:=1 to 50 do

  begin

  inc(j,2);

  Memo1.Lines.Add(IntToStr(j));

  end;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

 j:=-1;

end;