⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 ezindygis.pas

📁 很管用的GIS控件
💻 PAS
📖 第 1 页 / 共 5 页
字号:
🔍
12345 

Function TEzIndyTable.IndexAscending( Value: integer ): Boolean;
Begin
  with TEzIndyClientGIS(FLayer.Layers.GIS).FTCPClient do
  Begin
    WriteLn('DBT_INDEXASCENDING');
    WriteLn(FLayer.Name);
    WriteInteger(Value);
    Result:= ReadSmallInt <> 0;
  End;
End;

Function TEzIndyTable.Index( Const INames, Tag: String ): integer;
var
  atag:string;
Begin
  atag:=tag;
  with TEzIndyClientGIS(FLayer.Layers.GIS).FTCPClient do
  Begin
    WriteLn('DBT_INDEX');
    WriteLn(FLayer.Name);
    WriteLn(INames);
    WriteLn(aTag);
    Result:= ReadInteger;
  End;
End;

Function TEzIndyTable.IndexCurrent: String;
Begin
  with TEzIndyClientGIS(FLayer.Layers.GIS).FTCPClient do
  Begin
    WriteLn('DBT_INDEXCURRENT');
    WriteLn(FLayer.Name);
    Result:= ReadLn;
  End;
End;

Function TEzIndyTable.IndexUnique( Value: integer ): Boolean;
Begin
  with TEzIndyClientGIS(FLayer.Layers.GIS).FTCPClient do
  Begin
    WriteLn('DBT_INDEXUNIQUE');
    WriteLn(FLayer.Name);
    Result:= ReadSmallInt <> 0;
  End;
End;

Function TEzIndyTable.IndexExpression( Value: integer ): String;
Begin
  with TEzIndyClientGIS(FLayer.Layers.GIS).FTCPClient do
  Begin
    WriteLn('DBT_INDEXEXPRESSION');
    WriteLn(FLayer.Name);
    WriteInteger(Value);
    Result:= ReadLn;
  End;
End;

Function TEzIndyTable.IndexTagName( Value: integer ): String;
Begin
  with TEzIndyClientGIS(FLayer.Layers.GIS).FTCPClient do
  Begin
    WriteLn('DBT_INDEXTAGNAME');
    WriteLn(FLayer.Name);
    WriteInteger(Value);
    Result:= ReadLn;
  End;
End;

Function TEzIndyTable.IndexFilter( Value: integer ): String;
Begin
  with TEzIndyClientGIS(FLayer.Layers.GIS).FTCPClient do
  Begin
    WriteLn('DBT_INDEXFILTER');
    WriteLn(FLayer.Name);
    WriteInteger(Value);
    Result:= ReadLn;
  End;
End;

Function TEzIndyTable.IntegerGet( Const FieldName: String ): Integer;
Begin
  with TEzIndyClientGIS(FLayer.Layers.GIS).FTCPClient do
  Begin
    WriteLn('DBT_INTEGERGET');
    WriteLn(FLayer.Name);
    WriteLn(FieldName);
    Result:= ReadInteger;
  End;
End;

Function TEzIndyTable.IntegerGetN( FieldNo: integer ): Integer;
Begin
  with TEzIndyClientGIS(FLayer.Layers.GIS).FTCPClient do
  Begin
    WriteLn('DBT_INTEGERGETN');
    WriteLn(FLayer.Name);
    WriteInteger(FieldNo);
    Result:= ReadInteger;
  End;
End;

Function TEzIndyTable.LogicGet( Const FieldName: String ): Boolean;
Begin
  with TEzIndyClientGIS(FLayer.Layers.GIS).FTCPClient do
  Begin
    WriteLn('DBT_LOGICGET');
    WriteLn(FLayer.Name);
    WriteLn(FieldName);
    Result:= ReadSmallInt<>0;
  End;
End;

