最基本的物质需求得到满足之后，唯一能够不断增加个人幸福感的事情就是帮助他人

Delphi-SetLength函数及例子
━━━━━━━━━━━━━━━━━━━━━━━━━━

功能说明：设置字符串或动态数组长度。该函数有两个参数。第一个参数为要设置的字符串变量或动态数组变量，第二个参数为指定的长度，其取值范围在0到255之间。
　　参考实例：
　　var
　　 　S: String;
　　 　arrText: array of Char; // 定义一个动态数组
　　begin
　　 　SetLength(S, 10); // 当设置后，S变量只能赋值长度为10的字符串。
　　 　SetLength(arrText, 10); // 只有使用SetLength为动态数组分配内存空间后才能使用动态数组。这句代码的作用相当于arrText: array[0..9] of Char
　　end;

━━━━━━━━━━━━━━━━━━━━━━━━━━
就是给字符串和动态数组设置长度，delphi自动给字符串和动态数组分配内存
var
s:string;
arr: array of integer;

setlength(s,10);
setlength(arr,15);

比如
setlength(codearr, 10);则是设置数组codearr的下标范围为0-9。