Разработка приложений баз данных в Delphi. Шейкер Т.Д. - 31 стр.

UptoLike

ВУЗ: 

ДВФУ | Владивосток

Составители: 

Рубрика: 

31
Использование свойства Value класса TField возможно только для
постоянных полей. После создания в Редакторе полей постоянного поля в
описании появится элемент, являющийся одним из компонентов полей (на-
следником
TField), например,
Table2Population: TFloatField;
Постоянное поле (в данном случае
Table2Population) имеет свойство
Value, которое обеспечивает доступ к данным. Для свойства Value возможны
два варианта использования. Разрешено применять конструкцию, которая воз-
вращает значение типа
Variant (например, Table2Population.Value), ли-
бо применить свойство, которое обеспечивает преобразование результата в
нужный тип (например,
Table2Population.AsString):
procedure TForm1.Button2Click(Sender:TObject);
Var rr:extended;
begin
// использование свойства Value класса TField
Edit9.Text:=Table2Population.AsString;
rr:=Table2Population.Value;
Edit10.Text:=floattostr(rr);
end;
Далее приводится пример кода, иллюстрирующего разные варианты об-
ращения к полям:
procedure TForm1.Button1Click(Sender:TObject);
Var s1,s2,s3,s4,s5:string;
r1,r2,r3:extended;
begin
s1:=Table1.Fields[1].AsString;
s2:=Table1.FieldByName('Capital').AsString;
s3:=Table1.FieldValues['Capital'];
r1:=Table1.FieldValues['Population'];
r3:=Table1['Population'];
s4:=Table1.Fields[1].FieldName;// Получение имени поля 
       Использование свойства Value класса TField возможно только для
постоянных полей. После создания в Редакторе полей постоянного поля в
описании появится элемент, являющийся одним из компонентов полей (на-
следником TField), например,
Table2Population: TFloatField;
       Постоянное поле (в данном случае Table2Population) имеет свойство
Value, которое обеспечивает доступ к данным. Для свойства Value возможны
два варианта использования. Разрешено применять конструкцию, которая воз-
вращает значение типа Variant (например, Table2Population.Value), ли-
бо применить свойство, которое обеспечивает преобразование результата в
нужный тип (например, Table2Population.AsString):
procedure TForm1.Button2Click(Sender:TObject);
Var rr:extended;
begin
       // использование свойства Value класса TField
 Edit9.Text:=Table2Population.AsString;
 rr:=Table2Population.Value;
 Edit10.Text:=floattostr(rr);
end;
       Далее приводится пример кода, иллюстрирующего разные варианты об-
ращения к полям:
procedure TForm1.Button1Click(Sender:TObject);
Var s1,s2,s3,s4,s5:string;
    r1,r2,r3:extended;
begin
  s1:=Table1.Fields[1].AsString;
  s2:=Table1.FieldByName('Capital').AsString;
  s3:=Table1.FieldValues['Capital'];
  r1:=Table1.FieldValues['Population'];
  r3:=Table1['Population'];
  s4:=Table1.Fields[1].FieldName;// Получение имени поля

                                   31

Страницы