Il linguaggio di programmazione Delphi
 

DbGRid e caratteri Cinesi

Sandra 29 Nov 2016 18:47
Db Fb2.5 creato come UTF8, i caratteri su un campo VarChar vengono
visualizzati corettamente (usato IBExpert per gli inserimenti) , come
anche su TLabel e TButton e Ide Delphi

Su DbGrid invece vedo caratteri che non hanno niente a che fare con
quelli presenti nel campo VarChar.
Sandra 29 Nov 2016 20:57
Il 29/11/2016 18:47, Sandra ha scritto:
>> Db Fb2.5 creato come UTF8, i caratteri su un campo VarChar vengono
>> visualizzati corettamente (usato IBExpert per gli inserimenti) , come
>> anche su TLabel e TButton e Ide Delphi
>>
>> Su DbGrid invece vedo caratteri che non hanno niente a che fare con
>> quelli presenti nel campo VarChar.

Avevo tralasciato alcune informazioni XE7 + FireDac;
ho risolto cosi' (ora visualizza corettamente caratteri cinesi e gli
altri previsti da UTF8.

Se conoscete procedure migliori o richiedenti meno risorse, suggerite.

procedure TForm1.MyChangeText(Sender: TField; var sText1: String;
DisplayText: Boolean);
begin
sText1 := UtF8ToString(FDQuery6.FieldByname('DESCRIZIONE').AsString);
end;

procedure TForm1.FDQuery6AfterOpen(DataSet: TDataSet);
begin
FDQuery6.FieldByName('DESCRIZIONE').OnGetText := MyChangeText;
end;
Sandra 30 Nov 2016 10:49
Il 29/11/2016 20:57, Sandra ha scritto:
>> [...]
>> Avevo tralasciato alcune informazioni XE7 + FireDac;
>> ho risolto cosi' (ora visualizza corettamente caratteri cinesi e gli
>> altri previsti da UTF8.
>>
settando il params CharacterSet di FDConnection = UTF8, si puo' evitare
la conversione.

sText1 := UtF8ToString(FDQuery6.FieldByname('DESCRIZIONE').AsString);

>> Se conoscete procedure migliori o richiedenti meno risorse, suggerite.
>>
>> procedure TForm1.MyChangeText(Sender: TField; var sText1: String;
>> DisplayText: Boolean);
>> begin
>> sText1 := UtF8ToString(FDQuery6.FieldByname('DESCRIZIONE').AsString);
> end;
>
> procedure TForm1.FDQuery6AfterOpen(DataSet: TDataSet);
> begin
> FDQuery6.FieldByName('DESCRIZIONE').OnGetText := MyChangeText;
> end;

per inserimento stringhe uso:

sText : UTF8String;

sText := 'テキスト'; //caratteri ******* if IsUTF8String(sText) then
...
FDQuery6.FieldByName('DESCRIZIONE').AsString := sText;

Links
Giochi online
Dizionario sinonimi
Leggi e codici
Ricette
Testi
Webmatica
Hosting gratis
   
 

Il linguaggio di programmazione Delphi | Tutti i gruppi | it.comp.lang.delphi | Notizie e discussioni delphi | Delphi Mobile | Servizio di consultazione news.