paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 06:49:26 +01:00
Code Issues Packages Projects Releases Wiki Activity

Ensure '/' is used as directory separator to get same output as before

Browse Source 
git-svn-id: trunk@34331 -
This commit is contained in:
pierre 2016-08-18 11:43:56 +00:00
parent 2b250bc0ab
commit ef05e4cb49
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
tests/utils/createlst.pp
View File

@ -4,10 +4,10 @@ uses
SysUtils, Classes;
var
i,ioerror : LongInt;
i, j, ioerror : LongInt;
outfile : text;
sr: TSearchRec;
path: String;
path, path2: String;
sl: TStringList;
begin
if ParamCount < 2 then
@ -32,10 +32,18 @@ begin
for i := 2 to ParamCount do
begin
path := IncludeTrailingPathDelimiter(ParamStr(i));
{ Generate path2, with all DirectorySeparators
converted to / to get same output as with
script before }
path2:=path;
if DirectorySeparator<>'/' then
for j:=1 to length(path2) do
if path2[j]=DirectorySeparator then
path2[j]:='/';
if FindFirst(path + 't*.pp', 0, sr) = 0 then
begin
repeat
sl.Add(path + sr.Name);
sl.Add(path2 + sr.Name);
until FindNext(sr) <> 0;
FindClose(sr);
end;