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

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



Память: 0.46 MB
Время: 0.042 c