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

Вниз

Как преобразовать Символ (String) в Сhar   Найти похожие ветки 

 
AlexVA   (2003-10-07 11:53) [0]

есть символ, мне нужно преобразовать его в Char - стандартной функции в Делфи я не нашел


 
PVOzerski ©   (2003-10-07 11:55) [1]

Взять по индексу, подобно элементу массива:
var s:string; c:char;n:integer;
...
c:=s[n];


 
ZEE ©   (2003-10-07 11:56) [2]

String - это не символ, а строка состоящая из символов - поэтому
var ch:Char;
s:string;
...
s:="abcde";
ch:=s[3]; // в ch теперь находится "с" - третий символ из строки


 
User_OKA   (2003-10-07 11:57) [3]

char(символ)


 
Palladin ©   (2003-10-07 11:59) [4]

символ(char)


 
AlexVA   (2003-10-07 12:08) [5]

это я понял, а вот если мне нада в едите перехватить нажатую клавишу, и перекодировать Виндовый символ в ее в ДОС-аналог, я пытаю использовать OnKeyPress - итак нажатая клавиша - это значение key, нада использовать что то на подобе function WinToDos(key):string, как теперь присвоить key - полученное значение?


 
Verg ©   (2003-10-07 12:12) [6]

CharToOem


 
AlexVA   (2003-10-07 12:14) [7]

спасибо всем!!
задача кажется решена, во истину народные мудрости
Утро вечера мудренее, и Одна голова хорошо, а много лучше
:)))))))))))))


 
PVOzerski ©   (2003-10-07 12:17) [8]

Дык вроде здесь логичнее function WinToDos(key:char):char . Причем реализовать можно так:

{$J+}
function function WinToDos(key:char):char;
const
ss:array[0..1]of char=(#0,#0);
begin
ss[0]:=key;
CharToOem(@ss,@ss);
Result:=ss[0];
end;



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

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

Наверх




Память: 0.48 MB
Время: 0.015 c
14-51516
Palladin
2003-09-25 16:21
2003.10.16
Вакансии и в целом...


14-51486
wl
2003-09-28 21:30
2003.10.16
где лежат клиенты форумов?


14-51505
zetovich
2003-09-27 22:11
2003.10.16
Уважаемые непойму что случилось с моим компом...


1-51284
NewD
2003-10-06 11:14
2003.10.16
Не работает Web Server Application


14-51511
Zevsus
2003-09-24 13:37
2003.10.16
быстро сменить рабочую группу и ip адрес