DelphiのRichEditコンポーネントにLineを追加するにはどうすればいいですか？

Question

私はdelphi 2010を使用してサインアップフォームを作成しました。自分のメールを使用して既存のユーザー登録を許可したくありませんでした。したがって、すでに登録されている電子メールにサインアップすると、フォームpass_resetダイアログが表示されます。

申し訳ありませんemail@exemple.comが

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; 

よう

何か（TRichEditコンポーネントを使用して）、私達のデータベースでは、すでにどのように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; 

しかし、うまくいかなかった。

Answer 1

これは必要なものですか？

RichEdit1.Lines.Add('sorry email@exemple.com is already in our database'); 

TRichEdit RichEdit1に1行追加されます。

あなたのコードPassReset.Showが働いていると仮定すると、TRichEditは同じ場所から変更できます。

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