Ich habe jetzt mal versucht mir ein Array von einem Record, welcher die benötigten Werte enthält zu erstellen und dann das Array abzufragen. Dazu übergebe ich das Array an eine Funktion, die dieses Element für Element durchprüfen soll. Funktioniert aber auch nicht, da ich ja das Array bereits mit SetLength auf einen bestimmten Max - Wert gestezt habe. Sobald ich nun auf das Element 1 zugreife bekomme ich eine
Exception.
Hier mal der Code:
Delphi-Quellcode:
// Aufruf der Function
IndexOf(Value, IntToNr(Test);
Delphi-Quellcode:
function TfrmFortschritt.IndexOf(Ar : TCop; Value : String) : Integer;
Var I : Integer;
S : String;
begin
S := Value;
Result := -1;
For I := 0 to length(Ar) do Begin
If CompareStr(S, Ar[I].BetAlt) = 0 then Begin
Result := 1;
break;
End;
End;
end;
Was mach ich falsch?