UC知道Delphi媒体播放器代码
来源：百度知道 编辑：UC知道 时间：2024/06/07 10:46:20
procedure TMainForm.SetStrLen(var str:String; len:integer);
var tmp:string;
i,j:integer;
begin
SetLength(tmp,len);
for i:=1 to len do
tmp[i]:='0';
j:=len;
for i:=Length(str) downto 1 do
begin
tmp[j]:=str[i];
dec(j);
if j=0 then break;
end;
str:=tmp;
end;
请问上述代码说的是什么意思
详解最好，O(∩_∩)O谢谢
var tmp:string;
i,j:integer;
begin
SetLength(tmp,len);
for i:=1 to len do
tmp[i]:='0';
j:=len;
for i:=Length(str) downto 1 do
begin
tmp[j]:=str[i];
dec(j);
if j=0 then break;
end;
str:=tmp;
end;
请问上述代码说的是什么意思
详解最好，O(∩_∩)O谢谢
procedure TMainForm.SetStrLen(var str:String; len:integer);
var tmp:string;
i,j:integer;
begin
SetLength(tmp,len); //为tmp分配空间或者叫长度
for i:=1 to len do
tmp[i]:='0'; //tmp里面的字符串先全部是'0'
j:=len;
for i:=Length(str) downto 1 do
begin
tmp[j]:=str[i];
dec(j); //从末尾开始把str的每个字符赋值给tmp
if j=0 then break;
end;
str:=tmp;//然后str被赋值给tmp
end;
实话实说这个函数很没有效率.
要么自己用BASM写一个快多了