Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Kako da uradim Ord(WideChar)?

[es] :: Pascal / Delphi / Kylix :: Kako da uradim Ord(WideChar)?

[ Pregleda: 3024 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Autor
Pretraga teme: Traži
Markiranje Štampanje RSS

gajo2
Budapest

Član broj: 62614
Poruke: 518
*.ptt.yu.

Sajt: b.flyingoranges.com


+117 Profil

icon Kako da uradim Ord(WideChar)?17.10.2006. u 12:53 - pre 213 meseci
Pozdrav,

Koristim Delphi 5 i TNT komponente za Unicode. Trenutno radim neke konverzije sa WideStringovima, tako da uzmem svaki karakter (WideChar) i onda treba da proverim njegov broj. Medjutim Ord(WideChar) ne radi, jer verovatno Ord ne podrzava Unicode karaktere, pa uvek dekoduje ? umesto slova.

Jel zna neko kako da uzmem broj od WideChar-a? Jel postoji nesto kao WideOrd funkcija?
 
Odgovor na temu

Miloš Baić
Miloš Baić
ERP (Dynamics NAV) programer
Beograd

Član broj: 72468
Poruke: 1155
*.kalik.info.



Profil

icon Re: Kako da uradim Ord(WideChar)?17.10.2006. u 13:29 - pre 213 meseci
Pozdrav,

imaš u Help - u nešto o tome...
Citat:

Converts a WideString value to a string of 4-byte Unicode characters.
Delphi syntax:

function WideStringToUCS4String(const S: WideString): UCS4String;

C++ syntax:

extern PACKAGE UCS4String __fastcall WideStringToUCS4String(const WideString S);

Description

Call WideStringToUCS4String to convert a WideString value to a string of UCS4 (4-byte Unicode) characters.
UCS4 strings are used by some Linux operating system calls.
Someone's sitting in the shade today because someone planted a tree a long time ago.
 
Odgovor na temu

sasas
Saša Slavnić
radim za neke švabe

Član broj: 35478
Poruke: 617
*.zaslon-telecom.si.



Profil

icon Re: Kako da uradim Ord(WideChar)?17.10.2006. u 15:22 - pre 213 meseci
Mozda ti posao odradi ovo:

Code:

program aaa;
{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  s: WideChar;
  w: word;
begin
  s := WideChar(92);
  writeln(s);
  w := word(s);
  writeln(w);
  readln;
end.


ss.
When something is hard to do, then it's not worth doing.
 
Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739



+92 Profil

icon Re: Kako da uradim Ord(WideChar)?17.10.2006. u 15:28 - pre 213 meseci

> Koristim Delphi 5 i TNT komponente za Unicode. Trenutno radim neke konverzije sa WideStringovima, tako da uzmem svaki karakter (WideChar) i onda treba da
> proverim njegov broj. Medjutim Ord(WideChar) ne radi, jer verovatno Ord ne podrzava Unicode karaktere, pa uvek dekoduje ? umesto slova.

Negde grešiš, evo jednostavnog primera.

procedure TForm1.Button1Click(Sender: TObject);
var
a: WideString;
begin
A := #6512;
Caption := IntToStr(Ord(a[1]));
end;
Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html
 
Odgovor na temu

gajo2
Budapest

Član broj: 62614
Poruke: 518
*.ptt.yu.

Sajt: b.flyingoranges.com


+117 Profil

icon Re: Kako da uradim Ord(WideChar)?17.10.2006. u 16:55 - pre 213 meseci
Jeste, stvarno je bila greska.
Prvo to sto AnsiLowerCase i Trunc pretvaraju Unicode slova u ?????. Cudi me da je to slucaj sa AnsiLowerCase-om, posto ima ono Ansi-, ali eto.

Drugo je sto sam hteo da napravim beskonacnu petlju sa
Code:
repeat
until true;

A zapravo treba
Code:
repeat
until false;

Dva sata sam se mucio dok nisam ovo primetio

 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Kako da uradim Ord(WideChar)?

[ Pregleda: 3024 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.