TEditRecord

Ta stran je trenutno še v izdelavi.

Razred TEditRecord vsebuje informacije o zapisu, ki se ureja.

Dim ER As TEditRecord, Rec As Trecord, L As Tlayer, FldID1, FldID2 As TField
Dim Y1, X1, Y2, X2 As Float, PA As TPointArray

L = [Neka plast]
ER = CreateEditRecord (L)      // Začetek editiranja zapisa
ER.Append                      // Nov zapis
ER.AppendCopy (Rec)            // Kopiranje novega in prepis podatkov
ER.Edit (Rec}                  // Editiranje obstoječega
                               // Določitev topologije
ER.SetPolygon                  // Določitev topologije - poligon
ER.SetPolyLine                 //                    ali polilinija
If InputLine ( '', Y1, X1, Y2, X2 ) Then
  PA = CreatePointArray
  PA.Add ( 1000, 1000 )
  PA.Add ( 2000, 2000 )
  PA.Add ( Y1, X1 )  
  PA.Add ( Y2, X2 )
  ER.AddPointArray (PA)          // Prepis točk iz PointArray razreda
  ER.SetCentroid ((Y1 + Y2) / 2, (X1 + X2) / 2) // Centroid
  ER.Update
  ER.Edit (Rec}                  // Editiranje obstoječega
  ER.SetPoint (Y1, X1)           // Topologija Točka
  ER.AddPoint (Y1, X1)           // Doda točko
  ER.Update
  ER.Edit (Rec}                  // Editiranje obstoječega
  ER.SetMap (Y1, X1, Y2, X2)     // Topologija - Pravokotnik
  ER.Update
  ER.Edit (Rec}                  // Editiranje obstoječega
  ER.SetCircle (Y1, X1, 100)      // Topologija Krog
  ER.Update
  ER.Edit (Rec}                  // Editiranje obstoječega
  ER.SetArc (Y1, X1, 100, 30, 60)    // Topologija Arc
  ER.Update
  ER.CopyTopology (Rec)           // Prepis topologije iz drugega zapisa
  PA.Destroy
End If
                                // Nastavitev polj
ER.FldAsString (0, 0, FldID1) = 'SomeText'
ER.AddDataSet (1)
ER.FldAsNumber (1, 0, FldID2) = 100
ER.AddDataSet (1)
ER.FldAsNumber (1, 1, FldID2) = 101
ER.Cancel                      // Konec editiranja
ER.Update                      // Dokončan shranitev
ER.Destroy                     // Uničenje editirnega zapisa

Vsebina

1 Zapis
2 Niz podatkov
3 Polja
4 Nastavljanje topologije
5 Prenos zapisa
6 Razno
- 6.1 Destroy
- 6.2 Layer
7 RO Lastnosti zapisa identične TRecord objektu
8 Opuščeno

Zapis

Append

Metoda Append doda nov zapis v podatkovno plast. Dokončna shranitev podatkov, se realizira šele po ukazu Update.

Method TEditRecord.Append

AppendCopy

Metoda AppendCopy doda nov zapis, kopijo Trecord-a, v podatkovno plast. Dokončna shranitev podatkov, se realizira šele po ukazu Update.

Method TEditRecord.AppendCopy (Record As TRecord)
Record	TRecord	TRecord objekt,ki se podvaja in nastavi v editirno stanje.

Edit

Metoda Edit opredeli zapis za editiranje. Zapis se bo spremenil, šele po ukazu Update.

Method TEditRecord.Edit (Record As TRecord)
Record	TRecord	Objekt tipa TRecord.

Record

Lastnost Record nastavi trenutno aktiven zapis v TEditRecord objektu.

WO Property TEditRecord.Record As TRecord
Result	TRecord	.

Update

Metoda Update izvede zapis sprememb v bazo podatkov.

Method TEditRecord.Update

Cancel

Metoda Cancel opusti spremembe editiranega zapisa.

