Посмотрев примеры в DRKB для перевода числа из одной системы счисления в другую, понял, что они предназначены не для глупого списывания, поэтому написал собственную функцию! код немного не оптимизированный, но все равно работает!
ПРЕДУПРЕЖДЕНИЕ: СИСТЕМЫ ПЕРЕВОДА ОТ 2 ДО 36!!! НЕ БОЛЬШЕ!

Код

function FromToAnySys(fromSys,ToSys: integer; chislo: string): string; var i,k,mo: integer; d: integer; buk: integer; step: integer; s,sl: string; s1: integer; m: string; function revert(n: string): string; var i: integer; q: string; begin for i:=length(n) downto 1 do begin  q:=q+n[i]; end; revert:=q; end; begin m:='0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ'; s:=''; d:=0; for i:=1 to length(chislo) do begin  for k:=1 to 37 do   begin    if chislo[i]=m[k] then buk:=k-1;   end;  step:=strtoint(floattostr(power(FromSys,(length(chislo)-i))));  d:=d+(buk*step); end; while d<>0 do begin  mo:=d mod ToSys;  s:=s+m[mo+1];  d:=d div ToSys; end; result:=revert(s); end;

Вот реализация доработок EhLib от меня и Alex для версии 3.06. Подробнее см. здесь и здесь

Присоединённый файл ( Кол-во скачиваний: 153 )
 EhLib_v3_6_units_modified_by_Petrovich_Alex.zip

Этот пример показывает, как всего парой десятков строк можно использовать WMI (Windows Management Instrumentation) для просмотра информации о системе, железе, программах и многом другом...

Для компиляции нужно иметь библиотеки Jedi WinAPI...
Скачать их можно тут: http://members.chello.nl/m.vanbrakel2/ (архив около 2 метров)

При запуске программы будет показано три окошка:
Левое верхнее - список классов. Например, Win32_BIOS - инфа о биосе, Win32_Processor - о процессоре и т.д.
Правое верхнее окно - объявление выбранного класса (свойства и методы)
Нижнее - экземпляры выбранного класса...

WMI.ZIP (5 kb)

Присоединённый файл ( Кол-во скачиваний: 175 )
 WMI.ZIP

Компонент для работы с драйверами программы FileMon (Sysinternals - www.sysinternals.com).
***В компоненте реализованна полная потдержка управляющих команд в плоть до версии драйвера v436.
***Особые благодарности, за тест и конструктивные предложения: p0s0l-у

PS: Данный компонент выкладывается для ознакомительных целей. Использование его в своих программах допускается ... но на свой страх и риск! Так как Sysinternals запрещает использование их драйверов отдельно от FileMon

В присоединенке: Компонент и пример его использования(А также драйверы: новые и старые).

PS2: К сожалению... так и не смог найти подходящию иконку для компонента

Присоединённый файл ( Кол-во скачиваний: 168 )
 FileMon.zip

Сделал небольшой архив с примерами

Имя Описание
папки

05_1 Пример использования компонентов TTreeView и TTreeList
для просмотра информации из системного реестра Windows
05_2 Простой пример разработки собственного компонента
06_1 Ресурсы манифеста Windows XP
07_1 Пример использования в приложении списка объектов на основе
класса TList
07_2 Пример использования в приложении списка строк на основе
класса TStringList
10_1 Пример приложения, использующего компоненты Delphi
для отображения графики
10_2 Приложение для просмотра растровых приложений JPG, JPEG, BMP
11_1 Пример простейшего приложения баз данных
12_1 Пример использования параметров компонентов запросов SQL
и взаимодействия таких компонентов на основе передачи значений
параметров
14_1 Приложение баз данных, использующее отношение "один-ко-многим"
между таблицами базы данных
14_2 Приложение баз данных, демонстрирующее варианты поиска записей
в таблице базы данных
14_3 Пример использования закладок (класс TBookmark) в наборах
данных Delphi
15_1 Приложение баз данных, использующее компоненты синхронного
просмотра
16_1 Приложение баз данных, напрямую использующее API BDE
для полного удаления записей из таблиц базы данных
16_2 Приложение баз данных, напрямую использующее API BDE
для представления данных
17_1 Приложение баз данных, демонстрирующее возможности технологии
dbExpress
19_1 Приложение баз данных, демонстрирующее возможности
технологии ADO
21_1 Пример простого распределенного приложения баз данных
25_1 Пример использования компонента проекта отчета Rave Reports
и разработки простых отчетов в визуальной среде Rave Reports
26_1 Пример использования настраиваемого соединения на основе
компонента TRvCustomConnection
26_2 Пример отчетов Rave Reports для приложений баз данных
27_1 Пример реализации Drag-and-Drop
27_2 Пример реализации Drag-and-Dock
27_3 Пример реализации управления мышью
28_1 Пример создания динамической библиотеки
29_1 Приложение, использующее отдельный поток к памяти для расчета
числа
30_1 Приложение, использующее компоненты многомерного представления
данных
31_1 Пример приложения, использующего Shell API

