Delphi/pascalscript
Delphi/pascalscript
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Update uPSUtils.pas

Browse Source
This commit is contained in:
Carlo Kok 2014-01-26 16:05:34 +01:00
parent c2537de286
commit 9c79114c84
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Source/uPSUtils.pas
View File

@ -998,9 +998,10 @@ end;
procedure TPSStringList.Clear;
begin
while List.Count > 0 do Delete(0);
while List.Count > 0 do Delete(Pred(List.Count));
end;
constructor TPSStringList.Create;
begin
inherited Create;