同じ文字列を入力できないように

解決

＋＋＋＋ 2005-05-26 07:03:30 No: 15067

Editの文字列をリストボックスにコマンドボタンで入力しているんですけど、
同じ文字列はリストボックスには入力したくはありません。お願いします。

Syake 2005-05-26 07:25:44 No: 15068

こんばんは
また、目くらです。(暇なもので)

ButtonOnClickに
var
i:Integer;
begin
  for i := 1 to ListBox1.ItemsCount -1 do
  //ItemsCountってあったけ？
  //(総アイテム数がわかるプロパティかメソッドがあったはず)
  begin
    if ListBox1.Items[i] = Edit1.Text then Exit;
  end;
ってのを、追加

Syake 2005-05-26 07:26:44 No: 15069

すいません
for i := 0 to ・・・です。

＋＋＋＋ 2005-05-26 07:44:37 No: 15070

ああありがとうございます。こんなに早くできるとは思っていなかったので！
Syakaさんありがとうございます。

とおりすがらない 2005-05-26 16:55:46 No: 15071

こっちのほうも。
if ListBox1.Items.Indexof(Edit1.Text) >= 0 then Exit;