[delphi] Bot

Witam :)
W ostatnim temacie o Bocie pytalem sie w czym jest blad, bo mi kod nie dzialal...

Otoz teraz ten blad naprawilem, mam problemy z czyms innym dlatego, ze moj bot dziala tylko na jedno zapytanie sie: "cze".

Chcialbym tak zrobic zeby dalo sie zapytac sie: "Cze" lub "cze" i jedna odpowiedz.

Jak dodac do tego inne zapytania ??
Nigdzie na necie nie znalazlem pomocy, "co trzeba wiedziec zeby zrobic Bota" ??

Kodzik na if key=#13:
Memo1.Lines.Add('Ja: '+Edit1.Text); if Edit1.Text='cze' then begin Memo1.Lines.Add('Mariusz: Witam Cie!'); Edit1.Clear; end else begin Memo1.Lines.Add('Nie Rozumiem Cie!'); Edit1.Clear; end; end;

Prosze o pomoc i z gory dziekuje.
Moderatorow przepraszam za ostatnie moje bezsensowne pytania.

-Spotlight

---

np jesli pytania/odpowiedzi by byly w pliku ini to banalnie:
var ini:tinifile; begin ini:=tinifile.create('rozmowy.ini'); if ini.readstring('main', lowercase(edit1.text), '')<>'' then memo1.lines.add(ini.readstring('main', lowercase(edit1.text), '') else memo1.lines.add('Nie rozumiem');
i ten plik ini by wygladal na przyklad tak:
[main] cze=Siema! do widzenia=Do zobaczenia!
Oczywiscie aby to dzialalo dobrze trzeba by usuwac podwojne spacje itp. Oprocz tego zamiast wypisac "nie rozumiem" powinien zadac pytanie co to znaczy, a potem dopisac odpowiedz do pliku ini tak by nastepnym razem juz to rozumial.

Aha i jeszcze http://4programmers....icle.php?id=308
Użytkownik Einzeinbleth edytował ten post 29 październik 2005, 14:38
if UpperCase(Edit1.Text) = 'CZE' then


if UpperCase(Edit1.Text) = 'CZE' then

---

# tak
# w którym momencie miałeś problem, żeby to sprawdzić zamiast się pytać ?

Thx za pomoc
Użytkownik Spotlight edytował ten post 29 październik 2005, 15:25

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl