5,388
社区成员
发帖
与我相关
我的任务
分享
function RetStrings(const sLi: Tstrings; s: string; rCount: integer): boolean;
var
i:integer;
being
result := true;
// 本函数目的为构造一个有 rCount 行、内容为 s 的 Strings
// 构造成功返回true,反之
try
for i := 0 to rCount - 1 do
sli.Append(s);
except on e: exception do
result := false;
end;
end;
// 调用
var
sli: TStringList;
begin
sli := TStringList.Create;
if RetStrings(sli, '洗洗更健康', 20) then
ShowMessage(sli.Text)
else
ShowMessage('构建 Strings 失败');
sli.Free;
end;
TStringList 数组可以定义成动态数组,在使用时根据需要用SetLenght自行扩充长度
TStringsArray = array of TStrings;
如果你的delphi版本支持泛型,直接这样声明变量 sLi:TList<TStringList>;
然后可以用sli.add、sli.remove这些方法管理列表项更方便