2,495
社区成员
发帖
与我相关
我的任务
分享
function DerrickStr(Memo: TMemo): string;
var
i: integer;
begin
result := '';
if Memo.Lines.count < 1 then exit;
result := Memo.Lines.strings[0];
for i := 1 to Memo.Lines.count - 1 do
result := result + '#' + Memo.Lines.strings[i];
end;