Delphi - Listbox a Edit

Delphi - Listbox a Edit
  • Rejestracja: dni
  • Ostatnio: dni
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

Patryk27
  • Rejestracja: dni
  • Ostatnio: dni
  • Lokalizacja: Wrocław
  • Postów: 13042
0
Kopiuj
Pos   PosEx
madmike
  • Rejestracja: dni
  • Ostatnio: dni
0
Kopiuj
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';
ZI
  • Rejestracja: dni
  • Ostatnio: dni
  • Postów: 192
0

a nie prościej :

Kopiuj
if ListBox1.Items.IndexOf(Edit1.Text) then newForm.Show;
SI
  • Rejestracja: dni
  • Ostatnio: dni
  • Postów: 184
0
zibicoder napisał(a)

a nie prościej :

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

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

ZI
  • Rejestracja: dni
  • Ostatnio: dni
  • Postów: 192
0

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

  • Rejestracja: dni
  • Ostatnio: dni
0

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

Jeszcze raz dziękuję

I pozdrawiam

Cunter

  • Rejestracja: dni
  • Ostatnio: dni
0
simplex napisał(a):
zibicoder napisał(a)

a nie prościej :

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

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

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

Zarejestruj się i dołącz do największej społeczności programistów w Polsce.

Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.