Перевод строки в CHAR

← →
vasko (2004-08-09 08:35) [0]

Хочется получить коды символов в строке но
как сделал я не работает выдает несоответствие типов
хотя (ORD("s") hf,jnftn
var i: integer; s1: char; s: string; begin for i:=1 to Length(edit1.Text) do begin s:=copy(edit1.Text,i,1); s1:=IntTostr(ORD(s)) end; end;

← →
vasko (2004-08-09 08:36) [1]

hf,jnftn - это по руски - работает

← →
Думкин © (2004-08-09 08:40) [2]

for i:=1 to Length(edit1.Text) do begin
s1:=IntTostr(ORD(edit1.Text[i]))
end;

← →
TUser © (2004-08-09 08:43) [3]

Дык, s - этоу тебя строка. Пусть она имеет длину 1 символ, но все равно - это строка. Строки устроены совершенно по-другому и по-другому хранятся в памяти. Пиши Edit1.Text[1]

← →
Sergey Kaminski © (2004-08-09 08:44) [4]

Ошибочка-с.

нужно так

S := Edit1.Text;
for I := 1 to Length(S) do
begin
S := Edit1.Text[I];
ShowMessage (IntToStr(Ord(S[1])))
end;

← →
Sergey Kaminski © (2004-08-09 08:44) [5]

Это я Думкину :)

← →
Думкин © (2004-08-09 08:47) [6]

> [5] Sergey Kaminski © (09.08.04 08:44)

А мое не катит?

← →
Sergey Kaminski © (2004-08-09 08:49) [7]

Думкин © (09.08.04 08:47) [6]
А мое не катит?

А попробуйте-с :)

← →
Sergey Kaminski © (2004-08-09 08:50) [8]

пытаешься в Ord строку засунуть :)

← →
Думкин © (2004-08-09 08:52) [9]

> [7] Sergey Kaminski © (09.08.04 08:49)

Попробовал. А Вы?

← →
Sergey Kaminski © (2004-08-09 08:52) [10]

у меня первая строка,конечно лишняя.

← →
Sergey Kaminski © (2004-08-09 08:53) [11]

> Думкин © (09.08.04 08:52) [9]
> Попробовал. А Вы?
Разумеется.

ORD(edit1.Text[i])
Не скомпилируется, см. [8]

← →
Думкин © (2004-08-09 08:54) [12]

> [8] Sergey Kaminski © (09.08.04 08:50)

Тыкните в меня пальцем, где?

← →
Думкин © (2004-08-09 08:55) [13]

> [11] Sergey Kaminski © (09.08.04 08:53)

Каждому свое, а у меня прекрасно. Чего и вам желаю.

← →
Sergey Kaminski © (2004-08-09 08:57) [14]

> Думкин ©

Черт,черт меня. Глаза вылезли.

Приношу свои извинения.

Это из за того, что в первом посте было
s1: char;

← →
Sergey Kaminski © (2004-08-09 08:58) [15]

Еще раз, сорри.
Прямо стыдно.

← →
Думкин © (2004-08-09 09:01) [16]

> [15] Sergey Kaminski © (09.08.04 08:58)

Да, ладно. И не такое бывает.

Безполезно пытаться присваивать строку переменной типа char

> [17] Anatoly Podgoretsky © (09.08.04 09:11)
> [14] Sergey Kaminski © (09.08.04 08:57)
> Это из за того, что в первом посте было
> s1: char;

А этого, я и не заприметил. Да, тоже бывает.

← →
vasko (2004-08-11 12:51) [19]

а вообще можно перевести строку в char

> [19] vasko (11.08.04 12:51)

Тебе ж сказали ужо.

vasko (11.08.04 12:51) [19]
Нельзя по длине не совпалают

Sergey Kaminski © (09.08.04 8:44) [4]
Криво-с.

нужно так

S := Edit1.Text; for I := 1 to Length(S) do begin ShowMessage(IntToStr(Ord(S[I]))) end;

vasko (11.08.04 12:51) [19]
s[1] - первый char строки. Если в строке 1 символ, то так.

← →
vasko (2004-08-13 04:41) [23]

все я понял, спасибо

Перевод строки в CHAR Найти похожие ветки