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: 716 | Odgovora: 4 ]

 Postavi temu Odgovori

Autor
Pretraga teme: Traži
Markiranje Štampanje RSS

gajo2
Laško

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



Profil

icon Kako da uradim Ord(WideChar)?17.10.2006. u 12:53

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?
17.10.2006. u 12:53 

Miloš Baić

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

Sajt: www.2advanced.com


Profil

icon Re: Kako da uradim Ord(WideChar)?17.10.2006. u 13:29
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.
If you go out of your mind, do it quietly, so as not to disturb those around you...
17.10.2006. u 13:29 

sasas
Saša Slavnić
looking for...
Na lepom plavom Dunavu

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



Profil

icon Re: Kako da uradim Ord(WideChar)?17.10.2006. u 15:22
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.
17.10.2006. u 15:22 

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 1103
*.adsl.sezampro.yu.



Profil

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

> 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.yu/~fangor...stions/smart-questions.sr.html
17.10.2006. u 15:28 

gajo2
Laško

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



Profil

icon Re: Kako da uradim Ord(WideChar)?17.10.2006. u 16:55
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

17.10.2006. u 16:55 

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

[ Pregleda: 716 | Odgovora: 4 ]

 Postavi temu Odgovori

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