equal
deleted
inserted
replaced
375 // remove chinese fonts for now |
375 // remove chinese fonts for now |
376 if (font >= CJKfnt16) or (length(s) = 0) then |
376 if (font >= CJKfnt16) or (length(s) = 0) then |
377 {$ENDIF} |
377 {$ENDIF} |
378 exit; |
378 exit; |
379 |
379 |
380 l:= Utf8ToUnicode(@tmpstr, Str2PChar(s), length(s))-1; |
380 l:= Utf8ToUnicode(@tmpstr, Str2PChar(s), min(length(tmpstr), length(s)))-1; |
381 i:= 0; |
381 i:= 0; |
382 |
382 |
383 while i < l do |
383 while i < l do |
384 begin |
384 begin |
385 u:= tmpstr[i]; |
385 u:= tmpstr[i]; |