Строки

← →
Moroz © (2004-04-08 22:13) [0]

Подскажите, как можно последовательно, по символам, прочитать строку, чтобы символы перевести в код ASCII?

← →
panov © (2004-04-08 22:16) [1]

А почему посимвольно?

function Dos2Win(const aStr: String): String;
begin
Result := aStr;
if Result <> "" then
OemToChar(PChar(Result),PChar(Result));
end;

А посимвольно -

for i := 1 to Length(Str) do
begin
...
Str[i]
...
end;

← →
Moroz © (2004-04-08 22:22) [2]

Мне надо отдельно каждый символ перевести в код ASCII, чтобы потом этот код зашифровать и обратно перевести в симвлы, короче зашифровать строку.

← →
Anatoly Podgoretsky © (2004-04-08 22:28) [3]

ORD

← →
YurikGl © (2004-04-08 22:28) [4]

a:byte;

a:=byte(str[i])

← →
Anatoly Podgoretsky © (2004-04-08 22:41) [5]

А если будет WideString, ORD будет работать правильно, а байт нет

← →
Yanis © (2004-04-08 23:11) [6]

Блин, ты по символам перебрать неможешь???
procedure pr(Str:String); begin for i := 0 to Length(Str)-1 do Memo1.Lines.Add(Str[i]); end;
Этот код разберёт строку Str по символам, думаю это не сложно :)

← →
Moroz © (2004-04-08 23:24) [7]

Я уже разобрался с перебором строки, теперь осталось преобразовать тип Char в Byte и наоборот, но я не знаю как, подскажите пожалуйста.

← →
Yanis © (2004-04-08 23:39) [8]

Chr?

← →
Yanis © (2004-04-08 23:41) [9]

[8] не в тему :)
Мож ord ?????

← →
Moroz © (2004-04-08 23:46) [10]

Да

← →
Yanis © (2004-04-08 23:47) [11]

Ты так ответил как будто знал !? :)

← →
Moroz © (2004-04-08 23:49) [12]

это был ответ на вопрос: Chr?

Короче, мне надо преревести символ в код ASCII, это я сделал, теперь мне надо переменную типа Char (код ASCII) преобразовать в тип Byte, т.к алгоритм шифрования работает только с этим типом, а потом из Byte обратно в Char.

Это вопрос?

Да.

Ну пожскажите же, как переменную типа Char (код ASCII) преобразовать в тип Byte и на оборо?

Мож я не доканца втыкнул но вроде ты этого просишь то?
Memo1.Lines.Add("Char to byte: "+IntToStr(ord("f"))); Memo1.Lines.Add( "Byte to char:"+chr(102));

Строки Найти похожие ветки