Текущий архив: 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.47 MB
Время: 0.023 c