小弟希望每筆Edit1 輸入的序號只能唯一性
如果已經存入Memo 就不能再輸入
那下列程式碼 我該怎麼修改呢??
因為目前下列方式還是會重複序號的存入


[code delphi]
if Memo1.Lines.Text = Edit1.Text then
begin showmessage('該序號已輸入')
end
else
Memo1.Lines.Add(Edit1.Text);
Edit1.Clear;
end;
end;
[/code]

------
Program : Delphi 7
DataBase : Oracle 9i
Client : ClientDataSet

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

編輯記錄

[code delphi]
procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
Var
ttIndex : Integer;
begin
if key = 13 then begin
ttIndex := Memo1.Lines.IndexOf(trim(Edit1.Text));
if ttIndex = -1 then
Memo1.Lines.Add(trim(Edit1.Text))
else
ShowMessage('此序號已輸入過');
end;
end;
[/code]

------
程式沒有這麼難
只是還沒打通其中要絕

1. Dear shu 大大
   
   已經可以了
   想請教你
   
   ttIndex := Memo1.Lines.IndexOf(trim(Edit1.Text));
2. if ttIndex = -1 then
3. 這段是什麼意思呢?? indexOf ????

------
Program : Delphi 7
DataBase : Oracle 9i
Client : ClientDataSet

TStrings

IndexOf method
Gets the index position of the first string matching the given string. Or -1 if not found.

===================引 用 lovemari 文 章===================

1. Dear shu 大大
   
   已經可以了
   想請教你
   
   ttIndex := Memo1.Lines.IndexOf(trim(Edit1.Text));
2. if ttIndex = -1 then
3. 這段是什麼意思呢?? indexOf ????

?

------
What do we live for if not to make life less difficult for each other?