paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 05:49:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

pastojs: fixed IsTGUID

Browse Source 
git-svn-id: trunk@48859 -
This commit is contained in:
Mattias Gaertner 2021-03-01 21:25:46 +00:00
parent 4ed82dcc1c
commit 9e5ff2186b
1 changed files with 12 additions and 10 deletions

22
packages/pastojs/src/fppas2js.pp
View File

@ -6877,20 +6877,22 @@ function TPas2JSResolver.IsTGUID(TypeEl: TPasRecordType): boolean;
var
Members: TFPList;
El: TPasElement;
MemberIndex, i: Integer;
begin
Result:=false;
if not SameText(TypeEl.Name,'TGUID') then exit;
Members:=TypeEl.Members;
if Members.Count<4 then exit;
El:=TPasElement(Members[0]);
if not SameText(El.Name,'D1') then exit;
El:=TPasElement(Members[1]);
if not SameText(El.Name,'D2') then exit;
El:=TPasElement(Members[2]);
if not SameText(El.Name,'D3') then exit;
El:=TPasElement(Members[3]);
if not SameText(El.Name,'D4') then exit;
Result:=true;
i:=1;
for MemberIndex:=0 to Members.Count-1 do
begin
El:=TPasElement(Members[MemberIndex]);
if (El.ClassType<>TPasVariable) then continue;
if SameText(El.Name,'D'+IntToStr(i)) then
begin
if i=4 then exit(true);
inc(i);
end;
end;
end;
function TPas2JSResolver.GetAssignGUIDString(TypeEl: TPasRecordType;