Текущий архив: 2003.01.13;
Скачать: CL | DM;
Вниз
Str2Byte Найти похожие ветки
← →
Brat-2 (2003-01-02 21:34) [0]В Паскале, помнится, была функция Str2Byte. Какой у нее аналог на Дельфях?
← →
TTCustomDelphiMaster (2003-01-02 21:36) [1]StrToInt или IntToStr?
← →
Brat-2 (2003-01-02 21:41) [2]спасибо. Уже нашел:
Function Str2Byte(S:String):Byte;
VAR
VByte :Byte;
i :Byte;
Begin
VByte:=0;
For I:=1 To LENGTH(S) DO
VByte:=VByte OR ((Byte(S[LENGTH(S)-i+1])-48) SHL (i-1));
Result:=VByte;
End;
← →
Novice (2003-01-02 23:44) [3]2 Brat-2 (02.01.03 21:41)
> спасибо. Уже нашел
Далее в обратном порядке
Страницы: 1 вся ветка
Текущий архив: 2003.01.13;
Скачать: CL | DM;
Память: 0.44 MB
Время: 0.014 c
