Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.03.06;
Скачать: CL | DM;

Вниз

Как закодировать данные?   Найти похожие ветки 

 
Knoxville   (2005-02-22 21:59) [0]

Здравствуйте! Подскажите, как можно закодировать текст, который записывается в файл? То есть, чтобы было также, как если открыть bmp файл Блокнотом. А при чтении потом текст был таким же как и сначала.
Спасибо всем.


 
Anatoly Podgoretsky ©   (2005-02-22 22:11) [1]

s[I] := Char(Byte(S[i] -1));


 
Knoxville   (2005-02-22 22:29) [2]

Что такое S?


 
Anton_K ©   (2005-02-22 22:31) [3]

Что такое S?
var S:String;


 
begin...end ©   (2005-02-22 22:32) [4]

> Knoxville   (22.02.05 22:29) [2]

Также учтите, что в [1] имеется синтаксическая ошибка.


 
Knoxville   (2005-02-22 22:34) [5]

А как же тогда из строки 1 вычитать?


 
Knoxville   (2005-02-22 22:35) [6]

И, если это строка, то почему s[i]?


 
begin...end ©   (2005-02-22 22:36) [7]

> Knoxville   (22.02.05 22:34) [5]

s[I] := Char(Byte(S[i]) - 1);


 
Knoxville   (2005-02-22 22:40) [8]

Invalid typecast


 
Anatoly Podgoretsky ©   (2005-02-22 22:44) [9]

begin...end ©   (22.02.05 22:32) [4]
Домашнее задание - исправить ошибку. Но вроде до этого еще далекл.


 
Knoxville   (2005-02-22 22:50) [10]

Ну так как должно быть правильно?
И как можно в функцию Byte() строку передавать?


 
Anatoly Podgoretsky ©   (2005-02-22 22:51) [11]

А где там строка передается, нет этого. Кстати это и не функция.


 
Knoxville   (2005-02-22 22:53) [12]

Извиняюсь, тогда что такое S[i]?


 
Anatoly Podgoretsky ©   (2005-02-22 23:01) [13]

Char



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

Текущий архив: 2005.03.06;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.042 c
4-1105622864
Bes'e'noK
2005-01-13 16:27
2005.03.06
Извлечение CD


4-1106703632
avk02
2005-01-26 04:40
2005.03.06
Как получить аргумент из CommandLineToArgvW(lpCmdLine (shellapi)?


3-1107786978
Abusss
2005-02-07 17:36
2005.03.06
ADO+фильтр


1-1108958353
Valeriii
2005-02-21 06:59
2005.03.06
Random не работает!!!!!!!


1-1108965031
VAV
2005-02-21 08:50
2005.03.06
EditControl