fix bug in debug function

Carlos Picanco
1 parent fa790dab
Showing 1 changed file with 2 additions and 2 deletions Show diff stats
cultural_matrix.lpr
@@ -50,9 +50,9 @@ const
     Result := True;
     for i := 0 to 2 do
       begin
-        if Pos((PathDelim+'P'+IntToStr(i+1)+PathDelim), Application.ExeName) > 0 then
+        if Pos(('Participant'), Application.ExeName) > 0 then
           Break;
-        F := ApplicationPath+'P'+IntToStr(i+1);
+        F := ApplicationPath+'Participant'+IntToStr(i+1);
         WriteLn(F);
         if ForceDirectoriesUTF8(F) then // ensure we have always the newer version for tests
           begin
...	...	@@ -50,9 +50,9 @@ const
50	50	Result := True;
51	51	for i := 0 to 2 do
52	52	begin
53		- if Pos((PathDelim+'P'+IntToStr(i+1)+PathDelim), Application.ExeName) > 0 then
	53	+ if Pos(('Participant'), Application.ExeName) > 0 then
54	54	Break;
55		- F := ApplicationPath+'P'+IntToStr(i+1);
	55	+ F := ApplicationPath+'Participant'+IntToStr(i+1);
56	56	WriteLn(F);
57	57	if ForceDirectoriesUTF8(F) then // ensure we have always the newer version for tests
58	58	begin
...	...