Delphi - Listbox a Edit

0

Hej,

Utknąłem i mam taki problem:

Mam ListBox-a, Edita i Button-a. Do ListBox-a wczytuje mi Items-y z pliku txt. Teraz pytanie, jak zrobić, aby to co wpiszemy w Edit-a, po przyciśnięciu Button-a zostało porównane z poszczególnymi Items-ami, i jeśli któryś Items będzie taki sam jak wpisane słowo do Edit-a, to wtedy przejdzie do następnego Form-a.

Pozdrawiam
Cunter

0 
Pos   PosEx
0 
var
  x : integer;
  newForm : boolean;
begin
  newForm := false;
  for x := 0 to ListBox1.ItemsCount - 1 do
    if Edit1.Text = ListBox.Items[x] then
      newForm := true;

  if newForm then
    Caption := 'Przechodzę do nowej formy';
0

a nie prościej :

if ListBox1.Items.IndexOf(Edit1.Text) then newForm.Show;
0
zibicoder napisał(a)

a nie prościej :

if ListBox1.Items.IndexOf(Edit1.Text) then newForm.Show;

Może i prościej, ale kompilator na to: Type of expression must be BOOLEAN.

0

Sorry, w pośpiechu pisane i zręki...

0

OK. Dzięki wszystkim. Dzięki waszym pomysłom udało mi się dokończyć program :)

Jeszcze raz dziękuję

I pozdrawiam

Cunter

0
simplex napisał(a):
zibicoder napisał(a)

a nie prościej :

if ListBox1.Items.IndexOf(Edit1.Text) then newForm.Show;

Może i prościej, ale kompilator na to: Type of expression must be BOOLEAN.

if (ListBox1.Items.IndexOf(Edit1.Text) > -1) then newForm.Show;

1 użytkowników online, w tym zalogowanych: 0, gości: 1