Inkompatible Typen

[Klaus01]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
Var 
  Ziehung, Tipp: Array[1..6] of Extended; 
  Anzahl, Nummern: Integer; 
  Zahl: Extended; 
  Richtig: Integer; 
  Vorhanden: Boolean; 
  Visible: Boolean; 
  I: Integer; 
  MinWert, MaxWert: Extended; 
begin 
  MinWert:= 1;   // Du gehst mit Deinem Cursor hierhin und drückst F5, die Zeile wird rot markiert
                 // Dann startest Du Dein Programm aus der IDE mit F9
                 // wenn Du dann den Button drückst hält der Programmcode hier an.
                 // mit F7 kannst Du dann im Code weiterwandern und sehen
                 // welcher Weg eingeschalgen wird
                 // willst Du den Inhalt von Variablen anschauen, dann markierst Du die variable
                 // und drückst dann Ctrl+F5 ein Wacthfenster geht auf.
  MaxWert:= 49; 
  for I := 1 to Length(Tipp) do 
  begin 
    //if ( Tipp[I - 1] < MinWert ) then   Tipp[0] ist in Deinem Array nicht definiert 
    if ((Tipp[i] < MinWert) and (Tipp[i] > MaxWert)) then  // bewegt sich der Tipp ausserhalb der Grenzen 
                                                           //(würde ich schon bei der Eingabe abfangen wollen 
      begin 
        ShowMessage('Ungültige Eingabe...'); 
        break; 
      end 
    else

Grüße
Klaus