pascal/synapse
1
0
Fork 0
Code Issues Releases Activity

GetTempFile - fixed Unicode Delphi

Browse Source 
git-svn-id: https://svn.code.sf.net/p/synalist/code/trunk@186 7c85be65-684b-0410-a082-b2ed4fbef004
This commit is contained in:
geby 2013-11-13 17:41:15 +00:00
parent ca3e98911d
commit 914502595d
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
synautil.pas
View File

@ -1,5 +1,5 @@
{==============================================================================| {==============================================================================|
| Project : Ararat Synapse | 004.015.005 | | Project : Ararat Synapse | 004.015.006 |
|==============================================================================| |==============================================================================|
| Content: support procedures and functions | | Content: support procedures and functions |
|==============================================================================| |==============================================================================|
@ -336,7 +336,7 @@ procedure WriteStrToStream(const Stream: TStream; Value: AnsiString);
{:Return filename of new temporary file in Dir (if empty, then default temporary {:Return filename of new temporary file in Dir (if empty, then default temporary
directory is used) and with optional filename prefix.} directory is used) and with optional filename prefix.}
function GetTempFile(const Dir, prefix: AnsiString): AnsiString; function GetTempFile(const Dir, prefix: String): String;
{:Return padded string. If length is greater, string is truncated. If length is {:Return padded string. If length is greater, string is truncated. If length is
smaller, string is padded by Pad character.} smaller, string is padded by Pad character.}
@ -1822,11 +1822,11 @@ function tempnam(const Path: PAnsiChar; const Prefix: PAnsiChar): PAnsiChar; cde
external libc name _PU + 'tempnam'; external libc name _PU + 'tempnam';
{$ENDIF} {$ENDIF}
function GetTempFile(const Dir, prefix: AnsiString): AnsiString; function GetTempFile(const Dir, prefix: String): String;
{$IFNDEF FPC} {$IFNDEF FPC}
{$IFDEF MSWINDOWS} {$IFDEF MSWINDOWS}
var var
Path: AnsiString; Path: String;
x: integer; x: integer;
{$ENDIF} {$ENDIF}
{$ENDIF} {$ENDIF}