请问个菜问题~麻烦你们了

Question

请问函数copy的用法，还有一个问题
就是：
如何保存字符串变量A到C:\1.TXT ?

Answer 1

请问函数copy的用法，还有一个问题 
copy第一个参数是源字符串,第二个参数是要复制的字符串开始位置,第三个参数是要复制的字符串的长度
 
如何保存字符串变量A到C:\1.TXT ?
var
ss:Tstringlist;
str:string;
begin
str:='我是一个字符串';
ss:=TStringlist.create;
ss.test:=str;
ss.savetofile('C:\1.txt');
ss.free;
end;

Answer 2

str1:='123';
str2:=copy(str1,1,2);
输出的结果，str2:='12';
var
  list:Tstringlist;
begin
  list:=Tstringlist.create;
  list.add(str2);
  list.savetofile('C:\1.TXT');
end;