Method TEditRecord.Cancel

IsChanged

Lastnost IsChanged določa vrednost True, če je bil zapis spremenjen, in ga je potrebno osvežiti.

RO Property TEditRecord.IsChanged As Boolean
Result	Boolean	.

Delete

Metoda Delete briše editiran zapis iz baze.

Method TEditRecord.Delete

Niz podatkov

AddDataSet

Metoda AddDataSet doda nov zapis v index-ti niz podatkov. Niz podatkov mora biti opredeljen kot večkratni niz podatkov.

Method TEditRecord.AddDataSet (DaSIndex As Long)
DaSIndex	Long	Zaporedna številka niza podatkov.

DataSetAdd

Metoda DataSetAdd .

Method TEditRecord.DataSetAdd (F As TField)
F	TField	.

DataSetCount

Lastnost DataSetCount določa število večkratnih zapisov v nizu podatkov.

RO Property TEditRecord.DataSetCount (F As TField) As Long
F	TField	Katerokoli polje v nizu podatkov.
Result	Long	.

DataSetDelete

Metoda DataSetDelete .

Method TEditRecord.DataSetDelete (F As TField, RecordDaSIndex As Long)
F	TField	.
RecordDaSIndex	Long	.

DataSetMove

Metoda DataSetMove .

Method TEditRecord.DataSetMove (F As TField, FromRecordDaSIndex, ToRecordDaSIndex As Long)
F	TField	.
FromRecordDaSIndex	Long	.
ToRecordDaSIndex	Long	.

DeleteDataSet

Metoda DeleteDataSet briše vse podatke v opredeljenem nizu podatkov.

Method TEditRecord.DeleteDataSet (DaSIndex, RecordDaSIndex As Long)
DaSIndex	Long	Zaporedno število niza podatkov v plasti.
RecordDaSIndex	Long	Zaporedno število večkratnih nizov podatkov. Če niz podatkov ni opredeljen kot večkratni niz podatkov, potem je ta vrednost 0.

MoveDataSet

Metoda MoveDataSet .

Method TEditRecord.MoveDataSet (DaSIndex, FromRecordDaSIndex, ToRecordDaSIndex As Long)
DaSIndex	Long	.
FromRecordDaSIndex	Long	.
ToRecordDaSIndex	Long	.

Polja

FldAsNumber

Lastnost FldAsNumber določa numerično vrednost polja.

Property TEditRecord.FldAsNumber (Fld As TField) As Float
Fld	TField	Polje opredeljeno kot TField objekt.
Result	Float	Numerična vrednost opredeljenega polja.

FldAsNumberMulti

Lastnost FldAsNumberMulti določa numerično vrednost polja, če je niz podatkov opredeljen kot večkratni niz podatkov.

Property TEditRecord.FldAsNumberMulti (RecordDaSIndex As Long, Fld As TField) As Float
RecordDaSIndex	Long	Zaporedna številka niza podatkov v večkratnem nizu podatkov.
Fld	TField	Polje opredeljeno kot TField objekt.
Result	Float	Numerična vrednost opredeljenega polja.

FldAsString

Lastnost FldAsString določa alfanumerično vrednost polja.

Property TEditRecord.FldAsString (Fld As TField) As String
Fld	TField	Polje opredeljeno kot TField objekt.
Result	String	Alfanumerična vrednost opredeljenega polja.

FldAsStringMulti

Lastnost FldAsStringMulti določa alfanumerično vrednost polja, če je niz podatkov opredeljen kot večkratni niz podatkov.

Property TEditRecord.FldAsStringMulti (RecordDaSIndex As Long, Fld As TField) As String
RecordDaSIndex	Long	Zaporedna številka niza podatkov v večkratnem nizu podatkov.
Fld	TField	Polje opredeljeno kot TField objekt.
Result	String	Alfanumerična vrednost opredeljenega polja.

FldAsBoolean

Lastnost FldAsBoolean določa boolean vrednost polja.

