如何在delphi中向RichEdit组件添加一行？

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表单编写

抱歉，email @exemple.com已经在我们的数据库中，（使用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 email@exemple.com is already in our database');

它会向TRichEdit RichEdit1添加一行。

假设您的代码PassReset.Show有效，您可以在同一个地方修改您的TRichEdit。

if (count>0) then
begin
  PassReset.Show;
  PassReset.RichEdit1.Lines.Add('sorry email@exemple.com is in use');
end;