Grafik

[pacman1986]

Ich hab das jetzt sp verstanden ....

Delphi-Quellcode:

  yhalt := 100;
  Anzahl_der_gesamtlinien := 10;
  Anzahl_der_einenlineien := 5;
  Phase := 1;

  for i := 1 to Anzahl_der_gesamtlinien do begin
    if Phase = 1 then begin
      with image1 do begin
        canvas.MoveTo(i*10,yhalt);
        canvas.LineTo(i*10,yhalt+20);
      end;

      if i =  Anzahl_der_einenlineien then Phase :=2;
    end else begin
      yhalt := yhalt -10;
      with image1 do begin
        canvas.MoveTo(i*10,yhalt);
        canvas.LineTo(i*10,yhalt+20);
      end;
    end;
  end;

PS: Falls das einer sieht der besser ist als ich net aufregen