各位前辈.我找了好久都没有找到..能不能给我一个例子?

編輯記錄

沒有任何需求的解釋...

方法1: 請在新增到ListView時，每一個item都去判斷，假如已有此item就不要新增到ListView中。
方法2: 用個StringList來記錄每個item，在新增到ListView前，先去找看看StringList中有沒有符合的，有的話就不給新增。

===================引 用 xieeboyzhg 文 章===================
各位前辈.我找了好久都没有找到..能不能给我一个例子?

編輯記錄

===================引 用 老大仔 文 章===================
沒有任何需求的解釋...

方法1: 請在新增到ListView時，每一個item都去判斷，假如已有此item就不要新增到ListView中。
方法2: 用個StringList來記錄每個item，在新增到ListView前，先去找看看StringList中有沒有符合的，有的話就不給新增。

===================引 用 xieeboyzhg 文 章===================
各位前辈.我找了好久都没有找到..能不能给我一个例子?

前輩，，我是這樣寫的。但是可能邏輯上有問題。您幫我看下？
這樣循環了可以談出提示。但是彈出過後還是要添加到listview裏面。。
我也做了循環跳出了呀？

代碼如下：
try
begin
for i := 0 to listview1.Items.Count - 1 do
begin
if ListView1.Items[i].SubItems.Strings[1] = (Form3.ComboBox1.Text ':' Form3.ComboBox2.Text) then
begin
MessageDlg('时间重复',mtwarning,[mbok],0);
Break;
exit;
end
else
begin
j := ListView1.Items.Count;
ListView1.Items.Add.Caption := Form3.Edit1.text;
listview1.Items[j].SubItems.Add(Form3.Edit2.Text);
listview1.Items[j].SubItems.Add(Form3.ComboBox1.Text ':' Form3.ComboBox2.text);
end;
end;
end;
finally

end;

把break拿掉呢???

===================引 用 xieeboyzhg 文 章===================

===================引 用 老大仔 文 章===================
沒有任何需求的解釋...

方法1: 請在新增到ListView時，每一個item都去判斷，假如已有此item就不要新增到ListView中。
方法2: 用個StringList來記錄每個item，在新增到ListView前，先去找看看StringList中有沒有符合的，有的話就不給新增。

===================引 用 xieeboyzhg 文 章===================
各位前辈.我找了好久都没有找到..能不能给我一个例子?

前輩，，我是這樣寫的。但是可能邏輯上有問題。您幫我看下？
這樣循環了可以談出提示。但是彈出過後還是要添加到listview裏面。。
我也做了循環跳出了呀？

代碼如下：
try
begin
for i := 0 to listview1.Items.Count - 1 do
begin
if ListView1.Items[i].SubItems.Strings[1] = (Form3.ComboBox1.Text ':' Form3.ComboBox2.Text) then
begin
MessageDlg('时间重复',mtwarning,[mbok],0);
Break;
exit;
end
else
begin
j := ListView1.Items.Count;
ListView1.Items.Add.Caption := Form3.Edit1.text;
listview1.Items[j].SubItems.Add(Form3.Edit2.Text);
listview1.Items[j].SubItems.Add(Form3.ComboBox1.Text ':' Form3.ComboBox2.text);
end;
end;
end;
finally

end;

===================引 用 老大仔 文 章===================
把break拿掉呢???

===================引 用 xieeboyzhg 文 章===================

===================引 用 老大仔 文 章===================
沒有任何需求的解釋...

方法1: 請在新增到ListView時，每一個item都去判斷，假如已有此item就不要新增到ListView中。
方法2: 用個StringList來記錄每個item，在新增到ListView前，先去找看看StringList中有沒有符合的，有的話就不給新增。

===================引 用 xieeboyzhg 文 章===================
各位前辈.我找了好久都没有找到..能不能给我一个例子?

前輩，，我是這樣寫的。但是可能邏輯上有問題。您幫我看下？
這樣循環了可以談出提示。但是彈出過後還是要添加到listview裏面。。
我也做了循環跳出了呀？

代碼如下：
try
begin
for i := 0 to listview1.Items.Count - 1 do
begin
if ListView1.Items[i].SubItems.Strings[1] = (Form3.ComboBox1.Text ':' Form3.ComboBox2.Text) then
begin
MessageDlg('时间重复',mtwarning,[mbok],0);
Break;
exit;
end
else
begin
j := ListView1.Items.Count;
ListView1.Items.Add.Caption := Form3.Edit1.text;
listview1.Items[j].SubItems.Add(Form3.Edit2.Text);
listview1.Items[j].SubItems.Add(Form3.ComboBox1.Text ':' Form3.ComboBox2.text);
end;
end;
end;
finally

end;
把Break拿掉还是不行..

應該改成這樣吧 ...

try
for i := 0 to listview1.Items.Count - 1 do begin
if ListView1.Items[i].SubItems.Strings[1] = (Form3.ComboBox1.Text ':' Form3.ComboBox2.Text) then
Break;
end;
//
if (i<=listview1.Items.Count - 1) then
MessageDlg('时间重复',mtwarning,[mbok],0)
else
begin
j := ListView1.Items.Count;
ListView1.Items.Add.Caption := Form3.Edit1.text;
listview1.Items[j].SubItems.Add(Form3.Edit2.Text);
listview1.Items[j].SubItems.Add(Form3.ComboBox1.Text ':' Form3.ComboBox2.text);
end;
finally
.....
end;

  ttIndex := Self.ListView1.Items.IndexOf(Edit1.Text);
if ttIndex = -1 then begin
//....
end else begin
ShowMessage('NO');
end;

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