paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 18:09:12 +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 uses
baseunix, baseunix,
Unix, Unix,
unixutil; sysutils;
Const RevString = '$Revision: 1.5 $'; Const RevString = '$Revision: 1.5 $';
NrOptions = 4; NrOptions = 4;
@ -155,17 +155,13 @@ Var
Utilities Code Utilities Code
------------------------------------------------------------------------ } ------------------------------------------------------------------------ }
Function BaseName(const s:ansistring;suf:ansistring):ansistring;
Function IntTostr (s : Longint) : String;
var temp : String;
begin begin
str(s,temp); BaseName:=extractfilename(s);
IntToStr:=Temp; if '.'+suf=extractfileext(s) then
BaseName:=changefileext(s,'');
end; end;
Procedure EmitError (Const s : String); Procedure EmitError (Const s : String);
begin begin