Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.022 c