Delphi 利用TStringList 构建简单数据库

最新推荐文章于 2019-12-13 10:09:26 发布

GsBaoge

最新推荐文章于 2019-12-13 10:09:26 发布

阅读量1.1k

点赞数

文章标签： delphi integer function string destructor constructor

本文链接：https://blog.csdn.net/GsBaoge/article/details/2037370

版权

本文介绍如何利用Delphi的TStringList组件创建一个简单的数据库，无需额外的数据引擎，适用于小型数据库工程。通过TTextData类实现增删查改操作，并提供了包括First, Last, Next, Previous等导航方法。" 132158225,7337247,图像识别算法解析：分类、检测、分割与关联,"['图像识别', '机器学习', '计算机视觉', '算法', '图像处理']

摘要由CSDN通过智能技术生成

Delphi 的数据库功能很是强大。但是笔者使用中却面临着很多问题。其次开发一个小型数据库工程，也因为使用BDE 增加了文件的大小，和发布的难度。在笔者的使用途中发现了TStringList,的许多优点，下文通过TStringList 制作了一个简单的数据库，它不需要安装任何数据引擎，就可以工作:

unit UnitTextData;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TTextData = Class(TPersistent)
private
    { Private declarations }
    FBase: TStringList;
    FPath: String;
    FtmpStr: TStringList;
    FFieldNames: TStringList;
    FPoint: Integer;
    FFReSult: array of Integer;
    FFPoint: Integer;

    function GetFieldValue(FieldName: String): String;
    procedure SetFieldValue(FieldName: String;
                            Value: String);
    procedure GetFieldNames;
    function IsBof: Boolean;
    function IsEof: Boolean;
    function FRecCount: Integer;
    function GetFindCount: Integer;
    function GetCurRecord: PString;
protected
    { Protected declarations }
public
    { Public declarations }
    constructor Create(FileName: String);
    destructor Destroy; override;
    procedure First;
    procedure Last;
    procedure Previous;
    procedure Next;
    function FindNo(No: Integer): Boolean;
    property FieldValues[FieldName: String]: String
             read GetFieldValue write SetFieldValue;
    procedure InsertRec(Index: Integer);
    procedure AppendRec;
    procedure DeleteRec(Index: Integer);
    function FindRec(Field: String;