paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 23:59:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add overloaded version of AssignFile with codepage. See bug ID #34889

Browse Source 
git-svn-id: trunk@41342 -
This commit is contained in:
michael 2019-02-16 12:52:00 +00:00
parent f737521590
commit 541bf05b94
1 changed files with 29 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
rtl/objpas/objpas.pp
View File

@ -118,11 +118,15 @@ Var
{ Text file support } { Text file support }
Procedure AssignFile(out t:Text;p:pchar); Procedure AssignFile(out t:Text;p:pchar);
Procedure AssignFile(out t:Text;c:char); Procedure AssignFile(out t:Text;c:char);
Procedure AssignFile(out t:Text;p:pchar; aCodePage : TSystemCodePage);
Procedure AssignFile(out t:Text;c:char; aCodePage : TSystemCodePage);
{$ifdef FPC_HAS_FEATURE_WIDESTRINGS} {$ifdef FPC_HAS_FEATURE_WIDESTRINGS}
Procedure AssignFile(out t:Text;const Name:UnicodeString); Procedure AssignFile(out t:Text;const Name:UnicodeString);
Procedure AssignFile(out t:Text;const Name:UnicodeString; aCodePage : TSystemCodePage);
{$endif FPC_HAS_FEATURE_WIDESTRINGS} {$endif FPC_HAS_FEATURE_WIDESTRINGS}
{$ifdef FPC_HAS_FEATURE_ANSISTRINGS} {$ifdef FPC_HAS_FEATURE_ANSISTRINGS}
Procedure AssignFile(out t:Text;const Name:RawByteString); Procedure AssignFile(out t:Text;const Name:RawByteString);
Procedure AssignFile(out t:Text;const Name:RawByteString; aCodePage : TSystemCodePage);
{$endif FPC_HAS_FEATURE_ANSISTRINGS} {$endif FPC_HAS_FEATURE_ANSISTRINGS}
Procedure CloseFile(Var t:Text); Procedure CloseFile(Var t:Text);
{$endif FPC_HAS_FEATURE_TEXTIO} {$endif FPC_HAS_FEATURE_TEXTIO}
@ -215,12 +219,31 @@ begin
System.Assign (T,p); System.Assign (T,p);
end; end;
Procedure AssignFile(out t:Text;p:pchar; aCodePage : TSystemCodePage);
begin
System.Assign (T,p);
SetTextCodePage(T,aCodePage);
end;
Procedure AssignFile(out t:Text;c:char); Procedure AssignFile(out t:Text;c:char);
begin begin
System.Assign (T,c); System.Assign (T,c);
end; end;
Procedure AssignFile(out t:Text;c:char; aCodePage : TSystemCodePage);
begin
System.Assign (T,c);
SetTextCodePage(T,aCodePage);
end;
{$ifdef FPC_HAS_FEATURE_ANSISTRINGS} {$ifdef FPC_HAS_FEATURE_ANSISTRINGS}
Procedure AssignFile(out t:Text;const Name:RawBytestring; aCodePage : TSystemCodePage);
begin
System.Assign (T,Name);
SetTextCodePage(T,aCodePage);
end;
Procedure AssignFile(out t:Text;const Name:RawBytestring); Procedure AssignFile(out t:Text;const Name:RawBytestring);
begin begin
System.Assign (T,Name); System.Assign (T,Name);
@ -228,6 +251,12 @@ end;
{$endif FPC_HAS_FEATURE_ANSISTRINGS} {$endif FPC_HAS_FEATURE_ANSISTRINGS}
{$ifdef FPC_HAS_FEATURE_WIDESTRINGS} {$ifdef FPC_HAS_FEATURE_WIDESTRINGS}
Procedure AssignFile(out t:Text;const Name:UnicodeString; aCodePage : TSystemCodePage);
begin
System.Assign (T,Name);
SetTextCodePage(T,aCodePage);
end;
Procedure AssignFile(out t:Text;const Name:UnicodeString); Procedure AssignFile(out t:Text;const Name:UnicodeString);
begin begin
System.Assign (T,Name); System.Assign (T,Name);