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

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

Перевод строки в CHAR [D7]

Страницы:   < 1 2 >

vasko ©   (2004-08-09 08:35:00) 

Хочется получить коды символов в строке но
как сделал я не работает выдает несоответствие типов
хотя (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-13 04:41:00) [1]

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

---

GrayFace   (2004-08-11 14:19:00) [2]

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 символ, то так.

---

Anatoly Podgoretsky   (2004-08-11 13:18:00) [3]

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

---

begin...end   (2004-08-11 12:55:00) [4]

> [19] vasko   (11.08.04 12:51)

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

---

vasko   (2004-08-11 12:51:00) [5]

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

---

Думкин   (2004-08-09 09:13:00) [6]

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

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

---

Anatoly Podgoretsky   (2004-08-09 09:11:00) [7]

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

---

Думкин   (2004-08-09 09:01:00) [8]

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

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

---

Sergey Kaminski   (2004-08-09 08:58:00) [9]

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

---

Sergey Kaminski   (2004-08-09 08:57:00) [10]

> Думкин ©

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

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

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

---

Думкин   (2004-08-09 08:55:00) [11]

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

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

---

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

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

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

---

Sergey Kaminski   (2004-08-09 08:53:00) [13]

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

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

---

Sergey Kaminski   (2004-08-09 08:52:00) [14]

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

---

Думкин   (2004-08-09 08:52:00) [15]

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

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

---

Sergey Kaminski   (2004-08-09 08:50:00) [16]

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

---

Sergey Kaminski   (2004-08-09 08:49:00) [17]

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

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

---

Думкин   (2004-08-09 08:47:00) [18]

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

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

---

Sergey Kaminski   (2004-08-09 08:44:00) [19]

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

---

Sergey Kaminski   (2004-08-09 08:44:00) [20]

Ошибочка-с.

нужно так

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

---

Страницы:   < 1 2 >

Наверх