Procedure TfrmMain.ImportData;Type TRecord = Record... end;var vars : Array of TRecord; Function DoStuff; //Sub Function begin vars[1]... end;begin // Main part of Importdata DoStuff;end;
var arr : array of integer;begin arr[0] := 1; arr[1] := 4;end;
var arr : array of integer;begin SetLength(array, 2); // don't forget this. arr[0] := 1; arr[1] := 4;end;