Property TEditRecord.FldAsBoolean (Fld As TField) As Boolean
Fld	TField	Polje opredeljeno kot TField objekt.
Result	Boolean	Boolean (True/False) vrednost opredeljenega polja.

FldAsBooleanMulti

Lastnost FldAsBooleanMulti določa boolean vrednost polja, če je niz podatkov opredeljen kot večkratni niz podatkov.

Property TEditRecord.FldAsBooleanMulti (RecordDaSIndex As Long, Fld As TField) As Boolean
RecordDaSIndex	Long	Zaporedna številka niza podatkov v večkratnem nizu podatkov.
Fld	TField	Polje opredeljeno kot TField objekt.
Result	Boolean	Boolean (True/False) vrednost opredeljenega polja.

Nastavljanje topologije

SetNoTopology

Metoda SetNoTopology .

Method TEditRecord.SetNoTopology

SetPoint

Metoda SetPoint nastavi tip topologije Točka za urejani zapis.

Method TEditRecord.SetPoint (Y, X As Float)
Y	Float	Koordinate točke.
X	Float	Koordinate točke.

SetPointZ

Metoda SetPointZ .

Method TEditRecord.SetPointZ (Y, X, Z As Float)
Y	Float	.
X	Float	.
Z	Float	.

SetPolygon

Metoda SetPolygon nastavi topologijo na poligon. Lomne točke poligona se dodajo z metodo AddPoint ali AddPointArray.

Method TEditRecord.SetPolygon

SetPolyline

Metoda SetPolyline nastavi topologijo na tip polilinija. Lomne točke polilinije se dodajo z metodo AddPoint ali AddPointArray.

Method TEditRecord.SetPolyline

AddPoint

Metoda AddPoint doda novo točko v poliliniji ali poligonu. Prehodno mora biti topološka entiteta opredeljena z SetPolyline ali SetPolygon metodo.

Method TEditRecord.AddPoint (Y, X As Float)
Y	Float	Horizontalna vrednost koordinate, ki se bo dodala v poligon ali polilinijo.
X	Float	Vertikalna vrednost koordinate, ki se bo dodala v poligon ali polilinijo.

AddPointZ

Metoda AddPointZ .

Method TEditRecord.AddPointZ (Y, X, Z As Float)
Y	Float	.
X	Float	.
Z	Float	.

AddPointArray

Metoda AddPointArray doda novo grupo točk v poliliniji ali poligonu. Prehodno mora biti topološka entiteta opredeljena z SetPolyline ali SetPolygon metodo.

Method TEditRecord.AddPointArray (P As TPointArray)
P	TPointArray	Objekt tipa TPointArray, ki vsebuje točke polilinije ali poligona.

SetCentroid

Metoda SetCentroid nastavi centroid za aktivni TEditRecord objekt.

Method TEditRecord.SetCentroid (Y, X As Float)
Y	Float	Koordinate, ki opredeljujejo centroid.
X	Float	Koordinate, ki opredeljujejo centroid.

SetCentroidZ

Metoda SetCentroidZ .

Method TEditRecord.SetCentroidZ (Y, X, Z As Float)
Y	Float	.
X	Float	.
Z	Float	.

SetMap

Metoda SetMap nastavi tip topologije Pravokotnik za urejani zapis.

Method TEditRecord.SetMap (Y1, X1, Y2, X2 As Float)
Y1	Float	Koordinate okna za nastavitev pravokotnika.
X1	Float	Koordinate okna za nastavitev pravokotnika.
Y2	Float	Koordinate okna za nastavitev pravokotnika.
X2	Float	Koordinate okna za nastavitev pravokotnika.

SetCircle

Metoda SetCircle nastavi tip topologije krog, in nastavi center kroga in radij.

Method TEditRecord.SetCircle (Y, X, Radius As Float)
Y	Float	Koordinata centra kroga.
X	Float	Koordinata centra kroga.
Radius	Float	Radij kroga v metrih.

