RSS订阅 | 匿名投稿
您的位置:网站首页 > 字符串 > 正文

delphi 数字排序自动完成

作者:admin 来源: 日期:2018/2/15 18:12:57 人气: 标签:

function DecStr(Input: string): string;
var
i, j, t: integer;
s: string;
begin
if pos('-', Input) <> 0 then
begin
   while length(Input) <> 0 do
   begin
     if Input[1] = ',' then
     begin
       i := strtoint(s);
       delete(Input, 1, 1);
       result := result + s + ',';
       s := '';
     end
     else
     begin
       if Input[1] = '-' then
       begin
         i := strtoint(s);
         delete(Input, 1, 1);
         t := pos(',', Input);
         result := result + s + ',';
         s := '';
         if t = 0 then
         begin
           j := strtoint(Input);
           Input := '';
         end
         else
         begin
           j := strtoint(copy(Input, 1, t - 1));
           delete(Input, 1, t);
         end;
         inc(i);
         while i < j + 1 do
         begin
           result := result + inttostr(i) + ',';
           inc(i);
         end;
       end
       else
       begin
         s := s + Input[1];
         delete(Input, 1, 1);
       end;
     end;
   end;
end
else
result := Input;
if s <> '' then
result := result + s;
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
memo1.Lines.Add(DecStr('1-10'));
end;

原始: 1,3,5-10,15

结果: 1,3,5,6,7,8,9,10,15 


读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料