moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2025-01-07 11:48:04 -05:00
Code Issues Releases Wiki Activity

Lape-wrappers: Fix by nielsie95.

Browse Source
This commit is contained in:
Merlijn Wajer 2011-08-03 20:30:11 +02:00
parent 9deb9a1b67
commit a143016beb
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Projects/lape-wrappers/main.pas
View File

@ -158,9 +158,9 @@ begin
for iii := 0 to High(c) do for iii := 0 to High(c) do
begin begin
if (iii> 0) then if (iii+ii> 0) then
s := s+', '; s := s+', ';
s := s+PtrName(d.ShortText)+'(Params^['+IntToStr(iii)+'])^'; s := s+PtrName(d.ShortText)+'(Params^['+IntToStr(iii+ii)+'])^';
end; end;
end; end;