Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.08.15;
Скачать: CL | DM;

Вниз

unicode charset   Найти похожие ветки 

 
Johnny Raw ©   (2004-07-25 16:30) [0]

Здрасте, кто-нить как в мемо загрузить текстовый файл в unicode кодировке?


 
Anatoly Podgoretsky ©   (2004-07-25 17:04) [1]

А смысл, TMemo юникод не поддерживает


 
Johnny Raw ©   (2004-07-25 17:26) [2]

Да мне собственно мемо и не нужно, но как я посмотрю и то что мне нужно(StringGrid и ListBox)тоже его не поддерживают. А есть что нибудь что юникод поддерживает?


 
Anatoly Podgoretsky ©   (2004-07-25 18:52) [3]

Сказу больше VCL юникод не поддерживает


 
Piter ©   (2004-07-25 18:56) [4]

Да, ни один контрол VCL не поддерживает unicode - ищи сторонник компоненты-контролы или перед загрузкой конвертируй unicode в ANSI с учетом некой кодовой страницы (русской, если текст русский или дефолтной юзерской)


 
wnew ©   (2004-07-25 19:06) [5]

RichEdit  и TLabel соображают в UNICODE.


 
Johnny Raw ©   (2004-07-26 18:59) [6]

а как можно это конвертировать? мне нужен русский и немецкий алфавит.


 
Piter ©   (2004-07-27 00:55) [7]

wnew ©   (25.07.04 19:06) [5]
RichEdit  и TLabel соображают в UNICODE


правда? Первый раз слышу.. а что, если написать Label1.Caption := "уникод строка" - то все отобразится корректно?!


 
Johnny Raw ©   (2004-07-28 18:30) [8]

Так все-таки, как мне в грид юникод строку запихать


 
olookin ©   (2004-07-28 20:43) [9]

[1] Anatoly Podgoretsky ©   (25.07.04 17:04)
Как-то добрые дяди (или тети) дали код на вставку из буфера в формате Unicode. Вставку в TMemo конечно. Уверены что TMemo не поддерживает?

procedure PutStringIntoClipBoard(const Str: WideString);
var Size: Integer;
   Data: THandle;
   DataPtr: Pointer;
begin
 Size:=Length(Str);
 if Size=0 then exit;
 if not IsClipboardFormatAvailable(CF_UNICODETEXT) then
 Clipboard.AsText:=Str else begin Size:=Size shl 1 + 2;
 Data:=GlobalAlloc(GMEM_MOVEABLE+GMEM_DDESHARE,Size);
 try DataPtr:=GlobalLock(Data);
 try Move(Pointer(Str)^,DataPtr^,Size);
 Clipboard.SetAsHandle(CF_UNICODETEXT,Data);
 finally GlobalUnlock(Data); end;
 except GlobalFree(Data); raise; end; end;
end;

function GetStringFromClipboard: WideString;
var Data: THandle;
begin
 if not IsClipboardFormatAvailable(CF_UNICODETEXT) then
 Result:=Clipboard.AsText else begin Clipboard.Open;
 Data:=GetClipboardData(CF_UNICODETEXT);
 try if Data<>0 then Result:=PWideChar(GlobalLock(Data)) else
 Result:=""; finally
 if Data <> 0 then GlobalUnlock(Data); Clipboard.Close; end; end;
end;



Страницы: 1 вся ветка

Текущий архив: 2004.08.15;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.033 c
3-1090365380
maniac
2004-07-21 03:16
2004.08.15
При Update добавляется новая запись


1-1091009955
Slaga
2004-07-28 14:19
2004.08.15
Как передать параметр в CMD


14-1091027934
Knight
2004-07-28 19:18
2004.08.15
Чё-то меня последнее время всё больше тянет...


1-1091535017
Dysan
2004-08-03 16:10
2004.08.15
скрыть окно консольной программы


14-1090931482
CHES
2004-07-27 16:31
2004.08.15
Эксперт для форматирования исходного кода





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский