如何在delphi中为richit组件添加一行

Question

我使用delphi 2010创建了一个注册表单，我不想让我已经存在的用户注册使用他们的电子邮件。因此，如果任何已经注册的电子邮件注册将显示表单pass_reset对话框。

 uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, GIFImg, ExtCtrls, pngimage, ComCtrls, FMTBcd, WideStrings,
DBXMySql, DB, SqlExpr, MessageDigest_5, Types, ShellAPI, IdBaseComponent,
IdComponent, IdIOHandler, IdIOHandlerSocket, IdIOHandlerStack, IdSSL,
IdSSLOpenSSL, IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase,
IdMessageClient, IdSMTPBase, IdSMTP, IdMessage,**pass_reset;**
{Checking wether email exist}
SQLQuery2.SQL.Text := 'SELECT * from registered where email="'+email+'"';
SQLQuery2.Open;
count := SQLQuery2.RecordCount;
{if email exit bfore display message already exist}
if (count>0) then
begin
PassReset.Show;
end;

如何在pass_reset表单中写入

对不起[e-mail]已经在我们的数据库中，(使用TRichEdit组件)

之类的

 procedure TPassReset.Rich_customExistBeforeChange(Sender: TObject);
 begin
 email := form_signup.ed_email.text;
 RichEdit1.Append('Hello "'+email+'" it seem that you''re already registered with us');
 end;

Answer 1

这是你想要的吗?

RichEdit1.Lines.Add('sorry [e-mail] is already in our database');

它将在TRichEdit RichEdit1中添加一行。

假设你的代码PassReset.Show工作，你可以从相同的地方修改你的TRichEdit。

if (count>0) then
begin
  PassReset.Show;
  PassReset.RichEdit1.Lines.Add('sorry [e-mail] is in use');
end;