delphi中copy函数的问题

edit2.Text:=edit2.Text+l.Strings[i]+',';
edit2.Text:=copy(edit2.Text,1,length(edit2.Text)-1);
为什么输出的结果里没有了逗号，比如说输入11，10，12，13，18输出是1011121318
如果去掉-1的话逗号还有10，11，12，13，18，

---

中文的逗号？！

---

英文的

---

L是怎么定义的

---

edit2.Text:=copy(edit2.Text,0,length(edit2.Text)-1);

---

引用

edit2.Text:=edit2.Text+l.Strings[i]+',';
edit2.Text:=copy(edit2.Text,1,length(edit2.Text)-1);
为什么输出的结果里没有了逗号，比如说输入11，10，12，13，18输出是1011121318
如果去掉-1的话逗号还有10，11，12，13，18，

帅哥，贴个完整点的啊！红色部分是关键，谁知道你是咋循环的！

---

引用

L是怎么定义的

不可以
L定义的是tstringlist

---

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private