| Autor |
Beitrag |
Inzip 
Beiträge: 73
XP
Delphi
|
Verfasst: Sa 04.12.04 17:45
| Ben hat folgendes geschrieben: | Ach so ! Zufällige Antworten !
Nimm doch das:
  Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
| max:=random(100)+1;
antwort:='';
for i:= 0 to max do
Antwort:= Antwort + char(random(25) + 65);
showmessage(Antwort); | |
WO schreibe ich da dann emine Farge noch rein - also ich meinet das hier [quote:2080b0c06d="sourcehunter
"]Also wenn dir das mit der lexikalischen Analyse wurscht is, dann nimm doch einfach ein Array of String, trag da deine Antworten ein und bestimme dann mit Random den Index der Antwort, die du ausgeben möchtest.[/quote:2080b0c06d]
|
|
Moritz M.
 
Beiträge: 1672
|
Verfasst: Sa 04.12.04 17:48
SAG MAL: Hast du keine eigene Intelligenz? Da fängt man doch langsam an PISA zu verstehen.
Und falls du neu in Delphi bist: Probier dich mal an einfacheren Sachen...
|
|
Ben
Beiträge: 31
|
Verfasst: Sa 04.12.04 17:54
Das Programm ist so aufgebaut das du dich einfach nur vor deinen Computer setzt, deine Frage laut und deutlich vorträgst und prompt eine zufällige Antwort kommt 
|
|
Inzip
Beiträge: 73
XP
Delphi
|
Verfasst: Sa 04.12.04 18:03
| Zitat: | | Also wenn dir das mit der lexikalischen Analyse wurscht is, dann nimm doch einfach ein Array of String, trag da deine Antworten ein und bestimme dann mit Random den Index der Antwort, die du ausgeben möchtest. |
SO EIN SKRIPT WILL ICH HABEN MEHR NICHT 
|
|
Moritz M.
Beiträge: 1672
|
Verfasst: Sa 04.12.04 18:06
DANN SCHREIB DIR SO EIN SCRIPT UND STELL KONKRETE FRAGEN, WAS DU NICHT VERSTEHST ( Schreien Ende )
|
|
Inzip
Beiträge: 73
XP
Delphi
|
Verfasst: Sa 04.12.04 18:10
Könnt ir mmir mal so ein Skript mal geben *Hundeblcik* Weil ich wei net wie das geht. Das heir meine ich | Zitat: | | Also wenn dir das mit der lexikalischen Analyse wurscht is, dann nimm doch einfach ein Array of String, trag da deine Antworten ein und bestimme dann mit Random den Index der Antwort, die du ausgeben möchtest. |
|
|
MrSaint
Beiträge: 1033
Erhaltene Danke: 1
WinXP Pro SP2
Delphi 6 Prof.
|
Verfasst: Sa 04.12.04 18:12
Dann schau mal in die OnlineHelp von Delphi zum Thema arrays oder such dir Tutorials im Netz für Arrays. Dadurch solltest du das leren!
Du musst dich schon etwas selber anstrengen, hier wird dir nicht alles vorgekaut!!!
MrSaint
_________________ "people knew how to write small, efficient programs [...], a skill that has subsequently been lost"
Andrew S. Tanenbaum - Modern Operating Systems
|
|
Inzip
Beiträge: 73
XP
Delphi
|
Verfasst: Sa 04.12.04 18:15
Ja und wo finde ich das - wenigsten eine kleines Skript zu diesen Thema
|
|
jasocul
Beiträge: 6386
Erhaltene Danke: 146
Windows 7 + Windows 10
Sydney Prof + CE
|
Verfasst: Sa 04.12.04 18:39
@Inzip:
Offensichtlich ist keiner bereit, dir ein Code-Schnipsel zu geben. Das liegt vermutlich an deiner Einstellung.
Du kannst in so einem Forum nicht erwarten, dass dir eine Schulung in Delphi gegeben wird, bzw. du hier fertige Programmteile bekommst.
Es wird schon erwartet, dass du dich mit Delphi auseinandersetzt.
Stelle hier konkrete Fragen, dann bekommst du auch vernünftige Antworten.
Beispiel: Was ist ein Array und wie greife ich darauf zu?
Antwort: Siehe OH. (Das war jetzt gemein)
Ein Array ist im Grunde eine Liste von Elementen, über die du mit einem Index (Listennummer) zugreifst. In einem Array wird üblicherweise bei Null angefangen zu zählen.
So könnte es aussehen.
Sollte ich die Antworten der anderen Forums-Mitglieder falsch interpretiert haben, bitte ich um Richtigstellung.
|
|
GTA-Place
Beiträge: 5248
Erhaltene Danke: 2
WIN XP, IE 7, FF 2.0
Delphi 7, Lazarus
|
Verfasst: Sa 04.12.04 19:22
Du hast vollkommen Recht und wer 100x fragt, ob er ein Script bekommt, der wird auch die nächsten 100x fragen keins bekommen und mit Schreien ist es auch nicht getan.
Vielleicht mal ein Grundlagen-Tutorial durchmachen?
_________________ "Wer Ego-Shooter Killerspiele nennt, muss konsequenterweise jeden Horrorstreifen als Killerfilm bezeichnen." (Zeit.de)
|
|
Moritz M.
Beiträge: 1672
|
Verfasst: Sa 04.12.04 19:23
Meine Meinung, ihr Beiden. !
|
|
Inzip
Beiträge: 73
XP
Delphi
|
Verfasst: Sa 04.12.04 19:28
|
|
Moritz M.
Beiträge: 1672
|
Verfasst: Sa 04.12.04 19:39
|
|
GTA-Place
Beiträge: 5248
Erhaltene Danke: 2
WIN XP, IE 7, FF 2.0
Delphi 7, Lazarus
|
Verfasst: Sa 04.12.04 19:45
| GTA-Place hat folgendes geschrieben: | | Vielleicht mal ein Grundlagen-Tutorial durchmachen? |
Für wen hab bich eigentlich diesen Satz hingeschrieben? Achja, für die Katz'. _________________ "Wer Ego-Shooter Killerspiele nennt, muss konsequenterweise jeden Horrorstreifen als Killerfilm bezeichnen." (Zeit.de)
|
|
Ja-Pa
Beiträge: 458
Win XP, Suse 9.3
D1, D3, D5 Std, D7 Pro, D2005 Pers, Kylix 3
|
Verfasst: Sa 04.12.04 19:50
Sag mal, wie alt bist du und was weißt du über Delphi?
_________________ Der Autor dieses Textes haftet nicht für Schäden an Soft- oder Hardware
oder Vermögensschäden, die durch das Benutzen des Textes entstehen.
|
|
AXMD
Beiträge: 4006
Erhaltene Danke: 7
Windows 10 64 bit
C# (Visual Studio 2019 Express)
|
Verfasst: Sa 04.12.04 20:02
| Ja-Pa hat folgendes geschrieben: | | Sag mal, wie alt bist du und was weißt du über Delphi? |
Darf ich raten? 13 und WriteLn('Hello world')
| GTA-Place hat folgendes geschrieben: | | Für wen hab bich eigentlich diesen Satz hingeschrieben? Achja, für die Katz'. |
Naja, wenigstens hat deine Katze was davon 
AXMD
|
|
Inzip
Beiträge: 73
XP
Delphi
|
Verfasst: Sa 04.12.04 20:31
Bin 15 Jahre alt und bei Delphi weiß ich nicht so viel
|
|
AXMD
Beiträge: 4006
Erhaltene Danke: 7
Windows 10 64 bit
C# (Visual Studio 2019 Express)
|
Verfasst: Sa 04.12.04 20:41
Also an deiner Stelle würde mir das Lachen vergehen; Pisa hatte gar nicht so unrecht 
AXMD
|
|
herzi
Beiträge: 168
WINXP pro, SUSE Linux 9.0
D7 Pers.
|
Verfasst: Sa 04.12.04 20:47
Also um mal aufen Punkt zu kommen:
Hier kann keiner dir ne KI programmieren. Das wär einfach zu aufwendig! Das kannst du bestimmt nicht zahlen....
Ich bin mal so frei und schreibe dir hier nen EINFACHES Beispiel für dein Problem. Damit deckst du aber nicht wirklich etwas ab. Nur zum Zeigen wie es mit einem Array möglich wäre.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
| function gibantwort(frage:String):String;
var
antworten: array of String;
begin
if frage='Wie geht es dir?' then begin
setlength(antworten,6);
antworten[0]:='Mir gehts sehr gut';
antworten[1]:='Mir gehts gut';
antworten[2]:='Es geht so';
antworten[3]:='Mir gehts nicht so gut';
antworten[4]:='Mir gehts schlecht';
antworten[5]:='Lass mich in Ruhe';
randomize();
result:=antworten[random(5)];
end
else
result:='Diese Frage versteh ich nicht';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Showmessage(gibantwort('Wie geht es dir?'));
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Showmessage(gibantwort('Alles klar ?'));
end; |
P.S: Wenn du keine Ahnung von Delphi hast würde ich dir empfehlen ein Buch zu kaufen und mal von Grund auf Programmieren kennenlernen! Sonst wird das absolut nix.
|
|
GTA-Place
Beiträge: 5248
Erhaltene Danke: 2
WIN XP, IE 7, FF 2.0
Delphi 7, Lazarus
|
Verfasst: Sa 04.12.04 20:55
Gleich kommt die Frage:
"Wie bau ich den Code jetzt ein?"
_________________ "Wer Ego-Shooter Killerspiele nennt, muss konsequenterweise jeden Horrorstreifen als Killerfilm bezeichnen." (Zeit.de)
|
|
![Antworten [gesperrt]](./graphics/navbar/reply.png)
