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

rtl: add SetTextCodePage, GetTextCodePage functions which set/get TTextRec.CodePage field

Browse Source 
git-svn-id: trunk@19541 -
This commit is contained in:
paul 2011-10-25 02:16:34 +00:00
parent e46e2c3ebd
commit 2254dad68a
2 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/systemh.inc
View File

@ -997,6 +997,8 @@ Function SeekEOF:Boolean;
Procedure SetTextBuf(var f:Text; var Buf);[INTERNPROC:fpc_in_settextbuf_file_x];
Procedure SetTextBuf(var f:Text; var Buf; Size:SizeInt);
Procedure SetTextLineEnding(var f:Text; Ending:string);
function GetTextCodePage(var T: Text): TSystemCodePage;
procedure SetTextCodePage(var T: Text; CodePage: TSystemCodePage);
{$endif FPC_HAS_FEATURE_TEXTIO}
{****************************************************************************

16
rtl/inc/text.inc
View File

@ -441,6 +441,22 @@ Begin
TextRec(F).LineEnd:=Ending;
End;
function GetTextCodePage(var T: Text): TSystemCodePage;
begin
{$ifndef ver2_4}
GetTextCodePage:=TextRec(T).CodePage;
{$else}
GetTextCodePage:=0;
{$endif ver2_4}
end;
procedure SetTextCodePage(var T: Text; CodePage: TSystemCodePage);
begin
{$ifndef ver2_4}
TextRec(T).CodePage:=CodePage;
{$endif ver2_4}
end;
Function fpc_get_input:PText;compilerproc;
begin