SetArc

Metoda SetArc nastavi tip topologije na lok (Arc), in nastavi center, radij in kote loka.

Method TEditRecord.SetArc (Y, X, Radius, StartAngle, EndAngle As Float)
Y	Float	Koordinata centra loka.
X	Float	Koordinata centra loka.
Radius	Float	Radij loka v metrih.
StartAngle	Float	Začetni kot v decimalnih stopinjah (DMS).
EndAngle	Float	Končni kot v decimalnih stopinjah (DMS).

AutoCentroid

Metoda AutoCentroid .

Method TEditRecord.AutoCentroid

CopyTopology

Metoda CopyTopology kopira topologijo podanega zapisa.

Method TEditRecord.CopyTopology (Source As TRecord)
Source	TRecord	TRecord objekt, iz katerega se bo prekopirala topologija.

Rotate

Metoda Rotate .

Method TEditRecord.Rotate (Y, X, Angle As Float)
Y	Float	.
X	Float	.
Angle	Float	.

Prenos zapisa

Te funkcije so v pomoč pri zapisovanju transaction logov sprememb in za prenos podatkov med podobnimi plastmi.

FixedRecordAsText

Lastnost FixedRecordAsText vsebuje tekstovno obliko zapisanih polj in topologijo zapisa. Vsebuje vsa polja razen navideznih v vseh nizih razen navideznih in topologijo.

RO Property TEditRecord.FixedRecordAsText As String
Result	String	.

FixedDataAsText

Lastnost FixedDataAsText vsebuje tekstovno obliko zapisanih polj zapisa. Vsebuje vsa polja razen navideznih v vseh nizih razen navideznih.

RO Property TEditRecord.FixedDataAsText As String
Result	String	.

RecordAsText

Lastnost RecordAsText vsebuje tekstovno obliko celotnega zapisa. Vsebuje vsa polja v vseh nizih in topologijo.

Property TEditRecord.RecordAsText As String
Result	String	.

DataAsText

Lastnost DataAsText vsebuje tekstovno obliko celotnega zapisa brez topologije. Vsebuje vsa polja v vseh nizih.

Property TEditRecord.DataAsText As String
Result	String	.

TopologyAsText

Lastnost TopologyAsText vsebuje tekstovno obliko topologije.

Property TEditRecord.TopologyAsText As String
Result	String	.

Razno

Destroy

Metoda Destroy uniči objekt razreda TEditRecord.

Method TEditRecord.Destroy

Layer

Lastnost Layer določi plast editiranega zapisa.

RO Property TEditRecord.Layer As TLayer
Result	TLayer	.

RO Lastnosti zapisa identične TRecord objektu

TopologyType

Lastnost TopologyType .

RO Property TEditRecord.TopologyType As Long
Result	Long	.

AngleAtPolyLength

Lastnost AngleAtPolyLength .

RO Property TEditRecord.AngleAtPolyLength (Length As Float) As Float
Length	Float	.
Result	Float	.

BuildError

Lastnost BuildError .

RO Property TEditRecord.BuildError As Long
Result	Long	.

GetBoundingWindow

Lastnost GetBoundingWindow .

RO Property TEditRecord.GetBoundingWindow (Offset As Float) As String
Offset	Float	.
Result	String	.

ID

Lastnost ID .

RO Property TEditRecord.ID As Long
Result	Long	.

MaxX

Lastnost MaxX .

RO Property TEditRecord.MaxX As Float
Result	Float	.

MaxY

Lastnost MaxY .

RO Property TEditRecord.MaxY As Float
Result	Float	.

MaxZ

Lastnost MaxZ .

RO Property TEditRecord.MaxZ As Float
Result	Float	.

MinX

Lastnost MinX .

RO Property TEditRecord.MinX As Float
Result	Float	.

MinY

Lastnost MinY .

RO Property TEditRecord.MinY As Float
Result	Float	.

