lazutils: doc CreateRelativePath

git-svn-id: trunk@41063 -
This commit is contained in:
mattias 2013-05-08 01:08:04 +00:00
parent caef4942e5
commit 6b2480c61e
3 changed files with 168 additions and 161 deletions

File diff suppressed because it is too large Load Diff

View File

@ -64,6 +64,7 @@ type
can be automatically opened. The list is checked by the IDE from
time to time and missing packages are first marked and after several
months deleted from the list.
Relative files are expanded with the Lazarus directory.
}
TPkgLinkOrigin = (

View File

@ -1,4 +1,4 @@
unit testfileproc;
unit TestFileProc;
{$mode objfpc}{$H+}
@ -48,6 +48,7 @@ begin
DoTest('c:\LazarusDir\..\dir\','c:\dir\');
{$endif}
DoTest('$(LazarusDir)\..\dir\','$(LazarusDir)\..\dir\');
DoTest(' a ','a');
end;
procedure TTestFileProc.TestCreateRelativePath;