Problem mit einer Schleife

[Bummi]

ohne weitergehende Untersuchung

Delphi-Quellcode:

    if max<focusarray[i] then
    begin
      max:=focusarray[i];
      pmax:=i;
    end;

[himitsu]

pmax steht auf 0, wenn in der Schleife nichts größer als der erste Wert ist,
und schon stimmt was nicht mehr, wenn du auf den Index 0 zugreifen willst. (den es nicht gibt )

Geh mal in die Projektoptionen, schalte die Bereichsprüfung an und schau ob was passiert.

Delphi-Quellcode:

 //max:=0;  // eigentlich nutzlos, da es nachher sowieso wieder überschrieben wird
 //pmax:=0;  //
 ...
 max:=f1;
 pmax:=1;  // vergessen zu setzen
 for i:=2 to 9 do // 1 ist doch schon gesetzt, wozu nochmal prüfen?