Source position: lpeval.pas line 199
var _LapeSwap: lpString = 'procedure _Swap(var a, b; Size: SizeInt);' + LineEnding + 'var' + LineEnding + ' c: Pointer;' + LineEnding + 'begin' + LineEnding + ' c := GetMem(Size);' + LineEnding + ' try' + LineEnding + ' Move(a, c^, Size);' + LineEnding + ' Move(b, a, Size);' + LineEnding + ' Move(c^, b, Size);' + LineEnding + ' finally' + LineEnding + ' FreeMem(c);' + LineEnding + ' end;' + LineEnding + 'end;'; |
CT Web help |
CodeTyphon Studio |