пару папок удалил из архива, т.к. он получается больше 250 кБ.

Присоединённый файл ( Кол-во скачиваний: 484 )
 Example.zip

Примеры для работы с
1. MS Word
2. pop3
3. smtp
4. socket
5. mail - отправка почты

Примеры не мои личные

Присоединённый файл ( Кол-во скачиваний: 436 )
 dsergey.zip

Обмен данными между процессами. Сам не тестировал.

Присоединённый файл ( Кол-во скачиваний: 134 )
 FileMapping_ExchangeData.zip

Быстрая функция для разбивки строки на части (слова) в один цикл.

Код

type TDelim=set of Char;         TArrayOfString=Array of String;   //******************* // // Разбивает строку с разделителями на части // и возвращает массив частей // // fcToParts // function fcToParts(sString:String;tdDelim:TDelim):TArrayOfString var iCounter,iBegin:Integer; begin//fc if length(sString)>0 then  begin   include(tdDelim,#0);iBegin:=1; SetLength(Result,0);   For iCounter:=1 to Length(sString)+1 do    begin//for     if (sString[iCounter] in tdDelim) then      begin       SetLength(Result,Length(Result)+1);       Result[Length(Result)-1]:=Copy(sString,iBegin,iCounter-iBegin);       iBegin:=iCounter+1;      end;   end;//for  end;//if end;//fc

Пример использования

Код

var  StrArr:TArrayOfString StrArr:=fcToParts('строка1-строка2@строка3',['-','@']):

Делал тут ListBox с подсказками, получился такой вот компонент.

Компонент LSVListBox, потомок TListBox, использует всплывающие подсказки (Hint) для полного отображения
не умещающихся строк и позволяет изменять стиль подсказок (шрифт, цвета, дополнительные рамки, тень,
авторазмер), установить разные стили подсказок для выделенных и невыделенных пунктов.
Помимо этого не умещающиеся строки корректно обрезаются (с троеточием), имеется возможность изменить цвета для выделенных пунктов, отключить фокусирующий прямоугольник, уменьшено мерцание при прорисовке элементов, добавлены обработчики событий OnMouseEnter и OnMouseLeave

Это сообщение отредактировал(а) ДЫМ - 18.4.2005, 01:09

Присоединённый файл ( Кол-во скачиваний: 122 )
 LSVListBox.zip

Функция подмены разделителя целой и дробной части при вводе данных прямо в сетку, а также при вводе даты. Пользователя не должен думать о том, что ему правльно вводить в качетсве разделителя: точку или запятую
TfmMain - TForm

TDBGridEh - сетка из пакета EhLib, можно необязательно сетку, можно, просто TEdit.

Код

в разделе    public     { Public declarations } главной формы объявляем     Procedure DecPoint(Sender: TObject; var Key: Char); для доступности из всех остальных форм

Код

Procedure TfmMain.DecPoint(Sender: TObject; var Key: Char); begin  if (Sender is TDBGridEh) then    if (Sender as TDBGridEh).SelectedField.DataType=ftFloat then       if (Key='.') or (Key=',') then Key:=DecimalSeparator;  if (Sender is TDBEditEh) then    if (Sender as TDBEditEh).Field.DataType=ftDate then       if (Key='.') or (Key=',') then Key:=DateSeparator; end;

использование в OnKeyPress

Код

procedure TfmMain.DBGrid1KeyPress(Sender: TObject; var Key: Char); begin   DecPoint(Sender,Key); end;

