| branch | qmlfrontend |
| changeset 10430 | 899a30018ede |
| parent 10424 | 4be6cd55f1cf |
| child 10515 | 7705784902e1 |
| 10428:7c25297720f1 | 10430:899a30018ede |
|---|---|
311 DecodeBase64[0]:= char(t - 1) |
311 DecodeBase64[0]:= char(t - 1) |
312 end; |
312 end; |
313 |
313 |
314 |
314 |
315 function Str2PChar(const s: shortstring): PChar; |
315 function Str2PChar(const s: shortstring): PChar; |
316 var i :Integer ; |
316 var i: Integer; |
317 begin |
317 begin |
318 for i:= 1 to Length(s) do |
318 for i:= 1 to Length(s) do |
319 begin |
319 begin |
320 CharArray[i - 1] := s[i]; |
320 CharArray[i - 1] := s[i]; |
321 end; |
321 end; |