各位大大
當我在edit4未輸入資料時，按下botton，可是在listbox1有一行空白，
請各位大大檢查一下我的程式碼哪裡有問題
謝謝

begin
if (edit4.text='') then
begin
showmessage('未輸入');
end;
begin
if listbox1.items.indexof(edit4.text)<>-1 then
begin
showmessage('[' edit4.text ']重覆輸入');
end
else
begin
listbox1.items.Add(edit4.text);
end;
end;
end;

您好,
依您程式, show 完 message 後會繼續往下執行.

小改一下, 試試看:

begin
if trim(edit4.text)='' then
showmessage('未輸入')
else begin
if listbox1.items.indexof(edit4.text)<>-1 then
showmessage('[' edit4.text ']重覆輸入')
else begin
listbox1.items.Add(edit4.text);
end;
end;
end;

===================引 用 一斗夢 文 章===================
各位大大
當我在edit4未輸入資料時，按下botton，可是在listbox1有一行空白，
請各位大大檢查一下我的程式碼哪裡有問題
謝謝

begin
if (edit4.text='') then
begin
showmessage('未輸入');
end;
begin
if listbox1.items.indexof(edit4.text)<>-1 then
begin
showmessage('[' edit4.text ']重覆輸入');
end
else
begin
listbox1.items.Add(edit4.text);
end;
end;
end;

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

編輯記錄

太感謝st33chen大大了
問題解決了
將來不負大大的期望對Delphi努力加油<!-- E NDT BLOCK : -->

哦~~~，讚哦~~ 愈來愈棒了~~ KTop 有愈來愈多熱血的人加入了~~  加油~~! 

===================引 用 一斗夢 文 章===================
太感謝st33chen大大了
問題解決了
將來不負大大的期望對Delphi努力加油<!-- E NDT BLOCK : -->

------
價值的展現，來自於你用哪一個角度來看待它!!