Thema: Delphi Merken von Daten

Einzelnen Beitrag anzeigen

K-Asche

Registriert seit: 16. Nov 2005
Ort: Greven
71 Beiträge
 
#4

Re: Merken von Daten

  Alt 3. Feb 2006, 14:52
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?
  Mit Zitat antworten Zitat