paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-21 09:59:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

removed some writelns

Browse Source 
git-svn-id: trunk@8352 -
This commit is contained in:
andrew 2005-12-21 16:11:29 +00:00
parent f8f72b6127
commit 29663822c6
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/chmhelp/packages/idehelp/lazchmhelp.pas
View File

@ -71,10 +71,7 @@ var
fPos: Integer;
begin
Result := False;
WriteLn('RAWURL=',RawUrl);
if fPos > 0 then RawUrl := Copy(RawUrl, 1, fPos-1);
WriteLn('RAWURL=',RawUrl);
fPos := Pos(':/', RawUrl);
if fPos = 0 then exit;
FileName := Copy(RawUrl, 1, fPos-1);