Anonymous | Login | Signup for a new account | 2019-02-16 15:34 CET |
Main | My View | View Issues | Change Log | Roadmap | Docs |
Viewing Issue Simple Details [ Jump to Notes ] | [ View Advanced ] [ Issue History ] [ Print ] | ||||||
ID | Category | Severity | Reproducibility | Date Submitted | Last Update | ||
0005968 | [JEDI VCL] 00 JVCL Components | trivial | always | 2012-08-28 12:32 | 2012-09-10 14:15 | ||
Reporter | DeathMAD | View Status | public | ||||
Assigned To | AHUser | ||||||
Priority | normal | Resolution | fixed | ||||
Status | resolved | Product Version | Daily / GIT | ||||
Summary | 0005968: Error in TJvEditorStrings.InsertText Unicode related | ||||||
Description |
Adding garbage symbols in this code // line is too small -> expand it with spaces Len := Length(BegLine); if Len < X then begin SetLength(BegLine, X - 1); FillChar(BegLine[Len + 1], X - Len - 1, ' '); end; In Unicode Delphi FillChar is not correct, because addressed bytes not chars. |
||||||
Additional Information |
Solution. Replace code with this. Len := Length(BegLine); if Len < X then BegLine := StringOfChar(' ', X -1); |
||||||
Tags | No tags attached. | ||||||
Attached Files | |||||||
|
Mantis 1.1.6[^] Copyright © 2000 - 2008 Mantis Group |