paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-31 05:03:17 +01:00
Code Issues Packages Projects Releases Wiki Activity

turbopower_ipro: clean up

Browse Source 
git-svn-id: trunk@40247 -
This commit is contained in:
mattias 2013-02-10 13:22:08 +00:00
parent 4d6489da76
commit db946751c9
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/turbopower_ipro/ipmsg.pas
View File

@ -997,7 +997,7 @@ begin
Randomize; Randomize;
Result := '_NextPart_' + IntToHex(Trunc(Temp), 8) + '-' + Result := '_NextPart_' + IntToHex(Trunc(Temp), 8) + '-' +
IntToHex(Trunc(Frac(Temp) * 10000), 8) + '-' + IntToHex(Trunc(Frac(Temp) * 10000), 8) + '-' +
IntToHex(GetTickCount, 8) + '-' + IntToHex(Random($FFFF), 4); IntToHex(GetTickCount64, 8) + '-' + IntToHex(Random($FFFF), 4);
end; end;
{ 16-bit CRC of stream between starting and ending offset } { 16-bit CRC of stream between starting and ending offset }