| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Подскажите мастера, как получить код символа [D7, XP]

Aleks ©   (2005-11-30 00:57:00) 

Подскажите мастера, как получить код символа, прибавить к ней некоторое число, перевести опять в символ.
Мне надо:
  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;

---

Aleks   (2005-11-30 13:26:00) [1]

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

---

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

> 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;

---

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

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

?

---

Aleks   (2005-11-30 01:27:00) [4]

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

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

C :=S ; ??????

B := ord(C);

---

Virgo_Style   (2005-11-30 01:03:00) [5]

ord, chr

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

---

Наверх