TFDQuery.SQL -通过TEdit更改SQL语句
TFDQuery.SQL是一个属性，它是FireDAC组件库中的一个查询组件TFDQuery的一个属性。TFDQuery是一个用于执行SQL查询的组件，它可以与各种数据库进行交互。
通过TEdit更改SQL语句是指使用TEdit组件来动态修改TFDQuery.SQL属性中的SQL语句。TEdit是一个用于接收和显示用户输入的文本框组件，它可以让用户在运行时输入文本。
在使用TFDQuery组件时，可以通过修改TFDQuery.SQL属性中的SQL语句来实现不同的查询操作。通过使用TEdit组件，我们可以在运行时获取用户输入的文本，并将其作为SQL语句的一部分，从而实现动态修改SQL语句的功能。
TFDQuery.SQL属性的修改可以通过以下步骤实现：
- 将一个TEdit组件放置在界面上，用于接收用户输入的文本。
- 在代码中，通过访问TEdit.Text属性获取用户输入的文本。
- 将获取到的文本与原始的SQL语句进行拼接，生成新的SQL语句。
- 将新的SQL语句赋值给TFDQuery.SQL属性，以更新查询操作。
TFDQuery.SQL属性的修改可以用于各种场景，例如：
- 动态过滤数据：根据用户输入的条件，在SQL语句中添加WHERE子句，从而实现数据的动态过滤。
- 动态排序数据：根据用户选择的排序方式，在SQL语句中添加ORDER BY子句，从而实现数据的动态排序。
- 动态插入、更新和删除数据：根据用户输入的数值，在SQL语句中添加相应的INSERT、UPDATE或DELETE语句，从而实现数据的动态操作。
腾讯云提供了一系列与云计算相关的产品，其中包括数据库、服务器、存储等。根据具体的需求，可以选择适合的产品来支持云计算应用。以下是一些腾讯云产品的介绍链接：
- 云数据库 TencentDB：https://cloud.tencent.com/product/cdb
- 云服务器 CVM：https://cloud.tencent.com/product/cvm
- 云存储 COS：https://cloud.tencent.com/product/cos
- 云函数 SCF：https://cloud.tencent.com/product/scf
请注意，以上链接仅供参考，具体选择产品时需要根据实际需求进行评估和比较。
相关·内容
2回答
在运行时更改数据库查询
、、、、
我正在尝试通过TEdit过滤TDBGrid，处理TEdit onChange事件。我有一个TIBQuery来列出网格中的所有记录：
SELECT id,obra,cliente,fecha,nro_estudio,sondeo FROM proyecto;
当用户在TEdit中插入字符时，网格必须由Cliente字段刷新。
我的代码试图做到这一点，但是当它执行处理程序时，查询返回一个空的结果集。我使用的是Firebird 2.5和IB组件。
相关代码：
query := Self.qryTodos;
query.Close();
query.SQL.Clear();
query.SQL.Add
浏览 1提问于2013-07-09得票数 0
我有下面这条SQL语句，但它返回：“将varchar转换为numeric时出错”
ADOTailles.SQL.Text := 'INSERT INTO tailles (numOF, taille, quantite, prixVente) VALUES(''' + numOF.Text + ''',''' + C.Caption + ''',''' + Q.Text + ''',''' + P.Text + '
浏览 0提问于2011-10-11得票数 0
回答已采纳
3回答
我对delphi非常陌生，我想问如何在delphi中创建正确的SQL语句/ SQL字符串。
我试过这样的方法：
sql:='use [TestovaciaDb] INSERT INTO [dbo].[client]([Meno],[Priezvisko]) VALUES('+name+','+surname+')';
我正在使用MS SQL server 2012。
但我在那里有个例外。谢谢
编辑：
meno和priez是具有TEdit1和TEdit2值的变量。
meno:= Edit1.Text;
priez:= Edit2.Text;
浏览 0提问于2014-03-18得票数 0
回答已采纳
1回答
当在TComboBox中选择一个项目时，我尝试将组的值从数据库传递到TEdit中。但是，返回的值应该是字符串，而不是整数。在组的文本字段中，返回值为0。有人能帮我吗？
这是文本字段的代码，它应根据在TComboBox中选择的项目返回组数据
ADOQuery1.SQL.Clear;
rf := ADOQuery1.SQL.Add('SELECT grouppp FROM f3_sheet WHERE holder = "' +cb1.Text +'"');
gpp.Text := rf;
浏览 7提问于2021-07-08得票数 1
那里。我试图通过使用for循环将所有字段名称添加到WHERE子句中来搜索sql表的任何列中包含的字符串。此外，我还使用参数来防止SQL注入。但是当我运行时，我会遇到这样的错误：
未指定错误
这是如何解决的，问题是什么(不一定是按照这个顺序)。这是我的密码。我在运行Delphi 7
procedure TfrmView.edtSearchChange(Sender: TObject);
var
i, i2: integer;
obj: TEdit;
QueryText: string;
begin
obj:= Sender as TEdit;
with dmInfo
浏览 2提问于2016-08-14得票数 0
我正在尝试通过TEdit访问我的SQL查询--只是为了在运行时更改查询以进行测试。 所以我只构建了一个简单的TEdit字段。我正在努力理解在FDQuery.SQL中访问保存的字符串的方法-它像数组一样保存吗？ 也许有人可以给我一个关于如何通过TEdit编辑查询的提示。 TEdit.Text := FDQuery1.SQL.Strings['Simply a text string?'];
浏览 11提问于2021-01-14得票数 1
回答已采纳
我是用delphi编程的新手。我目前正在创建一个简单的笔记本程序，我需要一些帮助。我有一个名为contacts的表单，它包含5个tEdit字段。我想我可以在我的sybase数据库中创建一个存储过程，将记录插入到联系人表中，这样我就可以用我的delphi程序调用它。我在德尔菲怎么称呼这个程序？要插入的值应该从用户输入到这些tEdit字段中获取。有人有什么建议吗？还是我想错了？提前感谢
浏览 0提问于2014-11-09得票数 1
回答已采纳
我有一个包含多种类型TObject的字典(例如，TEdit、TComboBox、TButton等)。 我想遍历它们中的每一个，并对每个控件的强制转换版本执行一些操作，但我不想检查每个控件的类型和强制转换，因为如果我有10个不同的控件，我必须执行10个不同的if检查。下面是我现在的代码： for LInputItem in FInputFactory do
begin
if(LInputItem.Value.ClassName = 'TEdit') then begin
(TEdit(LInputItem.Value)).Whatever;
end else i
浏览 21提问于2019-05-14得票数 1
回答已采纳
1回答
我想更新和删除我的记录。我使用dbgrid来显示数据库，并使用uniquery进行查询。我成功地执行了insert查询，但没有使用update和delete。
这是我的代码：
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Grids, Vcl.DBGrids, Data.DB,
DBAccess,
浏览 1提问于2016-05-09得票数 0
回答已采纳
我正在设置一个dbgrid，并且在我的sql查询中有一个tbutton和tedit字段。我在dbgrid中接收结果，但每次都会刷新结果。我想知道如何调整代码，以便在通过tedit box传递sql查询时将每个新的查询结果添加到dbgrid中。
浏览 0提问于2017-02-14得票数 0
目前，当iOS TEdit弹出键盘时，键盘的第一个字母是大写字母。
我想关闭键盘自动进入首字母大写为特定的TEdit。有些名字我想保留第一个字母的大写，例如TEdits。
我不能使用TEdit.CharCase功能，因为它强制TEdit中的所有输入都是小写的。
我想要的是，用户可以键入大小写混合，如果他们选择，但键盘必须是小写时，TEdit第一次进入焦点。
在Delphi 10.4.1中如何做到这一点？
浏览 1提问于2020-12-15得票数 2
有一种方法可以用Tcomponent进行案例陈述？，我的意思是：
begin
case Form1.Components[i] of
TEdit: //do something;
TMenuItem: //Do Something;
TButton: //Do Somtehing;
end;
end;
我知道能做到这一点：
if (Form1.components[i] is TEdit) then
...
但我只想知道如果可能的话用案例陈述。
致以问候。
浏览 3提问于2016-04-29得票数 1
回答已采纳
下面是我的自定义TEdit控件的示例代码。
type
TEdit = class(Vcl.StdCtrls.TEdit)
private
//FTextM : TEXTMETRIC;
public
constructor Create(AOwner : TComponent); override;
end;
constructor TEdit.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
BorderStyle := bsNone;
Text := ''
浏览 0提问于2018-08-12得票数 3
如何在Delphi中限制TEdit上可接受的输入日语字符？
我在Delphi XE8中有一个只需要输入日语字符的TEdit，那我该怎么做呢？
浏览 29提问于2017-01-19得票数 1
我的工作是动态创建多个不同类型的控件，并在后台将它们存储在列表中。其中两个控件是TEdit和TLabel。这些控件都是TPanel控件的子控件。
我在从TPanel.Controls读取数据(从错误的索引中获取它们)时，在写入TEdit.Text和TLabel.Caption属性时，意外地将TLabel和TEdit.Text混淆了。不知何故，它甚至没有引发任何异常。
它执行类似TLabel(SomeEditControl).Caption:= 'This is a label control';和TEdit(SomeLabelControl).Text:= 'This
浏览 1提问于2011-12-19得票数 5
回答已采纳
1回答
我创建了一个TForm来创建Access数据库中的新用户。
我创建了DBedit1，它用change事件更新Edit1。如果在我的TEdit文件中输入完全新的数据，然后按“插入到查询中的保存”，它就可以保存数据，而不会出现任何问题。
procedure TFNewUser.BtnSaveClick(Sender: TObject);
begin
if (Edit1.Text = '') or (Edit2.Text='') or (Edit3.Text='') or (Edit4.Text='') then begin
浏览 2提问于2017-08-01得票数 0
回答已采纳
在火猴下，如何设置Tedit提示符的颜色(仅在windows下)？当Tedit文本字符串为空时，Tedit将显示提示字符串，我需要找到一种方法来自定义它的颜色
浏览 0提问于2017-05-22得票数 0
当TEdit控件没有焦点时，我尝试在它上实现自己的绘图(当编辑器没有完全显示其文本时，在TEdit中显示省略号)。所以我用这个代码标记了א编辑：
type
TEdit = class(StdCtrls.TEdit)
private
FEllipsis: Boolean;
FCanvas: TCanvas;
procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
public
constructor Create(AOwner: TComponent); override;
des
浏览 3提问于2017-10-31得票数 8
回答已采纳
3回答
火猴TEdit高度
、、、
我正在使用Delphi西雅图，我的应用程序是Windows。
我试图改变TEdit的字体大小。因此，高度也进行了修改。在设计时，一切都很好，但是当我运行应用程序时，TEdit忽略了高度修改，文本被剪切。
我试图按照建议的FixedHeight找到，但是我找不到这个属性。
有可能改变TEdit海格特吗？
浏览 4提问于2016-04-07得票数 5
回答已采纳
好吧，我来自C#背景。这没有保存到Mysql数据库表中。我努力让它与数据库通信，但它没有插入到数据库表中。它只显示了消息框，但是当我刷新时，数据库中什么也没有显示。代码如下所示
unit mysqlConn;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, sqldb, mysql56conn, Forms, Controls, Graphics,
Dialogs, StdCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
浏览 0提问于2019-03-13得票数 0
1回答
我有以下代码：
import QtQuick 2.4
import QtQuick.Controls 1.4
ApplicationWindow
{
id: myWindow2
title: qsTr("test window")
x: 500
y: 200
width: 800
height: 600
visible: true
TextEdit
{
id: tEdit
anchors.fill: parent
MouseArea
{
浏览 11提问于2016-09-06得票数 1
回答已采纳
3回答
我想创建一个带有twebbrowser和tedit box的表单，如果需要，可以创建更多。
然后假设，我希望浏览器在google.com上，当我在搜索栏中输入时，我希望它也在tedit中输入。Best将同时出现，但如果我单击离开，它也会填入tedit框中。我只想了解这是如何工作的，在网站上键入，并有编辑框自动键入以及。
有人能帮我吗？
浏览 0提问于2011-02-03得票数 0
回答已采纳
我正在尝试为我用Inno Setup Compiler 5.5.1制作的安装程序编写一些Pascal脚本。我目前正在尝试添加一个自定义向导页面，用于执行命令，从文本字段(TEdit组件)获取用户输入。我定义了NextButtonClick函数，它检查页面ID是否为我定义的自定义页面，并尝试从字段中检索用户输入。当我从页面的Surface属性的组件中获取它时，它将作为TComponent返回。要获得下一个，我需要将其强制转换为TEdit，所以我尝试强制转换它，但它似乎返回了nil。除了过去几天我一直在为Inno编写脚本外，我对Pascal没有太多的经验，所以我可能做错了什么。但如果能帮上忙我会很
浏览 0提问于2012-07-27得票数 3
回答已采纳
3回答
如何组合以下两个查询，以便获得两个列PAYMODE和PAYTYPE。这两个查询是相似的，并且对于相同的table.Combine，将两个sql查询合并到一个查询中，这样我就不需要执行两个单独的查询。
SELECT ETBL_DESC_TXT as PAYMODE
FROM tedit
WHERE CO_ID = 'CP'
AND ETBL_TYP_ID = 'PMODE'
AND ETBL_VALU_ID = 'RC'
select ETBL_DESC_TXT as PAYTYPE
FROM tedit
WHERE CO_ID = &
浏览 3提问于2012-12-05得票数 2
我在Pascal中得到了一个错误，根据我的研究，这是由于一个声明错误(类或变量)。它必须是一些小的东西，因为它工作得很好。我真的很感谢你的帮助。
更确切地说，我得到的错误是：
‘外部:访问冲突’与消息: Accedd违规从地址$000004A8读取。第66行: Efa.Text:=D.Fa；
unit UnidadProyectoInformaticaUno;
{$mode objfpc}{$H+}{$R+}{$Q+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls,Ma
浏览 5提问于2022-03-01得票数 0
1回答
当在右边使用TEdit控件时，保持小图标'x‘。点击图标后如何清除TEdit框。
Tnx全部！
浏览 0提问于2018-09-23得票数 1
回答已采纳
通过这个代码示例通过Delphi客户端库运行Req/Resp。想知道通过给请求参数提供值的例子是否可以是动态的吗？
该值在示例中是硬编码的，并链接了一个TEdit按钮，但我不知道如何将值从TEdit输入传递给请求参数。
截图：
浏览 3提问于2017-05-27得票数 1
回答已采纳
在我们的公司中，我们使用了一个非常强大的TCustomButton的后代。
对于一个新的应用程序，我想要一个基本上行为像"Speedbtn“的按钮，它没有TabStop，特别是不会窃取其他控件的焦点，比如TEdit。如果我能够处理我们的TCustomButton后代，我会很高兴，这样我就不必编写一个全新的按钮组件，为此我必须实现我们的TCustomButton后代已经提供的许多东西(比如企业设计等)。
我知道这不是一件容易的事，因为据我所知，点击按钮会触发消息聚焦(这会抢占Tedit的焦点)，这取决于windows中的注册表("TCustomButton.CreateParam
浏览 10提问于2019-04-08得票数 0
Delphi支持通用的IInterface。我有以下使用泛型IInterface的构造
type
IVisitor<T> = interface
['{9C353AD4-6A3A-44FD-B924-39B86A4CB14D}']
procedure Visit(o: T);
end;
TMyVisitor = class(TInterfacedObject, IVisitor<TButton>, IVisitor<TEdit>)
procedure Visit(o: TButton); overload;
浏览 6提问于2014-11-24得票数 3
回答已采纳
如何在模式中使用TEdit时更改TEdit的默认错误消息。我是说这个错误：
不可接受的字符您只能在这里键入一个数字
有可能改变这条信息吗？
浏览 3提问于2011-08-01得票数 9
回答已采纳
1回答
我在这里有一个我不明白的问题：
procedure TMain.THREAD_SYNC(
AProgressBar: TProgressBar;
ARemoteData: array of RemoteDATA;
ALocalData : array of LocalDATA;
Number : integer;
AInfo : TEdit);
如果我给它分配如下“较小的数组”，下面的过程工作得很好
THREAD_SYNC(Remote,Local
浏览 0提问于2018-10-01得票数 4
回答已采纳
1回答
单击按钮时，我正在创建一个临时TEdit。当再次单击按钮时，我想要处理TEdit的文本，然后删除TEdit。我的问题是，当TEdit仍处于编辑模式时，我无法删除它。
我如何使TEdit禁用焦点，以便我可以摧毁它？
浏览 3提问于2013-09-11得票数 0
回答已采纳
如果我创建一个如下所示的方法：
function Login : boolean;
begin
with TMyForm.Create(Application) do
Result := ShowModal = mrOk;
end;
在dpr中
begin
Application.Initialize;
if Login then
begin
Application.CreateForm(TMainForm, MainForm);
Application.Run;
end
else
Application.Terminate;
end.
浏览 0提问于2016-02-24得票数 0
1回答
我有一个主窗口，它有一个TEdit和一个需要句柄的TButton。它们都在TPanel中。到目前为止我的代码是
public void SendPacket(string packet)
{
IntPtr hWnd = Window.FindWindow(null, "AlissaAnalyzer");
IntPtr panel = Window.FindWindowEx(hWnd, IntPtr.Zero, "TPanel", "");
IntPtr edithWnd = Wind
浏览 0提问于2012-01-02得票数 2
回答已采纳
以避免输入单引号。但是在编译项目时出错了：
致命错误StdCtrls.pas(1238)：单元对话框用不同版本的StdCtrls.TEdit编译
浏览 4提问于2010-09-02得票数 1
我有一个PageControl对象，它在单独的选项卡中有几个页面。每个选项卡包含许多对象，如TEdits和TComboBoxes。假设我在"Tab A“中，在TEdit中输入文本，然后将软件选项卡更改为"Tab B”，然后返回到"Tab A“。然后TEdit不再被选中，所以我需要再次选择它来继续编写。
现在来问我的问题:在更改选项卡之前，如何保存/获取/存储所选对象，以便在返回到前一个选项卡时返回到同一个对象？
谢谢!
2018-02-15最新情况：
谢谢@ExDev！
Screen.ActiveControl是我要找的东西！我就这样解决了：
var
Focus
浏览 1提问于2018-02-13得票数 3
我有一个带有隐藏TEdit组件的自定义样式TListBoxItem。当我在列表框中选择一项时，我将TEdit设置为可见：
importFiles.Selected.StylesData['nameEdit.visible'] := TRUE;
但是我有一个问题，我如何为TEdit设置焦点？通常，我是这样做的：
Edit1.SetFocus();
你有什么想法，我该怎么把焦点放在TEdit上？
浏览 1提问于2013-07-18得票数 0
回答已采纳
我有一个非常基本的问题，我不知道为什么。当字段接收到焦点时，我希望选择TEdit的文本。在使用VCL的Delphi7中，您可以在OnEnter事件中做到这一点：
TEdit(Sender).SelLength := Length(TEdit(Sender).Text)
现在，在Delphi10.2和FireMonkey中，我尝试了几种不同的方法，但都不起作用。
示例：
procedure TfPrincipal.Edit1Enter(Sender: TObject);
begin
TEdit(Sender).SetFocus;
TEdit(Sender).SelStart :=
浏览 0提问于2017-12-21得票数 3
当按钮被点击时，我使用下拉菜单中的一个按钮来重定向。该按钮还有一个id="“属性，其中包含我想要发布到重定向页面的ID。为此，我使用了github的。
当我点击按钮时，什么都没有发生，我正在使用firebug，并且控制台中没有出现错误。我哪里错了？
这是脚本
<script type="text/javascript">
$( document ).ready(function() {
$(".triangle input[name='tedit&
浏览 0提问于2016-04-17得票数 0
我正在做一个触摸系统(Windows)，它需要数字键盘来插入用户、手动输入、密码、退出系统。我更喜欢创建Button，但是属性Font不起作用。
我创建了一个类：
unit uKeyboard;
interface
uses
FMX.Edit, FMX.StdCtrls, FMX.Layouts, SysUtils;
type
TKeyboard = class(TObject)
btnk : array [0..9] of TButton;
btnx : TButton;
btnbs : TButton;
edtk : TEdit;
浏览 1提问于2021-03-25得票数 1
回答已采纳
我正在使用Delphi 10与火猴，我是有点新的。我有一个用TStringGrid绑定到access数据库的LiveBindings。我需要的是，当我按下按钮或输入任何键时，用TstringGrid文本过滤这个表或TEdit，并将其显示在相同的TStringGrid中。就像自定义搜索/筛选框一样。
我还没有这方面的代码。但我觉得这就像个问话。
procedure TForm3.Edit2Typing(Sender: TObject); begin adoquery1.Close; adoquery1.SQL.Text:='select * from instrutor where no
浏览 0提问于2015-11-14得票数 1
回答已采纳
我有一个ADO连接字符串：
Provider=SQLOLEDB.1;Data Source=MYCOMPUTER\SQL2008;User ID=GuestUser;Password=password;Persist Security Info=True;Initial Catalog=DefaultDatabase;
我希望将字符串的特定部分读取到各种TEdit控件中。有没有一个函数可以为我解析这些信息，或者我需要在分号处拆分字符串，然后再用等号拆分字符串，并读取字符串数组的第一个索引？
浏览 4提问于2013-06-25得票数 1
1回答
我的目的是，当数字输入到小于7位的TCheckBox时，用户将永远无法检查TEdit。此外，当TCheckBox为空时，永远无法检查此TEdit。
我的代码的一个问题是，虽然TCheckBox是空的，但有时仍然可以检查TEdit。
此外，我的另一个目标是，当TCheckBox被选中时，当TEdit为空时，启动按钮将永远不会被执行，或者如果单击start按钮，将始终显示错误消息。
问题是我应该在“开始”按钮中放什么代码？
我使用以下代码：
//-----------------------------------------------------------------------------
浏览 1提问于2015-08-12得票数 0
回答已采纳
你好，所以我想知道是否可以做这样的事情：
在启动TEdit(Edit1)被禁用-所以编辑1启用:=假；
当用户单击TEdit时，它将被启用，并且会执行其他操作，我尝试过使用Edit1.onClick，但它似乎不起作用，因为它已被禁用。
浏览 1提问于2019-01-16得票数 1
回答已采纳
此函数创建TEdit类型的控件对象，并将其返回到恰好从中调用它的代码中的任何行：
function TBaseForm.CreateEdit(AOwner: TWinControl;
inTop, inLeft, inWidth: integer) : TEdit;
var
edt: TEdit;
begin
edt := TEdit.Create(AOwner);
with edt do begin
Parent := AOwner;
Width := inWidth;
浏览 0提问于2013-04-21得票数 1
回答已采纳
我有一段代码，如下所示：
界面部分：
TControlOrganizer = class(TComponent) // a kind of List of TControl
private
FList : TList; //Handling list of TControl
..............
end;
TControlHelperAdd = class // Just for separating value entered by user and value produced by code
private
FOrganizer : TControlOr
浏览 0提问于2012-12-11得票数 4
回答已采纳
我在表单上放置了一个TEdit控件作为密码。我的目标是，让TEdit控件在未聚焦时显示星号，以避免其他人看到它，并显示密码，以便在焦点集中时允许编辑。
为此，我添加了OnEnter和OnExit处理程序，相应地将PasswordChar属性设置为#0和'*‘。
这在Delphi 7中运行良好，但在Delphi西雅图出现了错误，TEdit控件陷入了一种奇怪的状态，它没有显示闪烁的编辑光标，也没有显示OnEnter事件触发后突出显示的蓝色背景选择(其中PasswordChar设置为#0)。
我在调试模式下进入了TEdit控件源代码，发现TEdit控件在设置PasswordChar时将重新创
浏览 3提问于2016-06-01得票数 0
回答已采纳
我有一个业务对象，我想要更好地“连接”到我的UI。我已经看到了一些使对象具有数据意识的部分解决方案，但它们都涉及对我的业务对象的重大更改，包括额外的抽象层。
我一直在研究Delphi的新版本中改进的RTTI，它看起来非常有趣和有用。我想知道我是否可以使用它来以编程方式为所有属性注入新的写入方法。
这样做的方式是，在构建表单时，我的TEdit后代将被赋予对对象属性的引用。然后，TEdit将在该属性的属性中插入对其自身的引用(当然，还会在析构函数上删除自身，或者被赋予另一个引用)。TEdit还将确保属性的write方法被替换为在调用原始write方法后通知TEdit更改的方法。
这可行吗？最大的问
浏览 1提问于2012-02-22得票数 4
回答已采纳
3回答
TEdit属性变量德尔菲
、、、
我在Delphi中有一个表单，其中包括几个TEdit框。我想要一种方法来检查所有的验证框，目前我必须有一个布尔变量分配给每个TEdit。例如：
Var
TEdit1Valid:boolean;
TEdit2Valid:boolean;
表格上的每一个TEdit等等。
对于第一个方法，它必须如下所示：
If TEdit1Valid then
ShowMessage('Your', Edit1.Name, 'is invalid');
等等，为每个TEdit盒。
这会产生许多变量，我只是想知道是否有更好的方法来实现它。我的一个想法是将一个名为TEdit的属性
浏览 3提问于2015-01-25得票数 2
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
即时通信 IM
实时音视频活动推荐
腾讯云开发者