Function TEzIndyTable.LogicGetN( FieldNo: integer ): Boolean;
Begin
  with TEzIndyClientGIS(FLayer.Layers.GIS).FTCPClient do
  Begin
    WriteLn('DBT_LOGICGETN');
    WriteLn(FLayer.Name);
    WriteInteger(FieldNo);
    Result:= ReadSmallInt<>0;
  End;
End;

Procedure TEzIndyTable.MemoSave( Const FieldName: String; Stream: TStream );
Begin
  with TEzIndyClientGIS(FLayer.Layers.GIS).FTCPClient do
  Begin
    WriteLn('DBT_MEMOSAVE');
    WriteLn(FLayer.Name);
    WriteLn(FieldName);
{$IFDEF TRANSPORT_COMPRESSED}
    CompressmemStream(TMemoryStream(Stream), 1);
    Stream.Position:= 0;
{$ENDIF}
    OpenWriteBuffer;
    WriteStream(Stream,true,true);
    CloseWriteBuffer;
  End;
End;

Procedure TEzIndyTable.MemoSaveN( FieldNo: integer; Stream: TStream );
Begin
  with TEzIndyClientGIS(FLayer.Layers.GIS).FTCPClient do
  Begin
    WriteLn('DBT_MEMOSAVEN');
    WriteLn(FLayer.Name);
    WriteInteger(FieldNo);
{$IFDEF TRANSPORT_COMPRESSED}
    CompressmemStream(TMemoryStream(Stream), 1);
    Stream.Position:= 0;
{$ENDIF}
    OpenWriteBuffer;
    WriteStream(Stream,true,true);
    CloseWriteBuffer;
  End;
End;

Function TEzIndyTable.MemoSize( Const FieldName: String ): Integer;
Begin
  with TEzIndyClientGIS(FLayer.Layers.GIS).FTCPClient do
  Begin
    WriteLn('DBT_MEMOSIZE');
    WriteLn(FLayer.Name);
    WriteLn(FieldName);
    Result:= ReadInteger;
  End;
End;

Function TEzIndyTable.MemoSizeN( FieldNo: integer ): Integer;
Begin
  with TEzIndyClientGIS(FLayer.Layers.GIS).FTCPClient do
  Begin
    WriteLn('DBT_MEMOSIZEN');
    WriteLn(FLayer.Name);
    WriteInteger(FieldNo);
    Result:= ReadInteger;
  End;
End;

Function TEzIndyTable.RecordCount: Integer;
Begin
  with TEzIndyClientGIS(FLayer.Layers.GIS).FTCPClient do
  Begin
    WriteLn('DBT_RECORDCOUNT');
    WriteLn(FLayer.Name);
    Result:= ReadInteger;
  End;
End;

Function TEzIndyTable.StringGet( Const FieldName: String ): String;
Begin
  with TEzIndyClientGIS(FLayer.Layers.GIS).FTCPClient do
  Begin
    WriteLn('DBT_STRINGGET');
    WriteLn(FLayer.Name);
    WriteLn(FieldName);
    Result:= ReadLn;
  End;
End;

Function TEzIndyTable.StringGetN( FieldNo: integer ): String;
Begin
  with TEzIndyClientGIS(FLayer.Layers.GIS).FTCPClient do
  Begin
    WriteLn('DBT_STRINGGETN');
    WriteLn(FLayer.Name);
    WriteInteger(FieldNo);
    Result:= ReadLn;
  End;
End;

Procedure TEzIndyTable.DatePut( Const FieldName: String; value: TDateTime );
Begin
  with TEzIndyClientGIS(FLayer.Layers.GIS).FTCPClient do
  Begin
    WriteLn('DBT_DATEPUT');
    WriteLn(FLayer.Name);
    WriteLn(FieldName);
    WriteBuffer(value,SizeOf(value));
  End;
End;

