請問一下 我在from裡放了兩個元件和一個按鈕我以在按鈕裡面寫了程式碼 第一個edit1是要輸入我給的一個預設帳號 edit2是做為驗證第一個輸入帳號使用但為何我寫了第二個begin之後都會出現跟第一個edit1裡面的帳號呢? 請解惑一下謝啦 如這樣 begin if edit1.text='ale'then //預設帳號    begin    showmessage('輸入帳號中'); edit2.text:='驗證成功'; end   else   begin    edit2.text:=edit1.text; 如上我寫第二個定義敘述時為何 都會出現ｅｄｉｔ２的原件都會出現ｅｄｉｔ１所輸入的東西呢？ 各位好ㄚ

當按下button後有出現驗証成功的訊息? 若沒出現的話表示你沒驗証成功 而在你的程式碼執行中沒驗証成功就會執行 edit2.text:=edit1.text; 所以edit1.text的內容就會顯示在edit2.text中 若沒出現驗証成功的訊息! 而仍edit2.text:=edit1.text; 表示你的程式之外可能另有寫上一些程式碼 或者在button內的程式有錯 請再檢查button內中的程式碼或直接copy 程式碼 post上來讓大家參照看看 「堅持」從洗馬桶做起 Aric

您好﹗

begin
  if edit1.text='ale'then
    begin
      showmessage('輸入帳號中');
    edit2.text:='驗證成功';
   end
  else
    begin
      edit2.text:=edit1.text;
    end;
end;

單單從這些程式碼中看﹐if...else的判斷語句并沒有問題﹐其條件即是Edit1的Text屬性值是否為'ale'﹐請檢查一下其它相關的程式碼﹐是否有錯誤﹖ 參考看看﹗ ===================== 努力,相信會獲得美麗! 忻晟 發表人 - cashxin2002 於 2003/11/10 09:26:45

------
忻晟

引言: 請問一下 我在from裡放了兩個元件和一個按鈕我以在按鈕裡面寫了程式碼 第一個edit1是要輸入我給的一個預設帳號 edit2是做為驗證第一個輸入帳號使用但為何我寫了第二個begin之後都會出現跟第一個edit1裡面的帳號呢? 請解惑一下謝啦 如這樣 begin if edit1.text='ale'then //預設帳號 begin showmessage('輸入帳號中'); edit2.text:='驗證成功'; end else begin edit2.text:=edit1.text; 如上我寫第二個定義敘述時為何 都會出現ｅｄｉｔ２的原件都會出現ｅｄｉｔ１所輸入的東西呢？ 各位好ㄚ < face="Verdana, Arial, Helvetica"> 這位仁兄由於本人最近忙於一些事可能改天會post上與你一起研究看看謝了 我在試試看try一下然在看結果如何謝啦 各位好ㄚ

begin
  if edit1.text='ale' then
    begin
      showmessage('輸入帳號中');
    edit2.text:='驗證成功';
   end
  else
    begin
      edit2.text:=edit1.text;
    end;
end;

我試作這樣並沒有問題呀!你真的有把程式碼寫在TForm1.Button1Click裡嗎? 或者你可以說明白一點． 發表人 -

引言: 請問一下 我在from裡放了兩個元件和一個按鈕我以在按鈕裡面寫了程式碼 第一個edit1是要輸入我給的一個預設帳號 edit2是做為驗證第一個輸入帳號使用但為何我寫了第二個begin之後都會出現跟第一個edit1裡面的帳號呢? 請解惑一下謝啦 如這樣 begin if edit1.text='ale'then //預設帳號 begin showmessage('輸入帳號中'); edit2.text:='驗證成功'; end else begin edit2.text:=edit1.text; 如上我寫第二個定義敘述時為何 都會出現ｅｄｉｔ２的原件都會出現ｅｄｉｔ１所輸入的東西呢？ 各位好ㄚ 我要的是要像>< face="Verdana, Arial, Helvetica"> 各位好ㄚ

你是不是要這樣? 

procedure TForm1.Button1Click(Sender: TObject);
  var check : boolean;
begin
  if edit1.text='alen' then
    begin
      showmessage('輸入帳號中');
      edit2.text:='驗證成功';
      check := true;
    end
  else
    begin
       check := False;
        if check = True then
          edit2.text:=edit1.text
        else
          begin
            edit2.Text:='驗證失敗';
          end
    end
end;
 

引言: 你是不是要這樣?

procedure TForm1.Button1Click(Sender: TObject);
  var check : boolean;
begin
  if edit1.text='alen' then
    begin
      showmessage('輸入帳號中');
      edit2.text:='驗證成功';
      check := true;
    end
  else
    begin
       check := False;
        if check = True then
          edit2.text:=edit1.text
        else
          begin
            edit2.Text:='驗證失敗';
          end
    end
end;
 

恩是這樣啦差不多

各位好ㄚ

引言:

引言: 你是不是要這樣?

procedure TForm1.Button1Click(Sender: TObject);
  var check : boolean;
begin
  if edit1.text='alen' then
    begin
      showmessage('輸入帳號中');
      edit2.text:='驗證成功';
      check := true;
    end
  else
    begin
       check := False;
        if check = True then
          edit2.text:=edit1.text
        else
          begin
            edit2.Text:='驗證失敗';
          end
    end
end;
 

恩是這樣啦差不多

各位好ㄚ

我的則是這樣 procedure TForm1.Button1Click(Sender: TObject); begin if edit1.text='alen'then begin showmessage('輸入帳號中'); edit2.text:='確認無誤'; end else begin edit2.text:=edit1.text; //-------------------------- begin if edit1.text='kk'then begin edit2.text:=''; showmessage('錯誤帳號'); edit2.text:='確認有誤'; end //---------------------------- 各位好ㄚ