一个简单的函数的问题!

[kjiwu]

function ModifyTime(ATime: TDateTime): string;
var
TimeStr, str: string;
i: integer;
begin
str := '';
TimeStr := DateTimeToStr(ATime);
for i := 0 to Length(TimeStr) - 1 do
begin
if (TimeStr = ':') or (TimeStr = '-') or (TimeStr = ' ') then Continue;

str := str + TimeStr[i];
end;
Result := str;
end;
这个函数为什么总输出空值呀?

[do2008]

function ModifyTime(ATime: TDateTime): string;
var
TimeStr, str: string;
i: integer;
begin
str := '';
TimeStr := DateTimeToStr(ATime);
for i := 1 to Length(TimeStr) do //改循环 从1 开始
begin
if (TimeStr = ':') or (TimeStr = '-') or (TimeStr = ' ') then Continue;

str := str + TimeStr[i];
end;
Result := str;
end;

[kjiwu]

为什么不能从'0'开始呀?

[ZyxIp]

for i := 1 to Length(TimeStr) do

[ZyxIp]

String 类型是从1开始保存值的，第0字节保存的是长度。

[liliang800207]

从0开始也可以 不过你必须确认内存中你的TimeStr 前的一个字节不是0x00

[kjiwu]

ZyxIp不好意思,只给了你5分,下次有机会再多给你.

[ZyxIp]

方式1
function ModifyTime(ATime: TDateTime): string;
begin
Result:=FormatDateTime('yyyymmddhhnnss',aTime);
end;

方式2
function ModifyTime(ATime: TDateTime): string;
var
TimeStr: string;
i,L: integer;
begin
TimeStr := DateTimeToStr(ATime);
L:=Length(TimeStr);
for i := 1 to L do
if (TimeStr[i] in ['0'..'9']) then
Result:=Result+TimeStr[i];
end;

两个的差别是第一个会格式化为定长的。