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

codetools: test write variant

Browse Source 
git-svn-id: trunk@56172 -
This commit is contained in:
mattias 2017-10-23 13:08:49 +00:00
parent d320790ba2
commit d72b90506d
1 changed files with 25 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
components/codetools/tests/testcompreaderwriterpas.pas
View File

@ -86,6 +86,8 @@ type
function GetStringLiteral(const s: string): string;
function GetWStringLiteral(p: PWideChar; Count: integer): string;
function GetFloatLiteral(const e: Extended): string;
function GetCurrencyLiteral(const c: currency): string;
function ShortenFloat(s: string): string;
function GetEnumExpr(TypeInfo: PTypeInfo; Value: integer;
AllowOutOfRange: boolean): string;
public
@ -926,7 +928,7 @@ begin
varsingle : WriteAssign(PropName,GetFloatLiteral(VarValue.vsingle));
vardouble : WriteAssign(PropName,GetFloatLiteral(VarValue.vdouble));
vardate : WriteAssign(PropName,GetFloatLiteral(VarValue.vdate));
varcurrency : WriteAssign(PropName,GetFloatLiteral(VarValue.vcurrency));
varcurrency : WriteAssign(PropName,GetCurrencyLiteral(VarValue.vcurrency));
//varolestr : (volestr : pwidechar);
//vardispatch : (vdispatch : pointer);
//varerror : (verror : hresult);
@ -1135,10 +1137,25 @@ end;
function TCompWriterPas.GetFloatLiteral(const e: Extended): string;
var
s: String;
p, i: SizeInt;
begin
s:='';
str(e,s);
Result:=ShortenFloat(s);
end;
function TCompWriterPas.GetCurrencyLiteral(const c: currency): string;
var
s: String;
begin
s:='';
str(c,s);
Result:=ShortenFloat(s);
end;
function TCompWriterPas.ShortenFloat(s: string): string;
var
p, i: SizeInt;
begin
// remove unneeded leading 0 of exponent
p:=Pos('E',s);
if p<1 then exit;
@ -1700,6 +1717,9 @@ begin
V8:=low(int64);
V9:=true;
V10:='äöü';
V11:=single(-1.25);
V12:=double(1.5);
V13:=currency(17.0001);
end;
TestWriteDescendant('TestVariant',AComponent,nil,[
'V1:=255;',
@ -1712,6 +1732,9 @@ begin
'V8:=-9223372036854775808;',
'V9:=True;',
'V10:=''äöü'';',
'V11:=-1.25;',
'V12:=1.5;',
'V13:=1.70001E1;',
'']);
finally
AComponent.Free;