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

Вниз

Подскажите мастера, как получить код символа   Найти похожие ветки 

 
Aleks ©   (2005-11-30 00:57) [0]

Подскажите мастера, как получить код символа, прибавить к ней некоторое число, перевести опять в символ.
Мне надо:
  w:=2;
  For i:=0 to length (Edit1.Text)-1 do
  Begin
     s:=Copy(Edit1.Text,i+1,1);
     
      v:=код символа ???????????
      s:= результат( v+w) перевести в символ ;

      edit2.Text:=edit2.Text+s:
     
  End;


 
Virgo_Style ©   (2005-11-30 01:03) [1]

ord, chr

или приведение - byte(), char()


 
Aleks ©   (2005-11-30 01:27) [2]

Если можно по подробней
s:String;
C: char;
.......
      s:=Copy(Edit1.Text,i+1,1);

как передать в

C :=S ; ??????

B := ord(C);


 
Virgo_Style ©   (2005-11-30 02:16) [3]

s := Edit1.Text;
c := s[i];


?


 
Юрий Зотов ©   (2005-11-30 06:36) [4]

> Aleks ©   (30.11.05 00:57)

var
 C: char;

for i := 1 to Length(Edit1.Text) do
begin
 C := Char(Byte(Edit1.Text[i]) + 2); // И больше ничего не нужно.
 ...
end;


 
Aleks ©   (2005-11-30 13:26) [5]

Спасибо всем....



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

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

Наверх




Память: 0.47 MB
Время: 0.052 c
14-1133126705
ПЕС
2005-11-28 00:25
2005.12.18
Подскажите компонент


1-1131621016
Esenin
2005-11-10 14:10
2005.12.18
StrToUTF8 и региональные установки


2-1133309980
Toxa_ua
2005-11-30 03:19
2005.12.18
OpenDialog -->†


4-1128592123
Windows1
2005-10-06 13:48
2005.12.18
фокус на кнопке+нажать ее Enter^ом


9-1121867498
Trof
2005-07-20 17:51
2005.12.18
Оружие и smd в glscene