Alice - künstliche Intelligenz

[TimerTim]

Hallo!

Ich habe gerade meine erste Consolen-Anwendung fertiggestellt.
Vielleicht war zufällig schon mal jemand von euch im HNF (Heinz Nixdorf-Museumsforum) in Paderborn, dem größten Computermuseum der Welt.
Dort gibt es das Programm "Alice - künstliche Intelligenz", und das habe ich nachprogrammiert.
Man kann sich bei diesem Programm mit Alice unterhalten.
Dieses Programm habe ich auch schon mit PureBasic programmiet, denn mit dieser Programmiersprache kann ich auch schon ein bisschen programmieren, aber viel weniger als mit Delphi.

[DGL-luke]

o.O

das würd ich so nicht machen!

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

der typecast ist extrem unsauber. es ist zwar definiert, false=0 und true=!false, also alles außer 0, trotzdem ist true meistens -1 und wird auch oft so geprüft. das ist natürlich unsauber. aber trotzdem muss man damit nicht weitermachen.

[cruiser]

hrm.. für Boolean ist laut Hilfe True = 1, allerdings sagt die Hilfe auch:

Delphi Hilfe:

Die Umwandlung der Variable in einen Booleschen Typ ist nicht empfehlenswert.

darum editier ich den Mist mal raus oben

Bin glaube zu lange auf

[nachti1505]

Ja, POS ist wirklich toll, aber TimerTims erste Frage wurde nicht beantwortet - bis jetzt...

Zitat von TimerTim:

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;

Was habe ich falsch gemacht?

function Copy(S; Index, Count: Integer): string; Count ist interessant! Das ist die Anzahl der Zeichen, die kopiert werden sollen... Muss in deinem Beispiel immer gleich sein... und zwar length(Txt) -->

Delphi-Quellcode:

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

[alzaimar]

Zitat von DGL-luke:

das würd ich so nicht machen!

Was denn? Das etwa?

Zitat von DGL-luke:

Found := Pos(Txt, Str) > 0; der typecast ist extrem unsauber.

Wo issn da ein Typecast? Das ist eine Zuweisung eines boolschen Terms ('Func > 0') an eine Variable und damit 100% sauber.

Krank wäre das hier:
Found := Boolean (Pos(Foo,Bar))

[Progman]

@alzaimer: DGL-Luke's Beitrag (der Typecast) bezog sich auf was, das cruiser bereits wieder raus-editiert hatte

[alzaimar]

Zitat von Progman:

@alzaimer: DGL-Luke's Beitrag (der Typecast) bezog sich auf was, das cruiser bereits wieder raus-editiert hatte

Wie hinterhältig.

[cruiser]

Nee... einfach nur gefährlich, das stehn zu lassen ... sorry

[DGL-luke]

Sowas muss man aber in nem PS / EDIT-Kommentar kenntlich machen! Sonst meint alzaimar womöglich, ich würde überall nur noch hard casts sehen und lässt mich einliefern...

[alzaimar]

Zitat von DGL-luke:

Sonst meint alzaimar womöglich, ich würde überall nur noch hard casts sehen

Stimmt doch auch (Beweis: Dieser Thread )

Zitat von DGL-luke:

und lässt mich einliefern...

und DAS wollte ich den Moderatoren empfehlen...

Aber hinterher kann man natürlich immer behaupten, das da was ganz anderes stand.

Im Ernst: Im Zweifelsfall ein '[edit]....[/edit]', dann wird so ein Thread lesbarer.

[leddl]

Zitat von alzaimar:

Im Ernst: Im Zweifelsfall ein '[edit]....[/edit]', dann wird so ein Thread lesbarer.

Zitat von cruiser:

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