title image


Smiley Die Antwort




function CreateArrayOfInt(source: TIntArray): TIntArray;

begin

SetLength(result, Length(source));

Result := Copy(source, 0, Length(source));

end;



//Function testen



procedure TForm1.Button1Click(Sender: TObject);

var

A1, A2: TIntArray;

I: Integer;

begin

SetLength(A1, MaxWord);

// array mit Werten von 0 bis $FFFF füllen

for I := 0 to MaxWord-1 do

A1[I] := I;

// array kopieren

A2 := CreateArrayOfInt(A1);

// Kopie mit Original vergleichen

for I := 0 to MaxWord-1 do

if A1[I] <> A2[I] then

raise Exception.Create('Leider nicht geklappt...');

ShowMessage('Es klappt doch!');

end;









Ich würde aber so vorgehen:



procedure CopyArray(const Source: TIntArray; var Destination: TIntArray);

begin

SetLength(Destination, Length(Source ));

Destination := Copy(source, 0, Length(source));

end;













geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: