" Chat-Roboter " der antwortet

[implementation]

hmmm...

Delphi-Quellcode:

type TAntwortrecord = record
  Eingabe,Antwort: string;
end;
type TAntwortSpeicher = Array of TAnswerrecord;

var Aw: TAntwortspeicher;

[...]

function GetAnswer(Eingabe: string): string;
var i: byte;
begin
  for i := 0 to Length(aw) do if aw[i].Eingabe=Eingabe then Result := aw[i].Antwort;
end;