paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 05:29:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

* file loading problem fixed

Browse Source
This commit is contained in:
pierre 2000-03-23 22:22:25 +00:00
parent 578465bef0
commit 5f3743f8fd
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/text/fpviews.pas
View File

@ -2800,8 +2800,11 @@ begin
else
begin
FSplit(FileName,D,N,E);
if D<>'' then
W:=TryToOpen(D);
DrStr:=GetSourceDirectories;
While pos(';',DrStr)>0 do
if not assigned(W) then
While pos(';',DrStr)>0 do
Begin
W:=TryToOpen(Copy(DrStr,1,pos(';',DrStr)-1));
if assigned(W) then
@ -3305,7 +3308,10 @@ end;
END.
{
$Log$
Revision 1.65 2000-03-21 23:25:16 pierre
Revision 1.66 2000-03-23 22:22:25 pierre
* file loading problem fixed
Revision 1.65 2000/03/21 23:25:16 pierre
adapted to wcedit addition
Revision 1.64 2000/03/14 13:59:41 pierre