Typenproblem: Array of Byte...

[Muetze1]

Moin!

Delphi-Quellcode:

Function NimmArray(Const AArray: TDataArray): Integer;
Var
  i : Integer;
Begin
  Result := 0;
  For i := Low(AArray) To High(AArray) Do
    Inc(Result, AArray[i]);
End;

Begin
  ShowMessage(IntToStr(   NimmArray( [1, 3, 54, 2, 65, 34, 76] )   ));
End.

MfG
Muetze1