Procedure TEzIndyTable.DatePutN( FieldNo: integer; value: TDateTime );
Begin
  with TEzIndyClientGIS(FLayer.Layers.GIS).FTCPClient do
  Begin
    WriteLn('DBT_DATEPUTN');
    WriteLn(FLayer.Name);
    WriteInteger(FieldNo);
    WriteBuffer(value,SizeOf(value));
  End;
End;

Procedure TEzIndyTable.Delete;
Begin
  with TEzIndyClientGIS(FLayer.Layers.GIS).FTCPClient do
  Begin
    WriteLn('DBT_DELETE');
    WriteLn(FLayer.Name);
  End;
End;

Procedure TEzIndyTable.Edit;
Begin
  with TEzIndyClientGIS(FLayer.Layers.GIS).FTCPClient do
  Begin
    WriteLn('DBT_EDIT');
    WriteLn(FLayer.Name);
  End;
End;

Procedure TEzIndyTable.FieldPut( Const FieldName, Value: String );
Begin
  with TEzIndyClientGIS(FLayer.Layers.GIS).FTCPClient do
  Begin
    WriteLn('DBT_FIELDPUT');
    WriteLn(FLayer.Name);
    WriteLn(FieldName);
    WriteLn(Value);
  End;
End;

Procedure TEzIndyTable.FieldPutN( FieldNo: integer; Const Value: String );
Begin
  with TEzIndyClientGIS(FLayer.Layers.GIS).FTCPClient do
  Begin
    WriteLn('DBT_FIELDPUTN');
    WriteLn(FLayer.Name);
    WriteInteger(FieldNo);
    WriteLn(Value);
  End;
End;

Procedure TEzIndyTable.First;
Begin
  with TEzIndyClientGIS(FLayer.Layers.GIS).FTCPClient do
  Begin
    WriteLn('DBT_FIRST');
    WriteLn(FLayer.Name);
  End;
End;

Procedure TEzIndyTable.FloatPut( Const FieldName: String; Const Value: Double );
Begin
  with TEzIndyClientGIS(FLayer.Layers.GIS).FTCPClient do
  Begin
    WriteLn('DBT_FLOATPUT');
    WriteLn(FLayer.Name);
    WriteLn(FieldName);
    WriteBuffer(Value,SizeOf(value));
  End;
End;

Procedure TEzIndyTable.FloatPutN( FieldNo: integer; Const Value: Double );
Begin
  with TEzIndyClientGIS(FLayer.Layers.GIS).FTCPClient do
  Begin
    WriteLn('DBT_FLOATPUTN');
    WriteLn(FLayer.Name);
    WriteInteger(FieldNo);
    WriteBuffer(Value,SizeOf(value));
  End;
End;

Procedure TEzIndyTable.FlushDB;
Begin
  with TEzIndyClientGIS(FLayer.Layers.GIS).FTCPClient do
  Begin
    WriteLn('DBT_FLUSHDB');
    WriteLn(FLayer.Name);
  End;
End;

Procedure TEzIndyTable.Go( n: Integer );
Begin
  with TEzIndyClientGIS(FLayer.Layers.GIS).FTCPClient do
  Begin
    WriteLn('DBT_GO');
    WriteLn(FLayer.Name);
    WriteInteger(n);
  End;
End;

Procedure TEzIndyTable.IndexOn( Const IName, tag, keyexp, forexp: String;
  uniq: TEzIndexUnique; ascnd: TEzSortStatus );
var
  atag:string;
Begin
  atag:=tag;
  with TEzIndyClientGIS(FLayer.Layers.GIS).FTCPClient do
  Begin
    WriteLn('DBT_INDEXON');
    WriteLn(FLayer.Name);
    WriteLn(IName);
    WriteLn(aTag);
    WriteLn(keyexp);
    WriteLn(forexp);
    WriteSmallInt(ord(uniq));
    WriteSmallInt(ord(ascnd));
  End;
End;

