Kleines Tennis eure Meinung zu einem Anfänger

[Khabarakh]

Wie schon gesagt, wirklich gut für den Anfang !

Noch ein paar Sachen:

• Wenn man sein Paddel nach links oder rechts verschiebt, blickt das Programm gar nichts mehr
• Was soll der Joker ?
• Irgendwann dann noch richtige Physik und OffScreen-Bitmaps

Jetzt zum Code: Wenn du deinen SoucreCode bereitstellst, solltest du schon auf gute Lesbarkeit, sinnvolle Komponenten- und Variablennamen oder dazu dann wenigstens ein Kommentar (z.B: f und i).

Okay, einmal durch den SourceFormatter, weiter gehts:
i,f,level, level_i :integer; solltest du in den private-Teil deines Formulars verschieben:

Delphi-Quellcode:

[...]
    procedure Timer2Timer(Sender: TObject);
  private
    i,f,level, level_i :integer;
  public
[...]

Brauchst du das wirklich ?

Delphi-Quellcode:

function umdrehen(e: integer): integer;
begin
  result := e * (-1);
end;

Anscheinend nicht, du benutzt es ja gar nicht .

Delphi-Quellcode:

function ist_da(e: string): boolean;
var tolleranz: integer;
begin
  for tolleranz := -20 to 70 do begin
    if (Form1.Button1.Top + tolleranz = Form1.Button2.Top) then begin
      result := false;
      exit;
    end else result := true;
  end;
end;

Performanter:

Delphi-Quellcode:

function ist_da: boolean;  //wofür den Parameter?
begin
  Result:=(Form1.Button2.Top-Form1.Button1.Top>=-20) and  (Form1.Button2.Top-Form1.Button1.Top<=70)
end;

Delphi-Quellcode:

procedure TForm1.Button1KeyPress(Sender: TObject; var Key: Char);
[...]

funktioniert ja eh nicht.

Delphi-Quellcode:

  if Button2.Left > Form1.clientwidth - 60 then begin
    level_i := level_i + 1;
    if level_i > 2 then begin
      level_i := 0;
      level := level + 1;
      if Timer1.Interval > 21 then Timer1.Interval := Timer1.Interval - 20;
      Label1.Caption := IntToStr(level);
    end;

Es soll nach zwei Treffern das nächste Level kommen, oder? Speicher das ganze in eine Variable, das Level ist dann die Hälfte:

Delphi-Quellcode:

  if Button2.Left > Form1.clientwidth - 60 then begin
    Inc(level);     //Erhöht die Variable um eins
    if not Odd(level) then begin  //level gerade?
      if Timer1.Interval > 21 then Timer1.Interval := Timer1.Interval - 20;
      Label1.Caption := IntToStr(level mod 2);
    end;

 and (war_da = true) then Boolean-Variablen lieber so testen:
 and war_da then

Delphi-Quellcode:

for tolleranz := -20 to 70 do begin
    if (Button1.Top + tolleranz = Button2.Top) and (war_da = true) then begin
    {Case tolleranz of
     -20..-11: f := -20;
     -10..-1 : f := -17;
       0..10 : f := -14;
      11..20 : f := -9;
      21..35 : f := -5;
      36..40 : f := 0;
      41..50 : f := 10;
      51..60 : f := 15;
      61..70 : f := 20;
     end;   }
    end;
  end;

Dazu sage ich mal nix .

f := random(90) - 25; Für echten Zufall musst du vor Random noch randomize aufrufen. Da dieses aber nur einmal aufgerufen werden sollte (am besten im OnCreate), du aber FormCreate mehrmals aufrufst, musst du es so machen:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  randomize;
  i := -20;
  f := random(90) - 25;
  level := 0;  //Nur noch level, s.o.
end;



procedure TForm1.Button3Click(Sender: TObject);
begin
  Button2.Left := 200;
  Button2.Top := 200;
  Timer1.Enabled := true;
  Timer1.interval := 80;
  Label2.caption := '0';
  Timer2.enabled := true;
  i := -20;
  f := random(90) - 25;
  level := 0;
end;

Ist jetzt vielleicht etwas viel Kritik, aber das Programm an sich ist ja gut und du sollst ja was lernen .

PS: Die SourceFormatter Optionen standen auf Default, normalerweise kommt bei mir ein Zeilenumbruch zwischen then und begin.