[DELPHI] Wyszukiwanie

[mikszy5]

Mam taki problem chce uzyskać coś takiego że w edit1 wpisuje np komputer i wyświetla mi inormacje na temat tego wiem ze powinno to być jakoś tak

begin

if Edit1.text = 'komputer'  then

begin

Label1.caption = 'blebleble'

end;

end;

Ale jak zrobić ż epo wpisaniu słów laptop pc komp wyświetli mi sie ten tekst niechce tyle razy kopiowac tego kodu tylko chciałbym to ująć w jednym "kawałku kodu"
Prosze o pomoc bo niewem jak to zrobić

 

[rafal]

Ad1. Nie pojmuje co rozumiesz pod slowem "INFORMACJE" wiec wybierz sobie z wielu mozliwosci : http://www.swissdelphicenter.ch/torry/system.php
Ad2. Istnieja takie laczniki jak "OR" "AND" itp....

 

[mikszy5]

tak ale jak wpisuje tam or to podkreśla linijke tą gdzie jest then

 

[rafal]

pewnie nie dales nawiasow ;-)

 

[mikszy5]

Niestety to nie to:-(

 

[rafal]

Jak nie dziala jak dziala, pewnie zle to zrobiles ,zreszta masz gotowca :

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:='';
if ((Edit1.Text='laptop') or (Edit1.Text='pc') or (Edit1.Text='komp'))
then begin
Label1.Caption:='komputer - informacje';
end
else begin
Label1.Caption:='nieznana komenda';
end;
end;

 

[mikszy5]

dziex ale se juz poradziłem prakowało jednego nawiasu

 

[d35tr0y3r1]

sorka za odswiezanie tematu, ale nikt nie wpadl na case...of ???

 

[Wojass]

<div class='quotetop'>CYTAT("d35tr0y3r1")</div>

sorka za odswiezanie tematu, ale nikt nie wpadl na case...of ???[/b]

nikt nie wpadł bo to głupota, przeciez widzisz ze tu chodzi o stringi a w Delphi nie mozna uzywać stringów razem case of, na upartego mozna zrobic cos takiego http://delphi.about.com/cs/adptips2002/a/bltip0202_5.htm ale w tym przypadku przykład _maSs_`a jest lepszy

 

[Wojass]

<div class='quotetop'>CYTAT("d35tr0y3r1")</div>

sorka za odswiezanie tematu, ale nikt nie wpadl na case...of ???[/b]

nikt nie wpadł bo to głupota, przeciez widzisz ze tu chodzi o stringi a w Delphi nie mozna uzywać stringów razem case of, na upartego mozna zrobic cos takiego http://delphi.about.com/cs/adptips2002/a/bltip0202_5.htm ale w tym przypadku przykład _maSs_`a jest lepszy

 

[d35tr0y3r1]

aha