Mega Code Archive
One way to copy whole contents of an array into another array
<![CDATA[
Title: One way to copy whole contents of an array into another array.
Question: You have an array and you want to copy the value you have in it to another array.
Answer:
{I just use a button to se if it compile and if I get an Error when I click it. There ar other ways, like
copy an array in a for loop, but then you have to know how big it is. If you handle different arrays
in an application and need to copy them into one, this is the way. As you can se, it works with just
one index of the array too.}
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
Array1: array[0..40] of Integer;
Array2: array[0..100] of Integer;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
Move(Array1,Array2,SizeOf(Array1)); {Moves/Copy the Array1 to Array2.}
end;
end.
]]>