paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 03:39:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* remove the use of unixutils and deprecated functions in it.

Browse Source 
git-svn-id: trunk@21331 -
This commit is contained in:
marco 2012-05-19 10:37:05 +00:00
parent 9e51b0837c
commit 117c437e94
1 changed files with 5 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
packages/xforms/src/fd2pascal.pp
View File

@ -23,7 +23,7 @@ Program fd2pascal;
uses
baseunix,
Unix,
unixutil;
sysutils;
Const RevString = '$Revision: 1.5 $';
NrOptions = 4;
@ -155,17 +155,13 @@ Var
Utilities Code
------------------------------------------------------------------------ }
Function IntTostr (s : Longint) : String;
var temp : String;
Function BaseName(const s:ansistring;suf:ansistring):ansistring;
begin
str(s,temp);
IntToStr:=Temp;
BaseName:=extractfilename(s);
if '.'+suf=extractfileext(s) then
BaseName:=changefileext(s,'');
end;
Procedure EmitError (Const s : String);
begin