paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 09:49:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

Added (empty) format function

Browse Source
This commit is contained in:
michael 1998-10-01 16:05:37 +00:00
parent d9da4958c1
commit b17c2a5999
1 changed files with 19 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
rtl/objpas/sysstr.inc
View File

@ -406,8 +406,8 @@ end ;
function StrToInt(const S: string): integer; function StrToInt(const S: string): integer;
var Error: word; var Error: word;
begin begin
Val(S, result, Error); Val(S, result, Error);
// if Error <> 0 then raise EConvertError.create(s + ' is not a valid integer'); if Error <> 0 then raise EConvertError.create(s + ' is not a valid integer');
end ; end ;
{ StrToIntDef converts the string S to an integer value, { StrToIntDef converts the string S to an integer value,
@ -428,11 +428,17 @@ end ;
{ FmtLoadStr returns the string resource Ident and formats it accordingly } { FmtLoadStr returns the string resource Ident and formats it accordingly }
{
function FmtLoadStr(Ident: integer; const Args: array of const): string; function FmtLoadStr(Ident: integer; const Args: array of const): string;
begin begin
end ; end;
}
Function Format (Const Fmt : String; Const Args: Array of const) : string;
begin
end;
{==============================================================================} {==============================================================================}
{ extra functions } { extra functions }
@ -628,7 +634,10 @@ end ;
{ {
$Log$ $Log$
Revision 1.4 1998-09-17 12:39:52 michael Revision 1.5 1998-10-01 16:05:37 michael
Added (empty) format function
Revision 1.4 1998/09/17 12:39:52 michael
+ Further fixes from GertJan Schouten + Further fixes from GertJan Schouten
Revision 1.3 1998/09/16 14:34:37 pierre Revision 1.3 1998/09/16 14:34:37 pierre
@ -639,7 +648,10 @@ end ;
Update from gertjan Schouten, plus small fix for linux Update from gertjan Schouten, plus small fix for linux
$Log$ $Log$
Revision 1.4 1998-09-17 12:39:52 michael Revision 1.5 1998-10-01 16:05:37 michael
Added (empty) format function
Revision 1.4 1998/09/17 12:39:52 michael
+ Further fixes from GertJan Schouten + Further fixes from GertJan Schouten
Revision 1.1 1998/04/10 15:17:46 michael Revision 1.1 1998/04/10 15:17:46 michael