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

Перевод строки в 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)

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

---

← →
Anatoly Podgoretsky ©   (2004-08-09 09:11) [17]

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

---

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

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

---

← →
begin...end ©   (2004-08-11 12:55) [20]

> [19] vasko   (11.08.04 12:51)

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

---

← →
Anatoly Podgoretsky ©   (2004-08-11 13:18) [21]

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

---

← →
GrayFace ©   (2004-08-11 14:19) [22]

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]

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

---

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

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



Память: 0.49 MB
Время: 0.026 c