paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-16 03:20:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

jcf2: more functions

Browse Source 
git-svn-id: trunk@16960 -
This commit is contained in:
paul 2008-10-11 17:31:19 +00:00
parent 2a61b78ef3
commit 46283869bd
1 changed files with 38 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
components/jcf2/Utils/JcfUtils.pas
View File

@ -258,11 +258,27 @@ begin
end;
function BooleanToStr(B: Boolean): string;
const
BoolToStrMap: array[Boolean] of String =
(
{ false } 'False',
{ true } 'True'
);
begin
end;
function StrToBoolean(const S: string): Boolean;
var
LowerS: String;
begin
LowerS := LowerCase(S);
if (LowerS = 'false') or (LowerS = 'no') then
Result := False
else
if (LowerS = 'true') or (LowerS = 'yes') then
Result := True
else
raise EJcfConversionError.Create('Cannot convert string [' + S + '] to boolean');
end;
@ -285,15 +301,37 @@ begin
end;
function FileToString(const FileName: string): AnsiString;
var
S: TStream;
begin
S := nil;
try
S := TFileStream.Create(FileName, fmOpenRead or fmShareDenyNone);
SetLength(Result, S.Size);
S.Read(PAnsiChar(Result)^, S.Size);
finally
S.Free;
end;
end;
procedure StringToFile(const FileName: string; const Contents: AnsiString);
var
S: TStream;
begin
S := nil;
try
S := TFileStream.Create(FileName, fmCreate);
S.Write(PAnsiChar(Contents)^, Length(Contents));
finally
S.Free;
end;
end;
function StrFillChar(const C: Char; Count: Integer): string;
begin
SetLength(Result, Count);
if Count > 0 then
FillChar(Result[1], Count, C);
end;
function IntToStrZeroPad(Value, Count: Integer): AnsiString;