Две полезные процедуры:

Код

uses    StrUtils; procedure CopyComponentProp(Source, Target: TObject; aExcept: array of string); // Копирование всех одинаковых по названию свойств/методов одного компонента в // другой за исключение "Name", "Left", "Top" и тех которые заданы в aExcept // Примеры использования: // CopyComponentProp(N11, N21, []); // CopyComponentProp(ListBox2, ListBox3, []); // CopyComponentProp(ListView1, ListView2, ['Items', 'Color']); var   I, Index: Integer;   PropName: string;   Source_PropList  , Target_PropList  : PPropList;   Source_NumProps  , Target_NumProps  : Word;   Source_PropObject, Target_PropObject: TObject;   // Поиск в списке свойства с заданным именем   function FindProperty(const PropName: string; PropList: PPropList; NumProps: Word): Integer;   var     I: Integer;   begin     Result:= -1;     for I:= 0 to NumProps - 1 do       if CompareStr(PropList^[I]^.Name, PropName) = 0 then begin         Result:= I;         Break;       end;   end; begin   if not Assigned(Source) or not Assigned(Target) then Exit;   Source_NumProps:= GetTypeData(Source.ClassInfo)^.PropCount;   Target_NumProps:= GetTypeData(Target.ClassInfo)^.PropCount;   GetMem(Source_PropList, Source_NumProps * SizeOf(Pointer));   GetMem(Target_PropList, Target_NumProps * SizeOf(Pointer));   try     // Получаем список свойств     GetPropInfos(Source.ClassInfo, Source_PropList);     GetPropInfos(Target.ClassInfo, Target_PropList);     for I:= 0 to Source_NumProps - 1 do begin       PropName:= Source_PropList^[I]^.Name;       if  (AnsiIndexText('None'  , aExcept                ) =  -1) and          ((AnsiIndexText(PropName, ['Name', 'Left', 'Top']) <> -1) or           (AnsiIndexText(PropName, aExcept                ) <> -1)) then Continue;       Index:= FindProperty(PropName, Target_PropList, Target_NumProps);       if Index = -1 then Continue; // не нашли       // Проверить совпадение типов       if Source_PropList^[I]^.PropType^.Kind <> Target_PropList^[Index]^.PropType^.Kind then         Continue;       case Source_PropList^[I]^.PropType^^.Kind of         tkClass:  begin                     Source_PropObject:= GetObjectProp(Source, Source_PropList^[I    ]);                     Target_PropObject:= GetObjectProp(Target, Target_PropList^[Index]);                     CopyComponentProp(Source_PropObject, Target_PropObject, ['None']);                   end;         tkMethod: SetMethodProp(Target, PropName, GetMethodProp(Source, PropName));       else         SetPropValue(Target, PropName, GetPropValue(Source, PropName));       end;     end;   finally     FreeMem(Source_PropList);     FreeMem(Target_PropList);   end; end;

Код

uses    StrUtils procedure AssignComponentProp(Source, Target: TObject; aProp: array of string); // Копирование свойств/методов заданых в aProp одного компонента в другой // Пример использования: // AssignedComponentProp(ListView1, ListView2, ['Items', 'Color']); var   I, Index: Integer;   PropName: string;   Source_PropList  , Target_PropList  : PPropList;   Source_NumProps  , Target_NumProps  : Word;   Source_PropObject, Target_PropObject: TObject;   // Поиск в списке свойства с заданным именем   function FindProperty(const PropName: string; PropList: PPropList; NumProps: Word): Integer;   var     I: Integer;   begin     Result:= -1;     for I:= 0 to NumProps - 1 do       if CompareStr(PropList^[I]^.Name, PropName) = 0 then begin         Result:= I;         Break;       end;   end; begin   if not Assigned(Source) or not Assigned(Target) then Exit;   Source_NumProps:= GetTypeData(Source.ClassInfo)^.PropCount;   Target_NumProps:= GetTypeData(Target.ClassInfo)^.PropCount;   GetMem(Source_PropList, Source_NumProps * SizeOf(Pointer));   GetMem(Target_PropList, Target_NumProps * SizeOf(Pointer));   try     // Получаем список свойств     GetPropInfos(Source.ClassInfo, Source_PropList);     GetPropInfos(Target.ClassInfo, Target_PropList);     for I:= 0 to Source_NumProps - 1 do begin       PropName:= Source_PropList^[I]^.Name;       if (AnsiIndexText('None'  , aProp   ) = -1) and          (AnsiIndexText(PropName, aProp   ) = -1) then Continue;       Index:= FindProperty(PropName, Target_PropList, Target_NumProps);       if Index = -1 then Continue; // не нашли       // Проверить совпадение типов       if Source_PropList^[I]^.PropType^.Kind <> Target_PropList^[Index]^.PropType^.Kind then         Continue;       case Source_PropList^[I]^.PropType^^.Kind of         tkClass:  begin                     Source_PropObject:= GetObjectProp(Source, Source_PropList^[I    ]);                     Target_PropObject:= GetObjectProp(Target, Target_PropList^[Index]);                     AssignComponentProp(Source_PropObject, Target_PropObject, ['None']);                   end;         tkMethod: SetMethodProp(Target, PropName, GetMethodProp(Source, PropName));       else         SetPropValue(Target, PropName, GetPropValue(Source, PropName));       end;     end;   finally     FreeMem(Source_PropList);     FreeMem(Target_PropList);   end; end;

