Home
last modified time | relevance | path

Searched refs:ExtractFilePath (Results 1 – 25 of 1127) sorted by relevance

12345678910>>...46

/dports/lang/fpc-source/fpc-3.2.2/tests/test/units/sysutils/
H A Dtfilename.pp25 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 Dtw10717.pp19 '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 Dtw24915.pp16 t:=test(ExtractFilePath(path), ExtractFilePath(path));
/dports/editors/lazarus/lazarus/components/jcf2/Utils/
H A DJcfHelp.pas81 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 DJcfHelp.pas81 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 Dfpttf_test.pas223 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 Dfpttf_test.pas223 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 Dunit1.pas88 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 Dunit1.pas88 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 Dunit1.pas88 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 Dunit1.pas88 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 Dopkman_repositorydetailsfrm.pas95 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 Dopkman_repositorydetailsfrm.pas95 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 Dopkman_repositorydetailsfrm.pas95 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 Dopkman_repositorydetailsfrm.pas95 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 Damigautils.pas38 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 Dmain.pas246 …(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 Dconfig.pas143 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 DuCmdLineUtils.pas76 dir := ExtractFilePath(val);
86 Result := ExtractFilePath(ParamStr(0));
/dports/graphics/lazpaint/lazpaint-7.1.6/bgrabitmapnew/dev/releaser/
H A Dcopyfile.pas76 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 Dcopyfile.pas76 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 Dfppkg_initializeoptionsfrm.pas81 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 Dfppkg_initializeoptionsfrm.pas81 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 Dunit1.pas42 …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 Dunit1.pas42 …Image1.Picture.LoadFromFile(ExtractFilePath(ParamStrUTF8(0)) + 'icons' + PathDelim + 'lazarus.ico'…
48 …Image1.Picture.LoadFromFile(ExtractFilePath(ParamStrUTF8(0)) + 'icons' + PathDelim + 'lazarus.icns…

12345678910>>...46