paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 16:30:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix some warnings

Browse Source 
git-svn-id: trunk@30830 -
This commit is contained in:
michael 2015-05-09 12:42:22 +00:00
parent aecd7c7649
commit 331f4eaff3
1 changed files with 15 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
packages/googleapi/src/googlediscoverytopas.pp
View File

@ -490,8 +490,16 @@ begin
end;
function TTypeDefs.Find(ATypename: String): TTypeDef;
begin
Var
I : Integer;
begin
I:=IndexOf(ATypeName);
if (I=-1) then
Result:=Nil
else
Result:=GetD(I);
end;
function TTypeDefs.AddTypeDef(ADataType: TDataType; APascalName: String;
@ -639,7 +647,7 @@ end;
procedure TDiscoveryJSONToPas.CollectType(S: TSchema; NamePrefix: String; IsTopLevel : Boolean);
Var
CN,TCN,AE : String;
AE : String;
Dt : TDataType;
BaseArrayElement : Boolean;
@ -790,12 +798,12 @@ begin
else if Result='number' then
begin
if (AFormat='double') then
Result:='double'
else
Result:='integer'
Result:='double'
else
Result:='integer'
end
else if Result='string' then
if Aformat='date-time' then
if Aformat='date-time' then
Result:='TDatetime'
else if Aformat='date' then
Result:='TDate'
@ -1030,7 +1038,6 @@ procedure TDiscoveryJSONToPas.CreateInterface;
end;
Var
I : Integer;
S : TTypeDef;
R : TSchema;
@ -1057,7 +1064,6 @@ end;
procedure TDiscoveryJSONToPas.CreateImplementation;
Var
I : Integer;
R : TSchema;
S : TTypeDef;
begin
@ -1538,11 +1544,9 @@ procedure TDiscoveryJSONToPas.CreateAPIClassImplementation;
end;
Var
CN,SCN : String;
CN : String;
S : TSchema;
I : Integer;
L : TStrings;
TD : TTypeDef;
begin
CN:=GetAPIClassName;
@ -1653,8 +1657,6 @@ end;
procedure TDiscoveryJSONToPas.Execute;
Var
L : TStringList;
begin
Source.Clear;
Addln('unit '+outputunitname+';');