杭州交通信息网大连联通宽带维修电话:怎么样用DELPHI在一个数字文档中每隔四个数字加一个逗号
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/04 04:51:18
例如一个文档中全是数字,共有十行,现在想通过DELPHI编程使每一行每隔四个数字加一个逗号,怎么样解决
先把文件里的数字读到程序里,以数组也好是字符串也好保存到变量里,
然后对起进行操作就是了,可能要注意下换行的符.
//memo1是 你要读取得文档，momo2是你转换后的内容
procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
s,s1,s2:string;
begin
memo2.Clear;
for i:=1 to memo1.Lines.count do
begin
s2:='';
s:=memo1.Lines[i];
for j:=1 to length(s) do
begin
s1:='';
if j mod 4 =1 then
begin
s1:=s1+s[j]+s[j+1]+s[j+2]+s[j+3];
if length(s)-j>=4 then
s2:=s2+s1+','
else
s2:=s2+s1;
end;
end;
memo2.Lines.Add(s2);
end;
end;