Форум: "Основная";
Текущий архив: 2002.04.18;
Скачать: [xml.tar.bz2];
ВнизДвоичный вид числа и строки Найти похожие ветки
← →
Fantasist (2002-04-07 02:47) [4]Значит, вот тебе функция:
function _10to2(v:byte):string;
var
i:integer;
begin
Result:="";
for i:=0 to 8 do
begin
Result:=char((v and 1)+48)+Result;
v:=v shr 1;
end;
end;
Теперь берешь свою строку S, и делаешь примерно так:
Result:=""
for i:=1 to lenght(s) do
Result:=Result+_10to2(byte(s[i]));
Ну, обратно, по аналогии.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.18;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.005 c