Alice - künstliche Intelligenz

[Progman]

das Programm ist doch nur eine amateurmäßige Nachahmumg (sorry!) von ELIZA, das bereits 1966 programmiert wurde.
Wer sowas ernsthaft mal angehen möchte, soll auf den folgenden Link schauen und sich mal durchhangeln zu weiterführenden Links.
Klick

[s-off]

Zitat:

Zitat von Progman

das Programm ist doch nur eine amateurmäßige Nachahmumg (sorry!) von ELIZA, das bereits 1966 programmiert wurde.

:hello: wussten wir das nicht bereits :?: :!:

[Namenloser]

Zitat:

Zitat von Progman

das Programm ist doch nur eine amateurmäßige Nachahmumg (sorry!) von ELIZA, das bereits 1966 programmiert wurde.
Wer sowas ernsthaft mal angehen möchte, soll auf den folgenden Link schauen und sich mal durchhangeln zu weiterführenden Links.
Klick

Du kannst von einem Zehnjährigen auch nicht das gleiche erwarten wie von einem 60-Jährigen. Das ist immerhin ein halbes Jahrhundert Differenz^^
Außerdem soll dieses Programm glaub ich auch eher "ein Gag" sein :wink:

[Mr.Gogo]

Hola,

naja das Programm ist nicht gerade der Renner ein bissl die Relation in der Unterhaltung verloren

[zahor]

Zitat:

Zitat von s-off

Hallo zahor,

würde es Dir etwas ausmachen, Deinen Screenshot zu entfernen? Die Ausdrücke, die Du dort benutzt finde ich für ein öffentliches Forum, in welchem sich durchaus auch Teenies wie Du tummeln können, ehrlich gesagt ziemlich geschmacklos.

Und wenn Du meinst, Du würdest Tim damit auf irgeneine wissenschaftliche Art und Weise helfen können, dann schick ihm Deine Ergebnisse doch bitte per PN.

:wall:

ich glaube, da waren die moderatoren schneller.
sorry trotzdem

[TimerTim]

Hi,

Für eine neue Version von "Alice" habe ich eine Prozedur programmiert.
Sie soll, wenn ein Text in einem String vorkommt, die Variable "Found" auf True setzen.
So sieht Sie aus:

Delphi-Quellcode:

procedure TxtInStr(Str: String; Txt: String);
var i: Integer;
begin
  For i := 1 To Length(Str) Do If Copy(Str, i, i + Length(Txt) - 1) = Txt Then Found := True;
end;

Aber die Prozedur setzt "Found" nur auf True, wenn der Text am Anfang oder am Ende des Strings steht.
Wenn er in der Mitte ist, passiert nichts.
Was habe ich falsch gemacht?
Oder ist so eine Prozedur sogar schon in Delphi vorgegeben?

[cruiser]

Uhm... darf ich dir Pos ans Herz legen?

Delphi-Quellcode:

procedure TxtInStr(Str: String; Txt: String); 
begin
  Found := (Pos(Txt, Str) >= -1);
end;

Vermutlich wird dann sogar die procedure-Kapselung überflüssig

[Progman]

Delphi-Quellcode:

Found := (Pos(Txt, Str) >= -1);

Das ist nicht ganz korrekt. Pos gibt die Position des ersten Vorkommens zurück, die (in Delphi-Strings) mit 1 beginnt.
Wurde nichts gefunden, wird 0 zurückgegeben. Also würde die ja immer True zurrückliefern.
richtig ist:

Delphi-Quellcode:

Found := Pos(Txt, Str) > 0;

[TimerTim]

Danke, aber ich habe gerade gemerkt, dass das immer noch nicht richtig ist.
Richtig ist:

Delphi-Quellcode:

Found := Pos(Txt, Str) >= 1;

[cruiser]

:drunken: stimmt.. bei Delphi-Strings komm ich immer gern ins schwitzen... historisch korrekt, aber irgendwie unlogisch...

- hier stand mal was über nen Type-Cast -