mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-09 08:47:59 +02:00
lazutils: doc CreateRelativePath
git-svn-id: trunk@41063 -
This commit is contained in:
parent
caef4942e5
commit
6b2480c61e
File diff suppressed because it is too large
Load Diff
@ -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 = (
|
||||
|
@ -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;
|
||||
|
Loading…
Reference in New Issue
Block a user