Для пользователей библиотеки EhLib.

• (DBCtrlsEh.pas и ToolCtrlsEh.pas) для контролов которые могут содержать доп.кнопки (наследники TCustomDBEditEh), добавлена возможность индивидуального управления активностью этих кнопок.
• (DBCtrlsEh.pas) исправлена ошибка (неточность) при работе с датами без указания года.
• (ToolCtrlsEh.pas) для контролов которые могут содержать доп.кнопки (наследники TCustomDBEditEh), добавлено свойство Action. При задании свойства от Action кнопка наследует свойства: Enabled, Hint, ShortCut и Visible. Свойство доступно в Delphi 6 и выше.

Измененные модули для версии 3.6 приложены к посту. Для других версий можно сделать аналогично. Для этого, все изменения отмечены коментарием Alx

Присоединённый файл ( Кол-во скачиваний: 60 )
 EhLib_v3_6_units_modified_by_Alex.rar 55,99 Kb

Функция конвертации текста HTML содержащего строки вида &# 123; в читабельбный вид

Код

Function PreDecode(s:string):string;   function AddNumericChar(I: Integer):string;   var     W: WideChar;     Buffer: array[0..10] of char;   begin     if I = 9 then result := ' '        else if I < ord(' ') then  result := '?'  {control char}            else if (I < 256)  then   result := Chr(I)     else     begin     W := WideChar(I);     SetString(result, Buffer, WideCharToMultiByte(CP_ACP, 0,           @W, 1, @Buffer, SizeOf(Buffer), nil, nil))     end;   end; var val,i,ik:integer; sq:string; begin   for i:=1 to Length(s) do   begin       if ( (s[i]='&') and (s[i+1] ='#') ) then        begin           sq := Copy(s,i+2,length(s));           for ik:=1 to length(sq) do           begin             if not ( sq[ik] in ['0'..'9'] ) then             break;           end;           if  Copy(sq,1,ik-1) <> '' then           val := StrToInt( Copy(sq,1,ik-1) ) else val:=-1;           if ( (val <> -1) and (sq[ik] = ';')  )           then            begin              Result:=Result+AddNumericChar(val);              Delete(s,i,ik+1);             end;        end else  result:=Result+s[i];   end; end;

В аттаче пример работы с TaskBar (получене текста всех кнопок).

Это сообщение отредактировал(а) Rrader - 18.7.2008, 15:54

Присоединённый файл ( Кол-во скачиваний: 42 )
 Toolbar_Button_Enum.rar 7,59 Kb

 Функция, которая нарисует на форме сетку и сделает форму похожей на дизайнер форм Delphi. По умолчанию в дизайнере Delphi отступы равны 8 пикселям  
 
Ещё способ, рисует сетку либо линии на компоненте AObject цветом FGridColor, в параметре ACanvas нужно передать холст компонента, FSizeX и FSizeY определяют размер сетки либо линий:
  

Это сообщение отредактировал(а) Rrader - 24.6.2006, 11:57