/dports/lang/fpc-source/fpc-3.2.2/tests/test/units/sysutils/ |
H A D | tfilename.pp | 25 TestFuncs(1,ExtractFilePath('./:'),'./'); 33 TestFuncs(7,ExtractFilePath('./\'),'./\'); 37 TestFuncs(10,ExtractFilePath('./c:'),'./'); 48 TestFuncs(101,ExtractFilePath('./:'),'./'); 56 TestFuncs(107,ExtractFilePath('./\'),'./'); 60 TestFuncs(110,ExtractFilePath('./c:'),'./'); 71 TestFuncs(201,ExtractFilePath('./:'),'./:'); 79 TestFuncs(207,ExtractFilePath('./\'),'./\'); 83 TestFuncs(210,ExtractFilePath('./c:'),'./c:'); 94 TestFuncs(301,ExtractFilePath('./:'),'./:'); [all …]
|
/dports/lang/fpc-source/fpc-3.2.2/tests/webtbs/ |
H A D | tw10717.pp | 19 'ExtractFilePath on ''./:'' = ''./''', 27 'ExtractFilePath on ''C:/blah:blah'' = ''C:/''', 35 'ExtractFilePath on ''./\'' = ''./''', 43 'ExtractFilePath on ''./c:'' = ''./''', 51 'ExtractFilePath on ''\\server\share\file'' = ''''', 62 'ExtractFilePath on ''./:'' = ''./:''', 78 'ExtractFilePath on ''./\'' = ''./\''', 86 'ExtractFilePath on ''./c:'' = ''./c:''', 105 WriteLn(Format('ExtractFilePath on ''%s'' = ''%s''', 116 …if (Format('ExtractFilePath on ''%s'' = ''%s''',[strPath, ExtractFilePath(strPath)]) <> results[1]… [all …]
|
H A D | tw24915.pp | 16 t:=test(ExtractFilePath(path), ExtractFilePath(path));
|
/dports/editors/lazarus/lazarus/components/jcf2/Utils/ |
H A D | JcfHelp.pas | 81 HelpFilePath := IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName)) + 87 ExtractFilePath(GetModuleName(GetModuleHandle('JCFIdeD12.bpl')))) + 92 ExtractFilePath(GetModuleName(GetModuleHandle('JCFIdeD11.bpl')))) + 97 ExtractFilePath(GetModuleName(GetModuleHandle('JCFIdeD10.bpl')))) + 102 ExtractFilePath(GetModuleName(GetModuleHandle('JCFIdeD9.bpl')))) + 107 ExtractFilePath(GetModuleName(GetModuleHandle('JCFIdeD7.bpl')))) + 112 ExtractFilePath(GetModuleName(GetModuleHandle('JCFIdeD6.bpl')))) + 117 ExtractFilePath(GetModuleName(GetModuleHandle('JCFIdeD5.bpl')))) +
|
/dports/editors/lazarus-qt5/lazarus/components/jcf2/Utils/ |
H A D | JcfHelp.pas | 81 HelpFilePath := IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName)) + 87 ExtractFilePath(GetModuleName(GetModuleHandle('JCFIdeD12.bpl')))) + 92 ExtractFilePath(GetModuleName(GetModuleHandle('JCFIdeD11.bpl')))) + 97 ExtractFilePath(GetModuleName(GetModuleHandle('JCFIdeD10.bpl')))) + 102 ExtractFilePath(GetModuleName(GetModuleHandle('JCFIdeD9.bpl')))) + 107 ExtractFilePath(GetModuleName(GetModuleHandle('JCFIdeD7.bpl')))) + 112 ExtractFilePath(GetModuleName(GetModuleHandle('JCFIdeD6.bpl')))) + 117 ExtractFilePath(GetModuleName(GetModuleHandle('JCFIdeD5.bpl')))) +
|
/dports/devel/fpc-fcl-pdf/fpc-3.2.2/packages/fcl-pdf/tests/ |
H A D | fpttf_test.pas | 223 lFC.SearchPath.Add(ExtractFilePath(ParamStr(0)) + 'fonts'); 247 lFC.SearchPath.Add(ExtractFilePath(ParamStr(0)) + 'fonts'); 295 FC.SearchPath.Add(ExtractFilePath(ParamStr(0)) + 'fonts'); 314 FC.SearchPath.Add(ExtractFilePath(ParamStr(0)) + 'fonts'); 323 FC.SearchPath.Add(ExtractFilePath(ParamStr(0)) + 'path_doesnt_exist'); 331 FC.SearchPath.Add(ExtractFilePath(ParamStr(0)) + 'fonts'); 346 FC.SearchPath.Add(ExtractFilePath(ParamStr(0)) + 'fonts'); 376 FC.SearchPath.Add(ExtractFilePath(ParamStr(0)) + 'fonts'); 405 FC.SearchPath.Add(ExtractFilePath(ParamStr(0)) + 'fonts'); 424 s := ExtractFilePath(ParamStr(0)) + cFontListFile;
|
/dports/lang/fpc-source/fpc-3.2.2/packages/fcl-pdf/tests/ |
H A D | fpttf_test.pas | 223 lFC.SearchPath.Add(ExtractFilePath(ParamStr(0)) + 'fonts'); 247 lFC.SearchPath.Add(ExtractFilePath(ParamStr(0)) + 'fonts'); 295 FC.SearchPath.Add(ExtractFilePath(ParamStr(0)) + 'fonts'); 314 FC.SearchPath.Add(ExtractFilePath(ParamStr(0)) + 'fonts'); 323 FC.SearchPath.Add(ExtractFilePath(ParamStr(0)) + 'path_doesnt_exist'); 331 FC.SearchPath.Add(ExtractFilePath(ParamStr(0)) + 'fonts'); 346 FC.SearchPath.Add(ExtractFilePath(ParamStr(0)) + 'fonts'); 376 FC.SearchPath.Add(ExtractFilePath(ParamStr(0)) + 'fonts'); 405 FC.SearchPath.Add(ExtractFilePath(ParamStr(0)) + 'fonts'); 424 s := ExtractFilePath(ParamStr(0)) + cFontListFile;
|
/dports/editors/lazarus/examples/database/image_mushrooms/ |
H A D | unit1.pas | 88 frReport1.LoadFromFile(ExtractFilePath(application.ExeName) + 140 SQLite3Connection1.DatabaseName:=ExtractFilePath(ParamStr(0)) + SQLiteDB; 179 IBConnection1.DatabaseName:=ExtractFilePath(ParamStr(0)) + FirebirdDB; 227 TFrPictureView(View).Picture.LoadFromFile(ExtractFilePath(ParamStr(0)) + 237 s := ExtractFilePath(ParamStr(0)) + 'images' + DirectorySeparator + DBEdit1.Text; 257 OpenDialog1.InitialDir := ExtractFilePath(ParamStr(0)) + 'images'; 313 DBFile:=ExtractFilePath(ParamStr(0)) + FirebirdDB; 356 SQLInstructions := ExtractFilePath(ParamStr(0)) + 'mushrooms_firebird.sql';
|
/dports/editors/lazarus-devel/examples/database/image_mushrooms/ |
H A D | unit1.pas | 88 frReport1.LoadFromFile(ExtractFilePath(application.ExeName) + 140 SQLite3Connection1.DatabaseName:=ExtractFilePath(ParamStr(0)) + SQLiteDB; 179 IBConnection1.DatabaseName:=ExtractFilePath(ParamStr(0)) + FirebirdDB; 227 TFrPictureView(View).Picture.LoadFromFile(ExtractFilePath(ParamStr(0)) + 237 s := ExtractFilePath(ParamStr(0)) + 'images' + DirectorySeparator + DBEdit1.Text; 257 OpenDialog1.InitialDir := ExtractFilePath(ParamStr(0)) + 'images'; 313 DBFile:=ExtractFilePath(ParamStr(0)) + FirebirdDB; 356 SQLInstructions := ExtractFilePath(ParamStr(0)) + 'mushrooms_firebird.sql';
|
/dports/editors/lazarus-qt5/examples/database/image_mushrooms/ |
H A D | unit1.pas | 88 frReport1.LoadFromFile(ExtractFilePath(application.ExeName) + 140 SQLite3Connection1.DatabaseName:=ExtractFilePath(ParamStr(0)) + SQLiteDB; 179 IBConnection1.DatabaseName:=ExtractFilePath(ParamStr(0)) + FirebirdDB; 227 TFrPictureView(View).Picture.LoadFromFile(ExtractFilePath(ParamStr(0)) + 237 s := ExtractFilePath(ParamStr(0)) + 'images' + DirectorySeparator + DBEdit1.Text; 257 OpenDialog1.InitialDir := ExtractFilePath(ParamStr(0)) + 'images'; 313 DBFile:=ExtractFilePath(ParamStr(0)) + FirebirdDB; 356 SQLInstructions := ExtractFilePath(ParamStr(0)) + 'mushrooms_firebird.sql';
|
/dports/editors/lazarus-qt5-devel/examples/database/image_mushrooms/ |
H A D | unit1.pas | 88 frReport1.LoadFromFile(ExtractFilePath(application.ExeName) + 140 SQLite3Connection1.DatabaseName:=ExtractFilePath(ParamStr(0)) + SQLiteDB; 179 IBConnection1.DatabaseName:=ExtractFilePath(ParamStr(0)) + FirebirdDB; 227 TFrPictureView(View).Picture.LoadFromFile(ExtractFilePath(ParamStr(0)) + 237 s := ExtractFilePath(ParamStr(0)) + 'images' + DirectorySeparator + DBEdit1.Text; 257 OpenDialog1.InitialDir := ExtractFilePath(ParamStr(0)) + 'images'; 313 DBFile:=ExtractFilePath(ParamStr(0)) + FirebirdDB; 356 SQLInstructions := ExtractFilePath(ParamStr(0)) + 'mushrooms_firebird.sql';
|
/dports/editors/lazarus/lazarus/components/onlinepackagemanager/ |
H A D | opkman_repositorydetailsfrm.pas | 95 if (not IsDirectoryEmpty(ExtractFilePath(SDRep.FileName))) then 96 …if MessageDlgEx(Format(rsCreateRepositoryFrm_Info1, [ExtractFilePath(SDRep.FileName)]), mtConfirma… 98 if not DirectoryIsWritable(ExtractFilePath(SDRep.FileName)) then 100 …MessageDlgEx(Format(rsCreateRepositoryFrm_Info1, [ExtractFilePath(SDRep.FileName)]), mtConfirmatio…
|
/dports/editors/lazarus-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/components/onlinepackagemanager/ |
H A D | opkman_repositorydetailsfrm.pas | 95 if (not IsDirectoryEmpty(ExtractFilePath(SDRep.FileName))) then 96 …if MessageDlgEx(Format(rsCreateRepositoryFrm_Info1, [ExtractFilePath(SDRep.FileName)]), mtConfirma… 98 if not DirectoryIsWritable(ExtractFilePath(SDRep.FileName)) then 100 …MessageDlgEx(Format(rsCreateRepositoryFrm_Info1, [ExtractFilePath(SDRep.FileName)]), mtConfirmatio…
|
/dports/editors/lazarus-qt5/lazarus/components/onlinepackagemanager/ |
H A D | opkman_repositorydetailsfrm.pas | 95 if (not IsDirectoryEmpty(ExtractFilePath(SDRep.FileName))) then 96 …if MessageDlgEx(Format(rsCreateRepositoryFrm_Info1, [ExtractFilePath(SDRep.FileName)]), mtConfirma… 98 if not DirectoryIsWritable(ExtractFilePath(SDRep.FileName)) then 100 …MessageDlgEx(Format(rsCreateRepositoryFrm_Info1, [ExtractFilePath(SDRep.FileName)]), mtConfirmatio…
|
/dports/editors/lazarus-qt5-devel/lazarus-6df7e8756882f7d7f28f662011ee72f21746c580/components/onlinepackagemanager/ |
H A D | opkman_repositorydetailsfrm.pas | 95 if (not IsDirectoryEmpty(ExtractFilePath(SDRep.FileName))) then 96 …if MessageDlgEx(Format(rsCreateRepositoryFrm_Info1, [ExtractFilePath(SDRep.FileName)]), mtConfirma… 98 if not DirectoryIsWritable(ExtractFilePath(SDRep.FileName)) then 100 …MessageDlgEx(Format(rsCreateRepositoryFrm_Info1, [ExtractFilePath(SDRep.FileName)]), mtConfirmatio…
|
/dports/lang/fpc-source/fpc-3.2.2/packages/amunits/src/utilunits/ |
H A D | amigautils.pas | 38 function ExtractFilePath(FileName: PChar): PChar; in ExtractFilePath() function 97 function ExtractFilePath(FileName: PChar): PChar; in ExtractFilePath() function 103 ExtractFilePath := PCharCopy(FileName, 0, I+1); 149 PathOf := ExtractFilePath(Name);
|
/dports/comms/gammu/gammu-1.42.0/contrib/win32/delphi7.gui/smsd/ |
H A D | main.pas | 246 …(GatewayIniFile.ReadString('general', 'GatewayLog', ExtractFilePath(Application.ExeName)+'gatelog.… 278 …GatewayIniFile.WriteString('general', 'GatewayLog', ExtractFilePath(Application.ExeName)+'gatelog.… 364 …GatewayIniFile.WriteString('modem'+inttostr(i), 'GammuLog', ExtractFilePath(Application.ExeName)+'… 446 …AssignFile(F, GatewayINIFile.ReadString('general', 'senddir', ExtractFilePath(Application.ExeName)… 609 …DeleteFile(GatewayINIFile.ReadString('general', 'senddir', ExtractFilePath(Application.ExeName))+s… 628 …DeleteFile(GatewayINIFile.ReadString('general', 'senddir', ExtractFilePath(Application.ExeName))+s… 632 …AssignFile(F, GatewayINIFile.ReadString('general', 'senddir', ExtractFilePath(Application.ExeName)… 895 GatewayIniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'smsd.ini'); 973 GatewayIniFile.WriteString('general', 'senddir', ExtractFilePath(Application.ExeName)); 1249 ExecuteFile('readme.htm','',ExtractFilePath(Application.ExeName), SW_SHOW); [all …]
|
H A D | config.pas | 143 IncomingEdit.Text:=ReadString('general', 'receivedir', ExtractFilePath(Application.ExeName)); 144 OutgoingEdit.Text:=ReadString('general', 'senddir', ExtractFilePath(Application.ExeName)); 163 …GatewayLogFileEdit.Text :=ReadString('general', 'GatewayLog' , ExtractFilePath(Applic… 202 ….CFGReceiveLogFile:=ReadString('modem'+inttostr(i), 'ReceiveLog' , ExtractFilePath(Application.E… 203 ….CFGSendLogFile :=ReadString('modem'+inttostr(i), 'SendLog' , ExtractFilePath(Application.E… 204 ….CFGGammuLogFile :=ReadString('modem'+inttostr(i), 'GammuLog' , ExtractFilePath(Application.E… 404 OpenDialog1.InitialDir:=ExtractFilePath(GatewayLogFileEdit.Text); 414 OpenDialog1.InitialDir:=ExtractFilePath(ReceiveLogEdit.Text); 424 OpenDialog1.InitialDir:=ExtractFilePath(SendLogEdit.Text); 525 OpenDialog1.InitialDir:=ExtractFilePath(TransmissionFileEdit.Text);
|
/dports/lang/nbc/ |
H A D | uCmdLineUtils.pas | 76 dir := ExtractFilePath(val); 86 Result := ExtractFilePath(ParamStr(0));
|
/dports/graphics/lazpaint/lazpaint-7.1.6/bgrabitmapnew/dev/releaser/ |
H A D | copyfile.pas | 76 if not DirectoryExists(ExtractFilePath(ReplaceVariables(FDestFilename))) then 77 …raise exception.Create('Target directory not found: '+ExtractFilePath(ReplaceVariables(FDestFilena…
|
/dports/editors/cudatext/CudaText-1.151.0/bgrabitmap/dev/releaser/ |
H A D | copyfile.pas | 76 if not DirectoryExists(ExtractFilePath(ReplaceVariables(FDestFilename))) then 77 …raise exception.Create('Target directory not found: '+ExtractFilePath(ReplaceVariables(FDestFilena…
|
/dports/editors/lazarus/lazarus/components/fppkg/src/ |
H A D | fppkg_initializeoptionsfrm.pas | 81 Prefix := ExtractFilePath(ExcludeTrailingPathDelimiter(Dir)); 88 Prefix := ExtractFilePath(ExcludeTrailingPathDelimiter(Prefix)); 89 Prefix := ExtractFilePath(ExcludeTrailingPathDelimiter(Prefix)); 161 ForceDirectories(ExtractFilePath(FileName));
|
/dports/editors/lazarus-qt5/lazarus/components/fppkg/src/ |
H A D | fppkg_initializeoptionsfrm.pas | 81 Prefix := ExtractFilePath(ExcludeTrailingPathDelimiter(Dir)); 88 Prefix := ExtractFilePath(ExcludeTrailingPathDelimiter(Prefix)); 89 Prefix := ExtractFilePath(ExcludeTrailingPathDelimiter(Prefix)); 161 ForceDirectories(ExtractFilePath(FileName));
|
/dports/editors/lazarus-devel/examples/icons/ |
H A D | unit1.pas | 42 …Image1.Picture.LoadFromFile(ExtractFilePath(ParamStrUTF8(0)) + 'icons' + PathDelim + 'lazarus.ico'… 48 …Image1.Picture.LoadFromFile(ExtractFilePath(ParamStrUTF8(0)) + 'icons' + PathDelim + 'lazarus.icns…
|
/dports/editors/lazarus/examples/icons/ |
H A D | unit1.pas | 42 …Image1.Picture.LoadFromFile(ExtractFilePath(ParamStrUTF8(0)) + 'icons' + PathDelim + 'lazarus.ico'… 48 …Image1.Picture.LoadFromFile(ExtractFilePath(ParamStrUTF8(0)) + 'icons' + PathDelim + 'lazarus.icns…
|