mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-14 18:29:13 +02:00
* hard-coded '*' replaced by reference to AllFilesMask constant
git-svn-id: trunk@31925 -
This commit is contained in:
parent
11eb1a4179
commit
8746c68a29
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user