Правильная ссылка на эту страницу
http://az-design.ru/Support/SoftWare/Delphi/D3/SB37Clear.shtml

Глава 37. TField.Clear

Метод Clear

Затрагиваемые объекты Все производные классы TField
Назначение Стереть содержимое поля (и запись основного набора данных).
Объявление procedure Clear; virtual;
Пример синтаксиса
procedure Tflddlg.demDynCreate(theField: TField);
var
  tempField: TField;
  tempFieldClass: TFieldClass;
  tempDataSet: TDataSet;
  tft: TFieldType;

begin
  tft := theField.DataType; { определить тип поля }
{использовать вспомогательную функцию для получения ссылки на класс поля}
  tempFieldClass := GetFieldClass(tft);
{ получить переданный набор данных поля }
  tempDataSet := theField.DataSet;
{ динамически создать поле}
  tempField:=tempFieldClass.Create(tempDataSet);
  tempField.Clear;
  try 
    tempField.FieldName := theField.FieldName; { установить имя поля }
    tempField.Size := theField.Size; { установить размер }
    tempField.Required := theField.Required; {установить требуемые свойства)
    tempField.SetFieldType(tft); { установить тип поля для нового поля }
    tempField.DataSet := tempDataSet; { присвоить набор данных }
  except tempFieId.destroy; { изъять поле в случае ошибки }
  end; 

end;
{ эта функция возвращает тип класса поля при передаче значения константы TFieldType}

function Tflddlg.GetFieldClass(tft:TFieldType): TFieldClass;
const 
   FieldClasses: array[TFieldType]
     of TFieldClass = (nil,            { ftUnknown     }
                       TStringField,   { ftString      }
                       TSmalllntField, { ftSmalllnt    }
                       TIntegerField,  { ftlnteger     }
                       TWordField,     { ftWord        }
                       TBooleanField,  { ftBoolean     }
                       TFloatField,    { ftFloat       }
                       TCurrencyField, { ftCurrency    }
                       TBCDField,      { ftBCD         }
                       TDateField,     { ftDate        }
                       TTimeField,     { ftTime        }
                       TDateTimeField, { ftDateTime    }
                       TBytesField,    { ftBytes       }
                       TVarBytesField, { ftVarBytes    }
                       TAutoIncField,  { ftAutoInc     }
                       TBlobField,     { ftBlob        }
                       TMemoField,     { ftMemo        }
                       TGraphicField,  { ftGraphic     }
                       TBlobField,     { ftFmtMemo     }
                       TBlobField,     { ftParadoxOle  }
                       TBlobField,     { ftDBaseOle    }
                       TBlobField);    { ftTypedBinary }

begin
   Result:= FieldClasses[tft];

end;
Описание В этом примере показан метод, используемый для динамического создания экземпляра объекта типа TField. Маловероятно, что вам когда-либо придется действительно выполнять эту операцию — при использовании компонента TTable в форме создание и манипулирование объектами TField выполняется автоматически с соответствующим применением редактора полей. Обратите внимание, что этот код не будет функционировать правильно, если база данных, к которой подключается это поле, уже открыта. Однако для полноты отображен пример, иллюстрирующий динамическое создание объекта TField.
[Свойство Alignment] [Свойство AsBoolean] [Свойство AsCurrency] [Свойство AsDateTime] [Свойство AsFloat] [Свойство AsInteger] [Метод Assign] [Метод AssignValue] [Свойство AsString] [Свойство AsVariant] [Свойство AttributeSet] [Свойство BlobType] [Свойство Calculated] [Свойство CanModify] [Свойство CheckRange] [Метод Clear] [Конструктор Create] [Свойство Currency] [Свойство DataSet] [Свойство DataSize] [Свойство DataType] [Деструктор Destroy] [Свойство DisplayFormat] [Свойство DisplayLabel] [Свойство DisplayName] [Свойство DisplayText] [Свойство DisplayValues] [Свойство DisplayWidth] [Свойство EditFormat] [Свойство EditMask] [Свойство EditMaskPtr] [Свойство FieldKind] [Свойство FieldName] [Свойство FieldNo] [Метод FocusControl] [Функция GetData] [Свойство Index] [Функция IsBlob] [Функция IsIndexField] [Свойство IsNull] [Функция IsValidChar] [Свойство KeyFields] [Функция LoadFromFile] [Функция LoadFromStream] [Свойство Lookup] [Свойство LookupCache] [Свойство LookupDataSet] [Функция LookupKeyFields] [Функция LookupList] [Функция LookupResultField] [Функция MaxValue] [Функция MinValue] [Свойство NewValue] [Функция Offset] [Свойство OldValue] [Событие OnChange] [Событие OnGetText] [Событие OnSetText] [Событие OnValidate] [Свойство Precision] [Свойство ReadOnly] [Метод RefreshLookupList] [Свойство Required] [Метод SaveToFile] [Метод SaveToStream] [Свойство ServerCalcField] [Метод SetCurrency] [Метод SetData] [Метод SetFieldType] [Свойство Size] [Свойство Text] [Свойство Transliterate] [Свойство Validate] [Свойство ValidChars] [Свойство Value] [Свойство Visible]

<<< Пред. Оглавление
Начало раздела
След. >>>




Дата последнего изменения:
Thursday, 21-Aug-2014 09:10:56 MSK


Постоянный адрес статьи:
http://az-design.ru/Support/SoftWare/Delphi/D3/SB37Clear.shtml