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

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

← →
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?

---

← →
Moroz ©   (2004-04-08 23:50) [13]

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

---

← →
Yanis ©   (2004-04-08 23:53) [14]

Это вопрос?

---

← →
Moroz ©   (2004-04-08 23:55) [15]

Да.

---

← →
Moroz ©   (2004-04-09 00:10) [16]

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

---

← →
Yanis ©   (2004-04-09 00:21) [17]

Мож я не доканца втыкнул но вроде ты этого просишь то?

Memo1.Lines.Add("Char to byte: "+IntToStr(ord("f")));
Memo1.Lines.Add( "Byte to char:"+chr(102));


---

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

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



Память: 0.48 MB
Время: 0.023 c