我想做個一個"輸入長度不等於3，則出現錯誤，等於則印出i的值".... 但這個程式會出現Variable 'i' might not have been initialized的錯誤.. 要怎麼寫才能把這個錯誤給排除... 若不用這個方法的話，還有其他方式嗎??... 麻煩知道的高手，能為我解答，謝謝。 var i: integer; begin while length(edit1.Text) <> 3 do begin i := i 10; Label1.Caption := inttostr(i); end; messagebox(form1.Handle,'錯誤，請再輸入一次!','訊息視窗',MB_OK); end;

您好： 妳只要加上 i:=0; while length(edit1.Text) <> 3 do 即可解決,只是你這回圈的寫法是無窮回圈將無法結束

Hi:    我猜測你要的功能應該如下

procedure TForm1.Button17Click(Sender: TObject);
var
    I : Integer;
begin
    I := Length(Edit1.Text);//或是任何值但必須先行 Assign
    IF Length(Edit1.Text) = 3 THEN
        MessageBox(Form1.Handle,'錯誤，請再輸入一次!','訊息視窗',MB_OK)
    ELSE
        Label1.Caption := inttostr(i);
end;

-------------------------------- 小弟才疏學淺，若有謬誤請不吝指教 --------------------------------

------
Fishman