Chat bot eller noget ?

Hmm.. kan du forklare det lidt bedre?
Hilsen Chadi
Mit lykketal er 2959

Hmm.. kan du forklare det lidt bedre?
Hilsen Chadi
Mit lykketal er 2959

MxS @ http://mxs.friserverplads.dk
Slamkodning for fred


CHadi jeg tror at han spørger efter hvordan man laver en bot, som man kan spørge om nogen ting, fx "Hvad er tiden" også kommer den med tiden osv!!

Du kan lave en masse if sætninger, men det er nok ikke så fleksibel. Man kan nok lave det bedre men jeg ved ikke hvordan.

En der vil sige mig hvordan man laver en slags chat bot... som gør.. at når man skriver noget specielt i en box kommer der til at stå noget andet ? eller ikk eller noget hvis i forstår

Ands

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Edit1: TEdit;
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=vk_return then //Når enter bliver trykket ned
begin
memo1.Lines.Add(edit1.Text); //Tilføjer ens egen tekst til memo1

if edit1.Text='Hejsa' then  
memo1.Lines.Add('Halløj'); //Tilføjer chat-bottens svar

edit1.Clear; //Sletter teksten i edit1

end;
end;

end.

Og så skulle det virke......