Головна сторінка
Top.Mail.Ru Яндекс.Метрика
Форум: "Основна";
Поточний архів: 2004.12.12;
Завантажити: [xml.tar.bz2];

Вниз

Перекодування в Unicod Знайти схожі гілки


kaktus   (2004-11-23 18:39) [0]

Було завдання перегнати текстовік в Unicode - є функція StringToWideString (...) - не виходить! Виходить що щось не зрозуміле, але ніяк не Unicode.



Суслик ©   (2004-11-23 18:41) [1]

є фукнція win api multibytetowidechar.

як юзати см. гуглом - прикладів багато.

на даному форумі періодично обговорюється.



clickmaker ©   (2004-11-23 18:43) [2]


> Kaktus (23.11.04 18: 39)
> Було завдання перегнати текстовік в Unicode - є функція
> StringToWideString (...) - не виходить

як користуєшся?



kaktus   (2004-11-23 18:54) [3]

сказати точно не погу тому як я в клубі-початківець з прогой будинку - а лупив все по helpe



demonSys   (2004-11-25 11:31) [4]

вилучено модератором
Примітка: Постав запитання у своїй гілці



kaktus   (2004-11-25 12:39) [5]

Відповідь ClickMaker-у:

procedure TForm1.Button1Click (Sender: TObject); var pwHandle: PWideChar; begin Edit1.Text: = StringToWideChar (Memo1.Text, pwHandle, Length (Memo1.Text)); end;

видає:
EAccsesViolation with message "Accses violation at adress BFF7F19D in module KERNEL32.DLL"



Anatoly Podgoretsky ©   (2004-11-25 13:35) [6]

Edit1.Text це не змінна а властивість, а того ж не Юнікод, а Ансі



kaktus   (2004-11-25 14:31) [7]

Все вийшло!!!!!!!!!!!!!!!!!!!
procedure TForm1.Button1Click (Sender: TObject); var StrSource, StrDest: string; I: Integer; Tmp: WideString; begin strSource: = Memo1.Text; Tmp: = StrSource; StrDest: = ""; for I: = 1 to Length (Tmp) do StrDest: = StrDest + "<" + IntToHex (Integer (Tmp [I]), 4) + ">"; Memo2.Text: = StrDest; end;



сторінки: 1 вся гілка

Форум: "Основна";
Поточний архів: 2004.12.12;
Завантажити: [xml.tar.bz2];

наверх









Пам'ять: 0.57 MB
Час: 0.075 c
14-1101333145
Труп Васі Доброго
2004-11-25 00:52
2004.12.12
Citrix


1-1101817874
Erik1
2004-11-30 15:31
2004.12.12
Як відправити повідомлення всім активним формам, одного класу?


14-1100881470
Дефектний
2004-11-19 19:24
2004.12.12
Як позбутися від порносайтів ?!


14-1100845548
благословити
2004-11-19 09:25
2004.12.12
Чи є в Лінукс аналоги Microsoft Project і 1C?


14-1101318065
Олег '
2004-11-24 20:41
2004.12.12
Моя робота





африкаанс албанський арабська вірменин азербайджанець баскський білоруський болгарська каталонський Китайська (спрощене письмо) Китайський традиційний) хорватський чеська данську мову нідерландський Ukranian естонець Філіппінська фінську мову французький
галісійська грузинський німецький грецький гаїтянський креольський давньоєврейську хінді угорський ісландський індонезієць ірландський італійський японський корейський латиська литовець македонець малайський мальтійський норвежець
перс полірування португальська румунський російська сербський словацький словенський іспанська суахілі шведську мову тайський турецька український урду в&#39;єтнамський валлійський ідиш бенгальський боснійський
кебуано есперанто гуджараті хауса хмонг ігбо яванський каннада кхмерская Лао латинь маорі маратхі монгольський непальська панджабі сомалійський тамільська телугу йоруба
зулуський
Англійська Французький Німецький Італійський Португальська Русский Іспанська