Сжать строку с цифрами в BCD-числоDelphi , Синтаксис , Текст и СтрокиСжать строку с цифрами в BCD-число
Оформил: DeeCo function NumStringToBCD(const inStr: string): string; function Pack(ch1, ch2: Char): Char; begin Assert((ch1 >= '0') and (ch1 <= '9')); Assert((ch2 >= '0') and (ch2 <= '9')); {Ord('0') is $30, so we can just use the low nybble of the character as value.} Result := Chr((Ord(ch1) and $F) or ((Ord(ch2) and $F) shl 4)) end; var i: Integer; begin if Odd(Length(inStr)) then Result := NumStringToBCD('0' + instr) else begin SetLength(Result, Length(inStr) div 2); for i := 1 to Length(Result) do Result[i] := Pack(inStr[2 * i - 1], inStr[2 * i]); end; end; function BCDToNumString(const inStr: string): string; procedure UnPack(ch: Char; var ch1, ch2: Char); begin ch1 := Chr((Ord(ch) and $F) + $30); ch2 := Chr(((Ord(ch) shr 4) and $F) + $30); Assert((ch1 >= '0') and (ch1 <= '9')); Assert((ch2 >= '0') and (ch2 <= '9')); end; var i: Integer; begin SetLength(Result, Length(inStr) * 2); for i := 1 to Length(inStr) do UnPack(inStr[i], Result[2 * i - 1], Result[2 * i]); end; procedure TForm1.Button1Click(Sender: TObject); var S1, S2: string; begin S1 := '15151515151515151515'; S2 := NumStringToBCD(S1); memo1.lines.add('S1: ' + S1); memo1.lines.add('Length(S2): ' + IntToStr(Length(S2))); memo1.lines.add('S2 unpacked again: ' + BCDToNumString(S2)); end; Эта программа на языке Delphi используется для преобразования строки цифр в двоичный кодированный десятичный (BCD) номер и обратно. Функция Вот подробное описание работы этих функций:
Вот пример использования:
В этом примере код преобразует строку цифр в BCD, а затем обратно в строку цифр. Результат - это то же самое, что и исходная входная строка, но с каждой парой цифр упакованной в одиночный байт в промежуточном BCD-кодированном строке. Статья описывает функции на языке Delphi, которые переводят строку с цифрами в двоичное кодовое представление (BCD-число) и обратно. Комментарии и вопросыПолучайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Текст и Строки ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |