TField: Razlika med redakcijama

Trenutna redakcija s časom 12:41, 5. februar 2014

Ta stran je trenutno še v izdelavi.

Razred TField vsebuje informacije o poljih za podatkovno plast.

Lastnosti polja

Dim L as TLayer, D As TDataSet, F As TField, I, J As Long
L = [Neka plast]
For I = 0 To L.DataSetCount - 1
  D = L.DataSets (I)
  For J = 0 To D.FieldCount - 1
    Message ("Lastnosti Polja", 
      "Ime: " + F.Name + Line +
      "Dodatno ime: " + F.Alias + Line +
      "Komentar: " + F.Comment + Line +
      "ID: $" + IntToHex (F.ID) + Line +
      "Tip polja: " + IntToStr (F.FieldType) + Line +
      "Format: " + F.Format + Line +
      "Formula: " + F.Formula + Line +
      "Lookup: " + F.Lookup + Line +
      "Niz podatkov: " + F.Parent.Name + Line +
      "Podatkovna plast: " + F.Parent.Parent.Name
    )
  Next
Next

Name

Lastnost Name določa ime polja.

Property TField.Name As String
Result	String	Ime polja.

Alias

Lastnost Alias omogoča nastavitev dodatnega imena polja

Property TField.Alias As String
Result	String	Dodatno ime.

Comment

Lastnost Comment omogoča zapis komentarja polja.

Property TField.Comment As String
Result	String	Komentar.

ID

Lastnost ID vrne unikatni identifikator, ki se samodejno kreira pri kreiranju polja in se nikdar ne spremeni.

RO Property TField.ID As Long
Result	Long	.

Identifikator polja se uporablja interno za reference na polje, tako da niso odvisne od imena. HiWord identifikatorja je podedovan od identifikatorja niza podatkov TField.ID.

FieldType

Lastnost FieldType določa tip polja.

Property TField.FieldType As Long
Result	Long	Tip polja.

Tip polja je eno od Field Type konstant.

Format

Lastnost Format določa format polja.

Property TField.Format As String
Result	String	Format polja.

Za numerična polja se lahko uporablja naslednje formate:

LongInt - Celoštevilčni tip 4 byte (-2xxx0..2xxx).
Integer - Celoštevilčni tip 2 byta (-32xxx..32xxx).
Byte - Celoštevilčni tip 1 byte (0..255).
0000 - Celoštevilčni tip 2 byta. Številka se izpiše na šriti mesta z vodilnimi nulami. (0..9999).
# - xxx
#.## -
0.00 -
#,##0.00 -

Za datum polja se lahko uporablja naslednje formate:

Date - polje vsebuje samo datum, ne pa tudi čas.
Time - ???

Pri ostalih tipih se format ne uporablja.

Formula

Lastnost Formula določa formulo polja.

Property TField.Formula As String
Result	String	.

Lookup

Lastnost Lookup določa vrednost relacije za podano polje.

Property TField.Lookup As String
Result	String	.

FullName

Lastnost FullName vrne polno ime polja in ime niza podatkov, v katerem se polje nahaja. Če obstaja samo en niz podatkov, se ime niza podatkov ne izpisuje. Ime polja je zapisano v oglatih oklepajih.

RO Property TField.FullName As String
Result	String	.

Importance

Lastnost Importance .

Property TField.Importance As Long
Result	Long	.

Parent

Lastnost Parent določa niz podatkov, kateremu pripada podano polje.

Property TField.Parent As TDataSet
Result	TDataSet	.

InternalFieldType

Lastnost InternalFieldType .

RO Property TField.InternalFieldType As String
Result	String	.

InternalFormat

Lastnost InternalFormat .

RO Property TField.InternalFormat As String
Result	String	.

Vrednost polja

AsString

Lastnost AsString določa alfanumerično vrednost polja (iz prvega niza podatkov, v primeru večkratnega niza podatkov).

RO Property TField.AsString As String
Result	String	.

Dim F as TField
F = [Neka plast].GetField ("ImePolja")
If Assigned (F) Then
  F.CurrentRecord = [Neka plast].AllRecords.Items (0)
  Hint (F.AsString)
EndIF

AsNumber

Lastnost AsNumber vrne numerično vrednost polja (iz prvega niza podatkov, v primeru večkratnega niza podatkov).

RO Property TField.AsNumber As Float
Result	Float	.

Dim F as TField
F = [Neka plast].GetField ("ImePolja")
If Assigned (F) Then
  F.CurrentRecord = [Neka plast].AllRecords.Items (0)
  Hint (FormatFloat ("#0.0", F.AsNumber))
EndIF

AsBoolean

Lastnost AsBoolean .

RO Property TField.AsBoolean As Boolean
Result	Boolean	.

Vrednost polja v večkratnem nizu podatkov

AsLines

Lastnost AsLines določa tekst vseh zapisov, iz večkratnega niza podatkov, zapisanih tako, da je vsak zapis v svoji vrstici.

RO Property TField.AsLines As String
Result	String	.

F = [Neka plast].GetField ("ImePolja")
F.CurrentRecord = [Neka plast].ClickedRecords.Items (1)
Hint (F.AsLine)

// v temi besedilo izberite polje (ki je del večkratnega niza podatkov) in za poljem zapišite .AsLine

[SomeField].AsLine

AsDistinctLines

Lastnost AsDistinctLines .

RO Property TField.AsDistinctLines As String
Result	String	.

AsSortedLines

Lastnost AsSortedLines .

RO Property TField.AsSortedLines As String
Result	String	.

LineCount

Lastnost LineCount določa število zapisov polja iz vseh večkratnih nizov podatkov. Za podrobnejši opis nizov podatkov in večkratnih zapisov nizov podatkov glej Struktura nizov podatkov.

RO Property TField.LineCount As Long
Result	Long	.

Dim F as TField
F = [Neka plast].GetField ("ImePolja")
If Assigned (F) Then
  Message ("Polje:" + F.Name, "Število vseh:" + FloatToStr(F.LineCount))
EndIF

LineAsString

Lastnost LineAsString .

RO Property TField.LineAsString (Line As Long) As String
Line	Long	.
Result	String	.

// v temi besedilo izberite polje (ki je del večkratnega niza podatkov) in zapišite:
FloatToStr( [Polje].LineAsString(0))

LineAsNumber

Lastnost LineAsNumber določa numerično vrednost polja iz index-tega večkratnega niza podatkov. Za podrobnejši opis nizov podatkov in večkratnih zapisov nizov podatkov glej Struktura nizov podatkov.

RO Property TField.LineAsNumber (Line As Long) As Float
Line	Long	.
Result	Float	.

// v temi besedilo izberite polje (ki je del večkratnega niza podatkov) in zapišite:
FloatToStr( [Polje].LineAsNumber(0))

LineMin

Lastnost LineMin določa najmanjšo vrednost polja iz vseh večkratnih nizov podatkov. Za podrobnejši opis nizov podatkov in večkratnih zapisov nizov podatkov glej Struktura nizov podatkov.

RO Property TField.LineMin As Float
Result	Float	.

Dim F as TField
F = [Neka plast].GetField ("ImePolja")
If Assigned (F) Then
  Message ("Polje:" + F.Name, "Najmanjša vrednost:" + FloatToStr(F.LineMin))
EndIF

LineMax

Lastnost LineMax določa največjo vrednost polja iz vseh večkratnih nizov podatkov. Za podrobnejši opis nizov podatkov in večkratnih zapisov nizov podatkov glej Struktura nizov podatkov.

RO Property TField.LineMax As Float
Result	Float	.

Dim F as TField
F = [Neka plast].GetField ("ImePolja")
If Assigned (F) Then
  Message ("Polje:" + F.Name, "Največja vrednost:" + FloatToStr(F.LineMax))
EndIf

LineSum

Lastnost LineSum določa vsoto polja iz vseh večkratnih nizov podatkov. Za podrobnejši opis nizov podatkov in večkratnih zapisov nizov podatkov glej Struktura nizov podatkov.

RO Property TField.LineSum As Float
Result	Float	.

Dim F as TField
F = [Nekqa plast].GetField ("ImePolja")
If Assigned (F) Then
  Message ("Polje:" + F.Name, "Vsota:" + FloatToStr(F.LineSum))
EndIF

LineAvg

Lastnost LineAvg določa povprečno vrednost polja iz vseh večkratnih nizov podatkov. Za podrobnejši opis nizov podatkov in večkratnih zapisov nizov podatkov glej Struktura nizov podatkov.

RO Property TField.LineAvg As Float
Result	Float	.

Dim F as TField
F = [Neka plast].GetField ("ImePolja")
If Assigned (F) Then
  Message ("Polje:" + F.Name, "Povprečje:" + FloatToStr(F.LineAvg))
EndIf

LineSumCondition

Lastnost LineSumCondition .

RO Property TField.LineSumCondition (Condition As String) As Float
Condition	String	.
Result	Float	.

Analize liste zapisov

ListLines

Lastnost ListLines .

RO Property TField.ListLines (RL As TRecordList) As String
RL	TRecordList	.
Result	String	.

ListGroupBy

Lastnost ListGroupBy .

RO Property TField.ListGroupBy (RL As TRecordList) As TStringList
RL	TRecordList	.
Result	TStringList	.

ListGroupByLists

Lastnost ListGroupByLists .

RO Property TField.ListGroupByLists (RL As TRecordList) As TStringList
RL	TRecordList	.
Result	TStringList	.

ListMin

Lastnost ListMin določa minimalno vrednost za podano polje iz vseh zapisov.

RO Property TField.ListMin (RL As TRecordList) As Float
RL	TRecordList	.
Result	Float	.

Dim F as TField
F = [Neka plast].GetField ("ImePolja")
Hint ('Povprečje: ' + FloatToStr (F.ListMin ([Neka plast].AllRecords)))

ListMax

Lastnost ListMax določa maksimalno vrednost za podano polje iz vseh zapisov.

RO Property TField.ListMax (RL As TRecordList) As Float
RL	TRecordList	.
Result	Float	.

Dim F as TField
F = [Neka plast].GetField ("ImePolja")
Hint ('Povprečje: ' + FloatToStr (F.ListMax ([Neka past].AllRecords)))

ListSum

Lastnost ListSum določa vsoto vseh vrednosti za podano polje iz vseh zapisov.

RO Property TField.ListSum (RL As TRecordList) As Float
RL	TRecordList	.
Result	Float	.

Dim F as TField
F = [Neka palst].GetField ("ImePolja")
Hint ('Povprečje: ' + FloatToStr (F.ListSum ([Neka plast].AllRecords)))

ListAvg

Lastnost ListAvg določa povprečno vrednost za podano polje iz vseh zapisov in vseh nizov. Za podrobnejši opis nizov podatkov in večkratnih zapisov nizov podatkov glej Struktura nizov podatkov.

RO Property TField.ListAvg (RL As TRecordList) As Float
RL	TRecordList	.
Result	Float	.

Dim F as TField
F = [Neka plast].GetField ("ImePolja")
Hint ('Povprečje: ' + FloatToStr (F.ListAvg ([Neka palst].AllRecords)))

ListRange

Lastnost ListRange .

RO Property TField.ListRange (RL As TRecordList, RangeCnt As Long) As TNumArray1
RL	TRecordList	.
RangeCnt	Long	.
Result	TNumArray1	.

ListAnalyze

Metoda ListAnalyze analizira vse zapise za podano polje v celotni bazi podatkov, in poda minimalno, maksimalno, povprečno vrednost, ter število zapisov.

Method TField.ListAnalyze (RL As TRecordList, ByRef Min, ByRef Max, ByRef Sum As Float, ByRef Cnt As Long, ByRef IsFloat As Boolean)
RL	TRecordList	Lista zapisov za analizo.
Min	ByRef Float	Minimalna vrednost.
Max	ByRef Float	Maksimalna vrednost.
Sum	ByRef Float	Vsota vseh vrednosti.
Cnt	ByRef Long	Število analiziranih podatkov, ki se lahko razlikuje od števila vseh zapisov, če je polje v večkratnem nizu podatkov.
IsFloat	ByRef Boolean	Vrne vrednost True, če so vsa polja tipa Floating point.

Dim Amin, AMax, ASum As Float, ACount as Long, M As Boolean
Dim F as TField
F = [Neka palst].GetField ("ImePolja")
F.ListAnalyze ([NekaPlast].AllRecords, Amin, Amax, Asum, ACount, M)
Hint ('Minimalna vrednost: ' + FloatToStr (AMin))

CurrentRecord

Lastnost CurrentRecord določa trenutno aktiven zapis, ki se bo izpisal, izrisal,... Vrednost je enako kot v primeru TLayer.CurrentRecord ali TDataSet.CurrentRecord lastnosti. Ko pride do spremembe, se izvede sprememba tudi v ostalih lastnostih. Ta lastnost se uporablja pri lastnostih razreda TField.

Property TField.CurrentRecord As TRecord
Result	TRecord	.

Dim F as TField
F = [Neka plast].GetField ("ImePolja")
If Assigned (F) Then
  F.CurrentRecord = [Neka plast].AllRecords.Items (0)
  Hint (F.AsString)
EndIF

Web

AsHtmlEditor

Lastnost AsHtmlEditor .

RO Property TField.AsHtmlEditor (Name, Class As String) As String
Name	String	.
Class	String	.
Result	String	.

@@ Vrstica 24: / Vrstica 24: @@
 ===Name===
-Lastnost '''Name''' določa ime polja, in se lahko spremeni.
+Lastnost '''Name''' določa ime polja.
 <declaration>
 Property|TField.Name
-Result|String|.
+Result|String|Ime polja.
 </declaration>
 ===Alias===
-Lastnost '''Alias''' omogoča nastavitev drugega imena polja
+Lastnost '''Alias''' omogoča nastavitev dodatnega imena polja
 <declaration>
 Property|TField.Alias
-Result|String|.
+Result|String|Dodatno ime.
 </declaration>
 ===Comment===
-Lastnost '''Comment''' omogoča zapis komentarja za objekt tipa TField.
+Lastnost '''Comment''' omogoča zapis komentarja polja.
 <declaration>
 Property|TField.Comment
-Result|String|.
+Result|String|Komentar.
 </declaration>
 ===ID===
-Lastnost '''ID''' vrne unikatno identifikacijsko kodo, ki se samodejno kreira pri kreiranju polja in se nikdar ne spremeni.
+Lastnost '''ID''' vrne unikatni identifikator, ki se samodejno kreira pri kreiranju polja in se nikdar ne spremeni.
 <declaration>
 RO Property|TField.ID
 Result|Long|.
 </declaration>
+Identifikator polja se uporablja interno za reference na polje, tako da niso odvisne od imena. HiWord identifikatorja je podedovan od identifikatorja niza podatkov {{EL|TField|ID}}.
 ===FieldType===
-Lastnost '''FieldType''' poda tip polja. Tip polja je eno od Field Type konstant.
+Lastnost '''FieldType''' določa tip polja.
 <declaration>
 Property|TField.FieldType
-Result|Long|.
+Result|Long|Tip polja.
 </declaration>
-<source>Dim F as TField
+Tip polja je eno od [[Field Type konstant]].
-F = [Neka plast].GetField ("ImePolja")
-If Assigned (F) Then
-  F.CurrentRecord = [Neka plast].AllRecords.Items (0)
-    If F.FieldType = ftString Then
-     Hint (F.AsString)
-    EndIF
-    If F.FieldType = ftnumber Then
-     Hint FloatToStr ((F.AsNumber))
-    EndIF
-EndIF</source>
 ===Format===
@@ Vrstica 73: / Vrstica 64: @@
 <declaration>
 Property|TField.Format
-Result|String|.
+Result|String|Format polja.
 </declaration>
+Za numerična polja se lahko uporablja naslednje formate:
+* LongInt - Celoštevilčni tip 4 byte (-2xxx0..2xxx).
+* Integer - Celoštevilčni tip 2 byta (-32xxx..32xxx).
+* Byte - Celoštevilčni tip 1 byte (0..255).
+* 0000 - Celoštevilčni tip 2 byta. Številka se izpiše na šriti mesta z vodilnimi nulami. (0..9999).
+* # - xxx
+* #.## -
+* 0.00 -
+* #,##0.00 -
+Za datum polja se lahko uporablja naslednje formate:
+* Date - polje vsebuje samo datum, ne pa tudi čas.
+* Time - ???
+Pri ostalih tipih se format ne uporablja.
 ===Formula===
@@ Vrstica 286: / Vrstica 290: @@
 <source></source>
-==Analize liste zapisov===
+==Analize liste zapisov==
-xxx
-===ListAnalyze===
-Metoda '''ListAnalyze''' analizira vse zapise za podano polje v celotni bazi podatkov, in poda minimalno, maksimalno, povprečno vrednost, ter število zapisov.
-<declaration>
-Method|TField.ListAnalyze
-RL|TRecordList|Lista zapisov za analizo.
-Min|ByRef Float|Minimalna vrednost.
-Max|ByRef Float|Maksimalna vrednost.
-Sum|ByRef Float|Vsota vseh vrednosti.
-Cnt|ByRef Long|Število analiziranih podatkov, ki se lahko razlikuje od števila vseh zapisov, če je polje v večkratnem nizu podatkov.
-IsFloat|ByRef Boolean|Vrne vrednost True, če so vsa polja tipa Floating point.
-</declaration>
-<source>Dim Amin, AMax, ASum As Float, ACount as Long, M As Boolean
-Dim F as TField
-F = [Neka palst].GetField ("ImePolja")
-F.ListAnalyze ([NekaPlast].AllRecords, Amin, Amax, Asum, ACount, M)
-Hint ('Minimalna vrednost: ' + FloatToStr (AMin))</source>
-===ListAvg===
+===ListLines===
-Lastnost '''ListAvg''' določa povprečno vrednost za podano polje iz vseh zapisov in vseh nizov. Za podrobnejši opis nizov podatkov in večkratnih zapisov nizov podatkov glej Struktura nizov podatkov.
+Lastnost '''ListLines''' .
 <declaration>
-RO Property|TField.ListAvg
+RO Property|TField.ListLines
 RL|TRecordList|.
-Result|Float|.
+Result|String|.
 </declaration>
-<source>Dim F as TField
+<source></source>
-F = [Neka plast].GetField ("ImePolja")
-Hint ('Povprečje: ' + FloatToStr (F.ListAvg ([Neka palst].AllRecords)))</source>
 ===ListGroupBy===
@@ Vrstica 333: / Vrstica 318: @@
 </declaration>
 <source></source>
+===ListMin===
+Lastnost '''ListMin''' določa minimalno vrednost za podano polje iz vseh zapisov.
+<declaration>
+RO Property|TField.ListMin
+RL|TRecordList|.
+Result|Float|.
+</declaration>
+<source>Dim F as TField
+F = [Neka plast].GetField ("ImePolja")
+Hint ('Povprečje: ' + FloatToStr (F.ListMin ([Neka plast].AllRecords)))</source>
 ===ListMax===
@@ Vrstica 345: / Vrstica 341: @@
 Hint ('Povprečje: ' + FloatToStr (F.ListMax ([Neka past].AllRecords)))</source>
-===ListMin===
+===ListSum===
-Lastnost '''ListMin''' določa minimalno vrednost za podano polje iz vseh zapisov.
+Lastnost '''ListSum''' določa vsoto vseh vrednosti za podano polje iz vseh zapisov.
+<declaration>
+RO Property|TField.ListSum
+RL|TRecordList|.
+Result|Float|.
+</declaration>
+<source>Dim F as TField
+F = [Neka palst].GetField ("ImePolja")
+Hint ('Povprečje: ' + FloatToStr (F.ListSum ([Neka plast].AllRecords)))</source>
+===ListAvg===
+Lastnost '''ListAvg''' določa povprečno vrednost za podano polje iz vseh zapisov in vseh nizov. Za podrobnejši opis nizov podatkov in večkratnih zapisov nizov podatkov glej Struktura nizov podatkov.
 <declaration>
