Question

delphi 字符串中取子串 123456789中每隔2个元素取一个数得到147 谢谢啦

Answer 1

function PosSubStr(a:string):string
var
Aindex,BIndex:integer;
begin
aindex:=1;
bindex:=length(a);
result:='';
while aindex<=bindex do
begin
result:=result+a[aindex];
inc(aindex,3);
end;
end;

Answer 2

var x:integer;
s,tmpstr:string;
begin
x:=1;
s:='';
tmpstr:='123456789';
while x<length(tmpstr) do
begin
s:=s+tmpstr[x];
x:=x+3;
end;
showmessage(s);
end;