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

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

Строка в строку из кодов символов [D7]

Ivanna ©   (2006-09-05 12:52:00) 

Подскажите как строку разложить на коды символов
хотела так:
for i:=1 to length(str) do begin
s:=s:+Ord(copy(str),i,1);
end;

Не получатеся из-за несоответсвия типов :(

---

Думкин   (2006-09-06 06:54:00) [1]

> Anatoly Podgoretsky ©   (05.09.06 21:08) [12]

s := s + Format('%d ',[ord(str[i])]);
;)

---

Anatoly Podgoretsky   (2006-09-05 21:08:00) [2]

s := s + IntToStr(Ord(str[i])) + ' ';

---

C@N   (2006-09-05 20:15:00) [3]

Ошибки читать надо а не телепатить )))
Бландинк0...)))

---

Думкин   (2006-09-05 13:33:00) [4]

> default ©   (05.09.06 13:30) [9]

А черт его знает, что ей(ему, емо) надо. Если уж:

> Ivanna ©   (05.09.06 13:05) [6]
>
> > cmpxchg8 ©   (05.09.06 12:54) [1]
> > 1. s:=s+Ord(str[i]);
>
>
> Спасибо. Вот где засада была :)

---

default   (2006-09-05 13:30:00) [5]

к [8]
хотя нет, всё по делу:)

---

default   (2006-09-05 13:08:00) [6]

к [5]
что же я такое пишу!?:), что значит писать на голодный желудок

---

default   (2006-09-05 13:06:00) [7]

offtopic
Ivanna ©   (05.09.06 13:05) [6]
в анкете стоит мужской пол, а в сабже "хотела так:"
это как понимать?

---

Ivanna   (2006-09-05 13:05:00) [8]

> cmpxchg8 ©   (05.09.06 12:54) [1]
> 1. s:=s+Ord(str[i]);


Спасибо. Вот где засада была :)

---

default   (2006-09-05 13:03:00) [9]

Думкин ©   (05.09.06 12:57) [3]
что-то имя переменной "s" меня смущает, типа строковая переменная это
может ей надо типа вместо #23#35#15 '233515'

---

Думкин   (2006-09-05 13:00:00) [10]

А... еще

type
   ar_ord = array of byte;
function Get_Ord_by_Str(const str : string) : ar_ord;
var i : integer;
begin
     SetLength(Result,length(str));
     for i:=1 to length(str) do Result[i-1] := ord(s[i])
end;

---

Думкин   (2006-09-05 12:57:00) [11]

Фу ты. Function конечно.

---

Думкин   (2006-09-05 12:55:00) [12]

type
    ar_ord = array of byte;
procedure Get_Ord_by_Str(str : string) : ar_ord;
var i : integer;
begin
      SetLength(Result,length(str));
      for i:=1 to length(str) do Result[i] := ord(s[i])
end;

---

cmpxchg8   (2006-09-05 12:54:00) [13]

1. s:=s+Ord(str[i]);

---

Наверх