Einzelnen Beitrag anzeigen

Benutzerbild von Kedariodakon
Kedariodakon

Registriert seit: 10. Sep 2004
Ort: Mönchengladbach
833 Beiträge
 
Delphi 7 Enterprise
 
#4

Re: Typenproblem: Array of Byte...

  Alt 16. Feb 2005, 17:52
Zitat von Thanatos81:
Wieso arbeitest du nicht gleich mit Zeigern? Dann bräuchtest du gar nichts durch den Speicher schaufeln. Oder ist das aufgrund der Programmstruktur nicht möglich?
Nicht wirklich...

Zitat von Muetze1:
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.
So meinte ich das nicht...
----------------------------------

Ich habe diese Funktion:
Delphi-Quellcode:
Function sumArray( Const Data: TDataArray ): Cardinal;
Var   i: Cardinal;
Begin
   Result   := 0;
   For   i := low( Data ) To High( Data ) Do Inc( Result, Data[ i ] );
End;
und will die so in der Art hier anwenden:
Delphi-Quellcode:
Function sumArrayTests( Const Data: TDataArray; Const Start, Ende: Cardinal ): Cardinal;
Begin
   Result   := sumArray( Data[ Start..Ende ] );
End;
Das das nicht geht ist klar, aber so in der art will ich es anwenden, weiss aber net ob das einfach geht oder net...

Bye
Christian
  Mit Zitat antworten Zitat