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

← →
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];

?

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

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

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