浏览代码
* Fix compiler warning
Michaël Van Canneyt
2 年之前
|
|
@@ -108,6 +108,7 @@ Var
|
|
|
L : Integer;
|
|
|
|
|
|
begin
|
|
|
+ Result:='';
|
|
|
L:=Length(B);
|
|
|
SetLength(Result,L);
|
|
|
If L>0 then
|
|
|
@@ -120,6 +121,7 @@ Var
|
|
|
L : Integer;
|
|
|
|
|
|
begin
|
|
|
+ Result:=[];
|
|
|
L:=Length(S);
|
|
|
SetLength(Result,L);
|
|
|
If L>0 then
|