-RO Property|TField.ListMin
+RO Property|TField.ListAvg
 RL|TRecordList|.
 Result|Float|.
@@ Vrstica 354: / Vrstica 361: @@
 <source>Dim F as TField
 F = [Neka plast].GetField ("ImePolja")
-Hint ('Povprečje: ' + FloatToStr (F.ListMin ([Neka plast].AllRecords)))</source>
+Hint ('Povprečje: ' + FloatToStr (F.ListAvg ([Neka palst].AllRecords)))</source>
 ===ListRange===
@@ Vrstica 366: / Vrstica 373: @@
 <source></source>
-===ListSum===
+===ListAnalyze===
-Lastnost '''ListSum''' določa vsoto vseh vrednosti za podano polje iz vseh zapisov.
+Metoda '''ListAnalyze''' analizira vse zapise za podano polje v celotni bazi podatkov, in poda minimalno, maksimalno, povprečno vrednost, ter število zapisov.
 <declaration>
-RO Property|TField.ListSum
+Method|TField.ListAnalyze
-RL|TRecordList|.
+RL|TRecordList|Lista zapisov za analizo.
-Result|Float|.
+Min|ByRef Float|Minimalna vrednost.
+Max|ByRef Float|Maksimalna vrednost.
+Sum|ByRef Float|Vsota vseh vrednosti.
+Cnt|ByRef Long|Število analiziranih podatkov, ki se lahko razlikuje od števila vseh zapisov, če je polje v večkratnem nizu podatkov.
+IsFloat|ByRef Boolean|Vrne vrednost True, če so vsa polja tipa Floating point.
 </declaration>
-<source>Dim F as TField
+<source>Dim Amin, AMax, ASum As Float, ACount as Long, M As Boolean
+Dim F as TField
 F = [Neka palst].GetField ("ImePolja")
-Hint ('Povprečje: ' + FloatToStr (F.ListSum ([Neka plast].AllRecords)))</source>
+F.ListAnalyze ([NekaPlast].AllRecords, Amin, Amax, Asum, ACount, M)
+Hint ('Minimalna vrednost: ' + FloatToStr (AMin))</source>
 ===CurrentRecord===
-Lastnost '''CurrentRecord''' določa trenutno aktiven zapis, ki se bo izpisal, izrisal,... Vrednost je enako kot v primeru [[TLayer.CurrentRecord]] ali [[TDataSet.CurrentRecord]] lastnosti. Ko pride do spremembe, se izvede sprememba tudi v ostalih lastnostih. Ta lastnost se uporablja pri lastnostih razreda TField.
+Lastnost '''CurrentRecord''' določa trenutno aktiven zapis, ki se bo izpisal, izrisal,... Vrednost je enako kot v primeru {{EL|TLayer|CurrentRecord}} ali {{EL|TDataSet|CurrentRecord}} lastnosti. Ko pride do spremembe, se izvede sprememba tudi v ostalih lastnostih. Ta lastnost se uporablja pri lastnostih razreda TField.
 <declaration>
 Property|TField.CurrentRecord
@@ Vrstica 391: / Vrstica 403: @@
 EndIF</source>
-[[Category:Razredi]]
+==Web==
-[[Category:SDMS Basic]]
+===AsHtmlEditor===
+Lastnost '''AsHtmlEditor''' .
+<declaration>
+RO Property|TField.AsHtmlEditor
+Name|String|.
+Class|String|.
+Result|String|.
+</declaration>
+<source></source>
+[[Category:Razredi podatkovne plasti|Field]]
+[[Category:Razredi|Field]]
+[[Category:SDMS Basic|Field]]