* hard-coded '*' replaced by reference to AllFilesMask constant

git-svn-id: trunk@31925 -
This commit is contained in:
Tomas Hajny 2015-10-03 17:08:31 +00:00
parent 11eb1a4179
commit 8746c68a29

View File

@ -297,7 +297,7 @@ class procedure TIPCBase.FindRunningServers(const aServerIDPrefix: string;
var var
xRec: TRawByteSearchRec; xRec: TRawByteSearchRec;
begin begin
if FindFirst(ServerIDToFileName(aServerIDPrefix+'*', aGlobal), faAnyFile, xRec) = 0 then if FindFirst(ServerIDToFileName(aServerIDPrefix+AllFilesMask, aGlobal), faAnyFile, xRec) = 0 then
begin begin
repeat repeat
if (Pos('-', xRec.Name) = 0) and//file that we found is a pending message if (Pos('-', xRec.Name) = 0) and//file that we found is a pending message
@ -447,7 +447,7 @@ var
xDir: string; xDir: string;
begin begin
xDir := ExtractFilePath(FFileName); xDir := ExtractFilePath(FFileName);
if FindFirst(GetRequestPrefix+'*', faAnyFile, xRec) = 0 then if FindFirst(GetRequestPrefix+AllFilesMask, faAnyFile, xRec) = 0 then
begin begin
repeat repeat
DeleteFile(xDir+xRec.Name); DeleteFile(xDir+xRec.Name);
@ -487,7 +487,7 @@ begin
outMsgType := -1; outMsgType := -1;
outMsgLen := 0; outMsgLen := 0;
Result := -1; Result := -1;
if FindFirst(GetRequestPrefix+'*', faAnyFile, xRec) = 0 then if FindFirst(GetRequestPrefix+AllFilesMask, faAnyFile, xRec) = 0 then
begin begin
repeat repeat
Result := RequestFileNameToMsgID(xRec.Name); Result := RequestFileNameToMsgID(xRec.Name);
@ -509,7 +509,7 @@ var
begin begin
xHighestId := -1; xHighestId := -1;
Result := -1; Result := -1;
if FindFirst(GetRequestPrefix+'*', faAnyFile, xRec) = 0 then if FindFirst(GetRequestPrefix+AllFilesMask, faAnyFile, xRec) = 0 then
begin begin
repeat repeat
xMsgID := RequestFileNameToMsgID(xRec.Name); xMsgID := RequestFileNameToMsgID(xRec.Name);
@ -528,7 +528,7 @@ var
xRec: TRawByteSearchRec; xRec: TRawByteSearchRec;
begin begin
Result := 0; Result := 0;
if FindFirst(GetRequestPrefix+'*', faAnyFile, xRec) = 0 then if FindFirst(GetRequestPrefix+AllFilesMask, faAnyFile, xRec) = 0 then
begin begin
repeat repeat
if RequestFileNameToMsgID(xRec.Name) >= 0 then if RequestFileNameToMsgID(xRec.Name) >= 0 then