MinZ

Lastnost MinZ .

RO Property TEditRecord.MinZ As Float
Result	Float	.

PointArray

Lastnost PointArray .

RO Property TEditRecord.PointArray As TPointArray
Result	TPointArray	.

PointArrayExact

Lastnost PointArrayExact .

RO Property TEditRecord.PointArrayExact As TPointArray
Result	TPointArray	.

PointAtPolyLength

Metoda PointAtPolyLength .

Method TEditRecord.PointAtPolyLength (Length As Float, ByRef Y, ByRef X As Float)
Length	Float	.
Y	ByRef Float	.
X	ByRef Float	.

PolyArea

Lastnost PolyArea .

RO Property TEditRecord.PolyArea As Float
Result	Float	.

PolyAreaExact

Lastnost PolyAreaExact .

RO Property TEditRecord.PolyAreaExact As Float
Result	Float	.

PolyCount

Lastnost PolyCount .

RO Property TEditRecord.PolyCount As Long
Result	Long	.

PolyLength

Lastnost PolyLength .

RO Property TEditRecord.PolyLength As Float
Result	Float	.

PolyPerimeter

Lastnost PolyPerimeter .

RO Property TEditRecord.PolyPerimeter As Float
Result	Float	.

PolyX

Lastnost PolyX .

RO Property TEditRecord.PolyX (Index As Long) As Float
Index	Long	.
Result	Float	.

PolyXScreen

Lastnost PolyXScreen .

RO Property TEditRecord.PolyXScreen (Index As Long) As Long
Index	Long	.
Result	Long	.

PolyY

Lastnost PolyY .

RO Property TEditRecord.PolyY (Index As Long) As Float
Index	Long	.
Result	Float	.

PolyYScreen

Lastnost PolyYScreen .

RO Property TEditRecord.PolyYScreen (Index As Long) As Long
Index	Long	.
Result	Long	.

PolyZ

Lastnost PolyZ .

RO Property TEditRecord.PolyZ (Index As Long) As Float
Index	Long	.
Result	Float	.

Radius

Lastnost Radius .

RO Property TEditRecord.Radius As Float
Result	Float	.

StartAngle

Lastnost StartAngle .

RO Property TEditRecord.StartAngle As Float
Result	Float	.

EndAngle

Lastnost EndAngle .

RO Property TEditRecord.EndAngle As Float
Result	Float	.

X

Lastnost X .

RO Property TEditRecord.X As Float
Result	Float	.

Y

Lastnost Y .

RO Property TEditRecord.Y As Float
Result	Float	.

Z

Lastnost Z .

RO Property TEditRecord.Z As Float
Result	Float	.

WindowLocked

Lastnost WindowLocked .

RO Property TEditRecord.WindowLocked As Boolean
Result	Boolean	.

Opuščeno

CountDataSet

Lastnost CountDataSet je opuščena, in namesto katere uporabljajte lastnost DatasetCount.

RO Property TEditRecord.CountDataSet (DaSIndex As Long) As Long
DaSIndex	Long	.
Result	Long	.

FieldAsNumber

Lastnost FieldAsNumber je opuščena, in namesto katere uporabljajte lastnost FldAsNumber.

Property TEditRecord.FieldAsNumber (DaSIndex, RecordDaSIndex, FldID As Long) As Float
DaSIndex	Long	.
RecordDaSIndex	Long	.
FldID	Long	.
Result	Float	.

FieldAsString

Lastnost FieldAsString je opuščena, in namesto katere uporabljajte lastnost FldAsString.

Property TEditRecord.FieldAsString (DaSIndex, RecordDaSIndex, FldID As Long) As String
DaSIndex	Long	.
RecordDaSIndex	Long	.
FldID	Long	.
Result	String	.

RecordInFile

Lastnost RecordInFile ni več v uporabi v verziji 4.2.

RO Property TEditRecord.RecordInFile As TRecord
Result	TRecord	.