Kako inače prikazuješ/koristiš ćirilicu?
Trebalo bi da imaš neko trajnije rešenje ili ako nećeš da imaš onda moraš konvertovati ćirilicu u latinicu pa tako prikazati.
Evo jednog jednostavnog rešenja za prikazati ćirilicu:
Code:
...neki klik
var
S: AnsiString; // UTF8String;
function WStrToAStr(const s: WideString; const CodePage: Word = CP_ACP): AnsiString;
var
InputLength, OutputLength: Integer;
begin
InputLength := Length(s);
OutputLength := WideCharToMultiByte(CodePage, 0, PWideChar(s), InputLength, nil, 0, nil, nil);
SetLength(Result, OutputLength);
WideCharToMultiByte(CodePage, 0, PWideChar(s), InputLength, PAnsiChar(Result), OutputLength, nil, nil);
end;
begin
S := #209#130#208#186#208#176#209#128#208#176#208#189#208#190#208#178#208#184#209#134;
//S je ut8 cirilicni string
label1.Font.Charset := 204; //RUSSIAN_CHARSET iliti Cyrillic
label1.Caption := WStrToAStr(Utf8Decode(S), 1251); //uf8->unicod->ansiCP1251 CP1251 - Cyrillic
end;
Može i da se prethodno izabere ćirlični font za label1.
Umesto S iz primera moze da bude ime ili prezime, šta je već tu ćirilično.