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

* removed warnings

Browse Source
This commit is contained in:
peter 1998-11-05 14:20:36 +00:00
parent 3037445491
commit c21642499c
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/inc/astrings.pp
View File

@ -567,7 +567,7 @@ begin
Val(SS,SI,Code);
end;
{
(*
Procedure Str (Const R : Real;Len,fr : Longint; Const S : AnsiString);
Var SS : ShortString;
@ -644,7 +644,7 @@ Procedure Str (Var SI : ShortInt; Len : Longint; Var S : AnsiString);
begin
end;
}
*)
Procedure Delete (Var S : AnsiString; Index,Size: Longint);
@ -693,7 +693,10 @@ end;
{
$Log$
Revision 1.29 1998-11-04 20:34:04 michael
Revision 1.30 1998-11-05 14:20:36 peter
* removed warnings
Revision 1.29 1998/11/04 20:34:04 michael
+ Removed ifdef useansistrings
Revision 1.28 1998/11/04 15:39:44 michael