06.11.2016, 22:52
|
|
LMD-DML
|
|
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
|
|
И с буквами работает
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
b: byte;
s: string;
begin
s:= '03c1eb08';
b:= StrToInt('$' + copy(s,3,4));
label1.Caption:= Inttostr(b);
end;
|