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

Строка в строку из кодов символов   Найти похожие ветки 

← →
Ivanna ©   (2006-09-05 12:52) [0]

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

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

---

← →
cmpxchg8 ©   (2006-09-05 12:54) [1]

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

---

← →
Думкин ©   (2006-09-05 12:55) [2]

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;

---

← →
Думкин ©   (2006-09-05 12:57) [3]

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

---

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

А... еще

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;

---

← →
default ©   (2006-09-05 13:03) [5]

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

---

← →
Ivanna ©   (2006-09-05 13:05) [6]

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


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

---

← →
default ©   (2006-09-05 13:06) [7]

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

---

← →
default ©   (2006-09-05 13:08) [8]

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

---

← →
default ©   (2006-09-05 13:30) [9]

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

---

← →
Думкин ©   (2006-09-05 13:33) [10]

> 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]);
>
>
> Спасибо. Вот где засада была :)

---

← →
C@N ©   (2006-09-05 20:15) [11]

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

---

← →
Anatoly Podgoretsky ©   (2006-09-05 21:08) [12]

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

---

← →
Думкин ©   (2006-09-06 06:54) [13]

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

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

---

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

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



Память: 0.47 MB
Время: 0.027 c