AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Projekte Alice - künstliche Intelligenz
Thema durchsuchen
Ansicht
Themen-Optionen

Alice - künstliche Intelligenz

Ein Thema von TimerTim · begonnen am 10. Jul 2007 · letzter Beitrag vom 23. Nov 2007
Antwort Antwort
Seite 8 von 9   « Erste     678 9      
Benutzerbild von DGL-luke
DGL-luke

Registriert seit: 1. Apr 2005
Ort: Bad Tölz
4.149 Beiträge
 
Delphi 2006 Professional
 
#1

Re: Alice - künstliche Intelligenz

  Alt 27. Okt 2007, 19:18
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.
Lukas Erlacher
Suche Grafiktablett. Spenden/Gebrauchtangebote willkommen.
Gotteskrieger gesucht!
For it is the chief characteristic of the religion of science that it works. - Isaac Asimov, Foundation I, Buch 1
  Mit Zitat antworten Zitat
Benutzerbild von cruiser
cruiser

Registriert seit: 23. Dez 2003
Ort: Königsbrück/Sachsen
455 Beiträge
 
Delphi 7 Enterprise
 
#2

Re: Alice - künstliche Intelligenz

  Alt 27. Okt 2007, 19:29
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
  Mit Zitat antworten Zitat
Benutzerbild von nachti1505
nachti1505

Registriert seit: 7. Apr 2007
188 Beiträge
 
Delphi 7 Enterprise
 
#3

Re: Alice - künstliche Intelligenz

  Alt 28. Okt 2007, 00:32
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;
  Mit Zitat antworten Zitat
alzaimar
(Moderator)

Registriert seit: 6. Mai 2005
Ort: Berlin
4.956 Beiträge
 
Delphi 2007 Enterprise
 
#4

Re: Alice - künstliche Intelligenz

  Alt 28. Okt 2007, 06:40
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))
"Wenn ist das Nunstruck git und Slotermeyer? Ja! Beiherhund das Oder die Flipperwaldt gersput!"
(Monty Python "Joke Warefare")
  Mit Zitat antworten Zitat
Progman

Registriert seit: 31. Aug 2007
Ort: 99974 MHL
695 Beiträge
 
Delphi 10.1 Berlin Starter
 
#5

Re: Alice - künstliche Intelligenz

  Alt 28. Okt 2007, 09:58
@alzaimer: DGL-Luke's Beitrag (der Typecast) bezog sich auf was, das cruiser bereits wieder raus-editiert hatte
Karl-Heinz
Populanten von Domizilen mit fragiler, transparenter Aussenstruktur sollten sich von der Translation von gegen Deformierung resistenter Materie distanzieren!
(Wer im Glashaus sitzt sollte nicht mit Steinen werfen)
  Mit Zitat antworten Zitat
alzaimar
(Moderator)

Registriert seit: 6. Mai 2005
Ort: Berlin
4.956 Beiträge
 
Delphi 2007 Enterprise
 
#6

Re: Alice - künstliche Intelligenz

  Alt 28. Okt 2007, 11:45
Zitat von Progman:
@alzaimer: DGL-Luke's Beitrag (der Typecast) bezog sich auf was, das cruiser bereits wieder raus-editiert hatte
Wie hinterhältig.
"Wenn ist das Nunstruck git und Slotermeyer? Ja! Beiherhund das Oder die Flipperwaldt gersput!"
(Monty Python "Joke Warefare")
  Mit Zitat antworten Zitat
Benutzerbild von cruiser
cruiser

Registriert seit: 23. Dez 2003
Ort: Königsbrück/Sachsen
455 Beiträge
 
Delphi 7 Enterprise
 
#7

Re: Alice - künstliche Intelligenz

  Alt 28. Okt 2007, 14:31
Nee... einfach nur gefährlich, das stehn zu lassen ... sorry
  Mit Zitat antworten Zitat
Benutzerbild von DGL-luke
DGL-luke

Registriert seit: 1. Apr 2005
Ort: Bad Tölz
4.149 Beiträge
 
Delphi 2006 Professional
 
#8

Re: Alice - künstliche Intelligenz

  Alt 29. Okt 2007, 08:02
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...
Lukas Erlacher
Suche Grafiktablett. Spenden/Gebrauchtangebote willkommen.
Gotteskrieger gesucht!
For it is the chief characteristic of the religion of science that it works. - Isaac Asimov, Foundation I, Buch 1
  Mit Zitat antworten Zitat
alzaimar
(Moderator)

Registriert seit: 6. Mai 2005
Ort: Berlin
4.956 Beiträge
 
Delphi 2007 Enterprise
 
#9

Re: Alice - künstliche Intelligenz

  Alt 29. Okt 2007, 08:09
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.
"Wenn ist das Nunstruck git und Slotermeyer? Ja! Beiherhund das Oder die Flipperwaldt gersput!"
(Monty Python "Joke Warefare")
  Mit Zitat antworten Zitat
Benutzerbild von leddl
leddl

Registriert seit: 13. Okt 2003
Ort: Künzelsau
1.613 Beiträge
 
Delphi 2006 Professional
 
#10

Re: Alice - künstliche Intelligenz

  Alt 29. Okt 2007, 08:55
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 -
Axel Sefranek
A programmer started to cuss, cause getting to sleep was a fuss.
As he lay there in bed, looping round in his head
was: while(!asleep()) ++sheep;
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 8 von 9   « Erste     678 9      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:41 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz