тип TVarRec? В делфи когда то находил, а в fpc не могу найти.
function ToVarRec(const v: array of const): TVarRec; begin Result:=v[0]; end; procedure A; var us: UnicodeString; vr: TVarRec; begin vr:=ToVarRec([us]); end; Такое пойдёт?
Увы, нет. Да похоже было дело не в нем. Просто был простой вызов UnicodeFormat('XXX %s%s CCC',[uc_str1,uc_str2]). А результат был странный(XXX text1), а не (XXX test1test2 CCC). Но оказалась проблема в отсутствии #0#0 на конце uc_str1.
Обсуждают сегодня