| Новости | Поиск | 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;


---

TUser   (2004-08-09 08:43:00) [21]

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

---

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

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

---

vasko   (2004-08-09 08:36:00) [23]

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

---

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

Наверх