VPF::как преобразовать строку в число

Song

Дата 30.7.2005, 22:31 (ссылка)

(нет голосов)

Загрузка ...

Sysman.ru

Профиль
Группа: Участник
Сообщений: 1095
Регистрация: 2.6.2002

Репутация: 2
Всего: 4

а... не увидел "алгоритм шифрования". Во млин привычка читать по диоганали.

--------------------

Прежде чем сказать "Невозможно", подумай, прав ли ты

Clicker

Дата 22.8.2005, 11:32 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 16.8.2005

Репутация: нет
Всего: нет

Не уходя от темы, а как преобразовать строку "126.5" в число "162.5"

Dimannn

Дата 22.8.2005, 20:39 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 318
Регистрация: 14.4.2005
Где: Владимир

Репутация: нет
Всего: 1

Цитата(TP @ 30.7.2005, 22:22)

А можно в соответствии с алфавитом кодировать, т.е. а=01 б=02 в=03..... A=11 Б=12 В=13 .... То же самое для латиницы.

Смысла нет:
а=Ord(а)-(позиция первой буквы в Таблице Символов).

б=Ord(б)-(позиция первой буквы в Таблице Символов).

--------------------

Хотите быстро и без проблем опубликовать вашу программу в сети за 5 минут?
Тогда потратьте пару минут чтобы посмотреть, что предлагает OpenProject.org.ru

Даркен

Дата 24.8.2005, 07:57 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

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

ShadeSt

Дата 24.8.2005, 08:51 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 256
Регистрация: 9.8.2005
Где: Россия, г. Ставро поль

Репутация: нет
Всего: 7

А для чего это надо, если не секрет?
Теоритически проходить по строке, брать код каждого символа и переводить из десятичной в двоичную, при этом записывая в другую строку, полученная строка будет в 8 раз длиннее, если только не проитись по ней и там где часто встречаются нули или единицы записать что нить типа N1 или N0, где N - количество повторений

--------------------

ShadeSt

Дата 24.8.2005, 09:35 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 256
Регистрация: 9.8.2005
Где: Россия, г. Ставро поль

Репутация: нет
Всего: 7

Я полагаю что так, но самому интересно как еще можно..

Код


function DecToBin(Const aDecNum : Integer): String;
Var
  I : Integer;
Begin
  Result := '';
  I := aDecNum;
  While I > 1 Do Begin
    If (I Mod 2) = 1 Then
      Result := '1' + Result
    Else
      Result := '0' + Result;
    I := I Div 2;
  End;
  Result := IntToStr(I) + Result;
  Result := StringOfChar('0', 8 - Length(Result)) + Result;

End;


procedure TForm1.Button1Click(Sender: TObject);
Var
  S1, S2 : String;
  I, C   : Integer;
  Sep    : String;
begin
  S1 := 'somestring';
  S2 := '';
  Sep := '|'; // разделитель, если надо
  For I:=1 To Length(S1) Do Begin
    C := Ord(S1[I]);
    S2 := S2 + DecToBin(C) + Sep;
  End;
  ShowMessage(S2);
end;

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »