Question

delphi copy函数的疑惑

我再补充下：我疑惑的是COPY（S，i,1) 与copy(s,3,1)
var
list:TStrings;
lst:TStringList;
i:Integer;
ss,s:string;
begin
s:='';
ss:='';
lst:=TStringList.Create; //建立 TStrings虚类的子类 ,
// list:=TStrings.Create; // 因为TStrings虚类不能实例化,所以必须建立上面一步
memo1.Lines.add('Hello Hi How are you');
list:=memo1.Lines ;

s:=list[0];

for i:=1 to Length(s) do //ength(s),得到S的长度
begin
if Copy(s,i,1)<>' ' then
begin
ss:= ss+Copy(s,i,1); //将符合的存入ss
// 这句Copy(s,i,1) 看了结果能把Hi， How， are， you各自整体都拷过去。按理说这个“1”只是一个长度，那就是说结果应该就是H一个字母。为什么会是全部都拷了？！

end
else
lst.Add(ss);
lst.SaveToFile('d:\'+ss+'.txt');
lst.Clear;
ss:='';
end;

Answer 1

你的想法错了，他并不是在执行ss:= ss+Copy(s,i,1);就拷贝了一个单词而是根据循环一个字符一个字符的复制的。每个单词中间有空格，当循环取到空格时说明一个单词复制完成就执行else后面的语句了，最后还清空ss（这句ss:='';）。
还有你的else后面应该还少个begin最后也少一个end

Answer 2

NO！第三个参数是截取的长度！
例如 s:='abcdefg';
则 copy(s,3,1) 就是'c'，copy(s,3,3)就是'cde'。

Answer 3

i是字符串开始的位置.1为长度
copy(s,i,1)
i :=1;的时候
字符串为H

第一个参数是字符,第二个参数是起始位置,第三个参数是终止位置

Answer 4

从一个字符串中的第几个元素开始取几个元素