На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Поиск Участники Календарь Избранное RSS
msm.ru
Модераторы: Rouse_, jack128, Krid
  
    > HEX --> RGB
    Vit
    Сообщ. #1 ,

      Guru
      *******
      Профиль · PM
      Поощрения: 16 Dgm
      Рейтинг (т): 181
      Const S='FFFFFF';
      Var t: Integer;
          St: String;
      ...
      St:='';
      For t:=1 to Length(S)-1 Do IF Odd(t) then St:=St+IntToStr(StrToInt('$'+Copy(S,t,2)));
      ShowMessage(St);



      Автор: Song
      0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
      0 пользователей:


        Рейтинг@Mail.ru
        [ Script execution time: 0,0146 ]   [ 16 queries used ]   [ Generated: 30.04.24, 08:14 GMT ]  
        Powered by Invision Power Board(U) v1.2 © 2003  IPS, Inc.