东太湖生态园:怎么样用DELPHI在一个数字文档中每隔四个数字加一个逗号
来源:百度文库 编辑:神马品牌网 时间:2024/09/04 07:42:41
例如一个文档中全是数字,共有十行,现在想通过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;