| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Str2Byte
Brat-2 © (2003-01-02 21:34:00)В Паскале, помнится, была функция Str2Byte. Какой у нее аналог на Дельфях?
Novice (2003-01-02 23:44:00) [1]2 Brat-2 (02.01.03 21:41)
> спасибо. Уже нашел
Далее в обратном порядке
Brat-2 (2003-01-02 21:41:00) [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;
TTCustomDelphiMaster (2003-01-02 21:36:00) [3]StrToInt или IntToStr?
| |
