|
|
| Тема |
 VCL'n'Unicode - da salushun |
|
| Автор |
Wise Guy (да бе умен...) |
|
| Публикувано | 18.04.02 00:26 |
|
|
|
Ami ako ne znaete VCL-a na Delphi e boza i ne moje da pokazva Unicode. Tova znachi che <<po princip>> ne e napraven da pokazva kakuvto i da e ezik (kirilica, arabski) pod NT/2000/XP, s izkliuchenie na angliiski. Vse pak se poqvi svetlina v kraq na tunela. Edin chovek se setil da napravi VCL deto poddurja Unicode:
Shte vidite che vse oshte componentite sa malko, no sa osnovnite. Instalirate gi i gi polzvaite, ako iskate vashata programa da nqma nikoga problemi s kirilica pod NT-tata. Ako iskate da rabotite s ANSI text i samo da vizualzirate Unicode (kakto men) togava shte trqbva da izvurshvate razni convertiraniq, koito sa zastupeni v JCLUnicode (Jedi Project maina). Eto malko primeri. Smqna na tekst na TTNTEdit:
edtSome.Text := StringToWidestringEx('днес на кино', 1251);
Za da zaredite ANSI list vuv TNTListBox (ListBox, ama s podrujka na Unicode) trqbva da napravite slednoto:
var
Data: TStringList;
ii: Integer;
begin
Data := TStringList.Create;
try
Data.LoadFromFile('c:\somefile.txt');
TntListBox1.Items.BeginUpdate;
for ii := 0 to Data.Count - 1 do
TntListBox1.Items.Add(StringToWidestringEx(Data[ii], 1251));
TntListBox1.Items.EndUpdate;
finally
Data.Free;
end;
end;
Kakto vijdate ima vse oshte nakoi nedoopraveni raboti, naprimer tova konvertirane, no Mike Lische (tozi deto se zanimava s proekta) kaza che shte se zanimae po natatuk. Mislq da prerabotq malko tozi tekst, da zaprilicha na statiika i da go sloja v delphians.net
by Wise Guy
| |
| |
| 
|
|