Procedure TEzIndyTable.IntegerPut( Const Fieldname: String; Value: Integer );
Begin
  with TEzIndyClientGIS(FLayer.Layers.GIS).FTCPClient do
  Begin
    WriteLn('DBT_INTEGERPUT');
    WriteLn(FLayer.Name);
    WriteLn(Fieldname);
    WriteInteger(value);
  End;
End;

Procedure TEzIndyTable.IntegerPutN( FieldNo: integer; Value: Integer );
Begin
  with TEzIndyClientGIS(FLayer.Layers.GIS).FTCPClient do
  Begin
    WriteLn('DBT_INTEGERPUTN');
    WriteLn(FLayer.Name);
    WriteInteger(FieldNo);
    WriteInteger(value);
  End;
End;

Procedure TEzIndyTable.Last;
Begin
  with TEzIndyClientGIS(FLayer.Layers.GIS).FTCPClient do
  Begin
    WriteLn('DBT_LAST');
    WriteLn(FLayer.Name);
  End;
End;

Procedure TEzIndyTable.LogicPut( Const fieldname: String; value: Boolean );
Begin
  with TEzIndyClientGIS(FLayer.Layers.GIS).FTCPClient do
  Begin
    WriteLn('DBT_LOGICPUT');
    WriteLn(FLayer.Name);
    WriteLn(FieldName);
    WriteSmallInt(Ord(value));
  End;
End;

Procedure TEzIndyTable.LogicPutN( fieldno: integer; value: Boolean );
Begin
  with TEzIndyClientGIS(FLayer.Layers.GIS).FTCPClient do
  Begin
    WriteLn('DBT_LOGICPUTN');
    WriteLn(FLayer.Name);
    WriteInteger(FieldNo);
    WriteSmallInt(Ord(value));
  End;
End;

Procedure TEzIndyTable.MemoLoad( Const fieldname: String; stream: TStream );
Begin
  with TEzIndyClientGIS(FLayer.Layers.GIS).FTCPClient do
  Begin
    WriteLn('DBT_MEMOLOAD');
    WriteLn(FLayer.Name);
    WriteLn(FieldName);
    ReadStream(Stream,-1,False);
{$IFDEF TRANSPORT_COMPRESSED}
    Stream.Position:= 0;
    DeCompressmemStream(TMemoryStream(Stream));
{$ENDIF}
    Stream.Position:= 0;
  End;
End;

Procedure TEzIndyTable.MemoLoadN( fieldno: integer; stream: TStream );
Begin
  with TEzIndyClientGIS(FLayer.Layers.GIS).FTCPClient do
  Begin
    WriteLn('DBT_MEMOLOADN');
    WriteLn(FLayer.Name);
    WriteInteger(FieldNo);
    ReadStream(Stream,-1,False);
{$IFDEF TRANSPORT_COMPRESSED}
    Stream.Position:= 0;
    DeCompressmemStream(TMemoryStream(Stream));
{$ENDIF}
    Stream.Position:= 0;
  End;
End;

Procedure TEzIndyTable.Next;
Begin
  with TEzIndyClientGIS(FLayer.Layers.GIS).FTCPClient do
  Begin
    WriteLn('DBT_NEXT');
    WriteLn(FLayer.Name);
  End;
End;

Procedure TEzIndyTable.Pack;
Begin
  with TEzIndyClientGIS(FLayer.Layers.GIS).FTCPClient do
  Begin
    WriteLn('DBT_PACK');
    WriteLn(FLayer.Name);
  End;
End;

Procedure TEzIndyTable.Post;
Begin
  with TEzIndyClientGIS(FLayer.Layers.GIS).FTCPClient do
  Begin
    WriteLn('DBT_POST');
    WriteLn(FLayer.Name);
  End;
End;

Procedure TEzIndyTable.Prior;
Begin
  with TEzIndyClientGIS(FLayer.Layers.GIS).FTCPClient do
  Begin
    WriteLn('DBT_PRIOR');
    WriteLn(FLayer.Name);
  End;
End;

Procedure TEzIndyTable.Recall;
12345

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -