Советы по Delphi. Версия 1.4.3 от 1.1.2001

function TMicronField.IsValidChar(Ch: Char): Boolean;

begin

 Result := Ch in ['+', '-', '0'..'9','.'];

end;

procedure Register;

begin

 RegisterFields([TMicronField]);

end;

end.

Поместите данный модуль в ваш каталог lib и добавьте это поле, используя диалог установки компонент. Затем, используя «DataSet designer», свяжите TMicronField с нужными вам полями, после чего вы увидите, что список типов полей включает теперь «Micron». (для отображения полей на новый тип поля, сначала вам необходимо удалить все TIntegerFields).

Другое решение, более простое (но так-же работающее), заключается в изменении исходного кода DBTables и простой замене существующей функции IsValidChar на TIntegerField.

– Mark Edington

Создание новой таблицы на основе структуры другой таблицы

Delphi 1

На ум сразу приходит операция присваивания значения свойству (стоящему с левой стороны от ':='), при которой Delphi в своих недрах вызывает метод 'write' и передает ему в виде единственного параметра все то, что находится в правой части выражения. Если свойство не имеет метода write, оно предназначено только для чтения. Вот определение свойства FieldDefs объекта TDataSet в файле DB.PAS:

property FieldDefs: TFieldDefs read FFieldDefs write SetFieldDefs

Как вы можете видеть, у него есть метод write. Следовательно, код:

Destination.FieldDefs := Source.FieldDefs;

в действительности делает такую операцию:

Destination.SetFieldDefs(Source.FieldDefs);

(за исключением того, что вы не можете использовать эту строку, поскольку SetFieldDefs определен в секции Private.)

Вот определение свойства IndexDefs объекта TTable в файле DBTABLES.PAS file:

property IndexDefs: TIndexDefs read FIndexDefs;

В этом случае метод write отсутствует, поэтому свойство имеет атрибут только для чтения. Тем не менее, для самого объекта TIndexDefs существует метод Assign. Следовательно, следующий код должен работать:

Source.IndexDefs.Update;

Destination.IndexDefs.Assign(Source.IndexDefs);

Перед вызовом Assign для Source.IndexDefs вызывайте метод Update, чтобы быть уверенным в том, что вы получите то, что хотите.

Метод SetFieldDefs является процедурой с одной строкой кода, в которой вызывается метод FieldDefs Assign.

Также можно проверить, определен ли реально индекс, и, если нет, то при вызове IndexDefs.Assign вы можете получить исключение типа «List Index Out Of Bounds» (или что-то типа этого). Например, так:

if Source.IndexDefs.Count > 0 then…

Вам нужно будет это сделать, поскольку метод TIndexDefs.Assign не проверяет это перед копированием индекс-информации. Также вам нет необходимости вызывать Clear до работы с IndexDefs, поскольку метод Assign сделает это и без вашего участия.

Создание уникального ID для новой записи

Delphi 1

Существует несколько способов задавать в таблице уникальный ID.

1. Вы можете использовать поле с автоприращением

Этот метод не очень надежен. Если ваша таблица каким-то образом испортится, и вам понадобиться ее пересобрать, автоинкрементальные поля будут перенумерованы. Хотя это легкий способ для ситуации, когда вы не ссылаетесь на id таблицы в других таблицах, но это не очень мудрое решение в других случаях.

2. Вы можете использовать ID-таблицу

Если у вас имеется приложение, где нескольким таблицам необходимы уникальные ID, создайте ID-таблицу с двумя полями:

Table Name A (первичный ключ) Last Id NВ методе BeforePost таблицы, которой необходим уникальный ID, делайте примерно так:

TableBeforePost(Sender: TObject)

var Id: Integer;

begin

 with TTable(Sender) do

 begin

{проверяем, существует ли ID для этой записи}

  if Field[0].AsInteger=0 then

  begin

   {ищем имя таблицы в ID-Таблице}

   IDTable.FindKey[Name]

   {извлекаем последний Id – подразумеваем блокировку записи}

   Id := IDTable.FieldByName['Last Id'].AsInteger;

   Inc(Id);

   {записываем новый Id в ID-таблицу – подразумеваем разблокировку таблицы}

   IDTable.FieldByName['Last Id'].AsInteger := Id;

   IDTable.Post;

   {записываем извлеченный ID в вашу таблицу}

   Field[0].AsInteger := Id;

  end;

 end;

end;

end;