paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 05:36:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: added comments to URL functions

Browse Source 
git-svn-id: trunk@13485 -
This commit is contained in:
mattias 2007-12-27 18:16:50 +00:00
parent eda4c84741
commit 3cc92f7af0
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/lazhelpintf.pas
View File

@ -540,12 +540,17 @@ procedure FreeLCLHelpSystem;
procedure FreeUnusedLCLHelpSystem;
// URL functions
// used names:
// URL: Type + Path + Params e.g. http://www.freepascal.org?param
// URLType: e.g. file or http
// URLPath: URL without type and without parameters (always / as path delimiter)
// URLParams: parameters appended by ? or #
function FilenameToURL(const Filename: string): string;
function FilenameToURLPath(const Filename: string): string;
function URLPathToFilename(const URLPath: string): string;
procedure SplitURL(const URL: string; var URLType, URLPath, URLParams: string);
function CombineURL(const URLType, URLPath, URLParams: string): string;
function URLFilenameIsAbsolute(const Filename: string): boolean;
function URLFilenameIsAbsolute(const URLPath: string): boolean;
function FindURLPathStart(const URL: string): integer;
function FindURLPathEnd(const URL: string): integer;
function ChompURLParams(const URL: string): string;
@ -659,9 +664,9 @@ begin
Result:=Result+URLParams;
end;
function URLFilenameIsAbsolute(const Filename: string): boolean;
function URLFilenameIsAbsolute(const URLPath: string): boolean;
begin
Result:=FilenameIsAbsolute(SetDirSeparators(Filename));
Result:=FilenameIsAbsolute(URLPathToFilename(URLPath));
end;
function FindURLPathStart(const URL: string): integer;