equal
deleted
inserted
replaced
257 |
257 |
258 byte(DecodeBase64[0]):= t - 1 |
258 byte(DecodeBase64[0]):= t - 1 |
259 end; |
259 end; |
260 |
260 |
261 |
261 |
|
262 var CharArray: array[byte] of Char; |
262 function Str2PChar(const s: shortstring): PChar; |
263 function Str2PChar(const s: shortstring): PChar; |
263 const CharArray: array[byte] of Char = ''; |
|
264 begin |
264 begin |
265 CharArray:= s; |
265 CharArray:= s; |
266 CharArray[Length(s)]:= #0; |
266 CharArray[Length(s)]:= #0; |
267 Str2PChar:= @CharArray |
267 Str2PChar:= @CharArray |
268 end; |
268 end; |