delphi7怎么获取txt文本中的某个数值然后作为条件在delphi中查询数据库

delphi 语言作为一个 RAD (快速应用程序开发工具)，提供了大量丰富的控件和函数库，帮助程序开发者可以快捷编写应用代码。

“怎么获取txt文本中的某个数值然后作为条件在delphi中查询数据库 ”，可以分解成两个需要解决的步骤：

1、怎么获取txt文本中的某个数值

获取 txt 文本中的值，可以使用多种手段，例如：

如果 txt 文本是以特定格式（INI 文件），则可以用 TIniFiles 来直接读取出指定的某个数值；

var

  fIni: TIniFile

 aValue: string

begin

 fIni := TIniFIle.Create('d:\test\test.ini')

 aValue := fIni.ReadString('节名', '变量名', '默认值')

end

如果是从大段文本中获取指定的某个数值，可以使用字符串处理函数（如 Pos），比较复杂的可以使用 正则表达式 。

2、将某个数值作为条件在delphi中查询数据库

delphi 提供的数据库支持很强大，比较常用的是 TADOQuery 等，常见的示例代码如下：

Query1.close

Query1.SQL.Clear

Query1.SQL.Add('select * from mytable where 字段名称=数值')

Query1.open

你建一个form，仍

一个

button，一个ADOconnection，一个ADOquery，一个DateTimePicker

下面是button的代码。可以取得SQL的日期

procedure

TForm1.Button1Click(Sender:

TObject)

begin

with

adoquery1

DO

BEGIN

CLOSE

SQL.Clear

SQL.Add('select

getdate()')

OPEN

END

DateTimePicker1.DateTime

:=

adoquery1.Fields[0].AsDateTime

end

str_sql := Format('select * from OrderBill where BillNo between %s and %s', [QuotedStr(edit1.Text), QuotedStr(edit2.Text)])

---