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

← →
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]
хотя нет, всё по делу:)

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

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

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

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