Supportnet / Forum / Anwendungen(Java,C++...)
Delphi random problem
Frage
const max = 21;
var
Form1: TForm1;
zufall: integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
RichEdit1.Lines[0] := ´Ihre Vorhersage fuer heute...´;
zufall := random(max);
RichEdit1.Lines[1] := ´´;
case zufall of
1: RichEdit1.Lines[1] := ´Konzentrieren Sie sich auf Ihre Karriere. Die Erfolgssterne stehen nämlich hinter Ihnen.´;
2: RichEdit1.Lines[1] := ´Ihre Leistungskurve steigt, Ihr Ehrgeiz wird kosmisch geschürt und der Draht zu Vorgesetzten ist ziemlich heiß. Geben Sie alles im Job, dann dürfen Sie auch viel verlangen.Also geben sie sich mühe.´;
3: RichEdit1.Lines[1] := ´Heute stehen Sie wohl ein bisschen unter Dampf und im Job unter Stress. Wenn Sie sich selbst noch unter Zeit- und Leistungsdruck setzen, wird es noch schlimmer. Überschlagen Sie sich nicht.´;
4: RichEdit1.Lines[1] := ´Schieben Sie im Job heute möglichst nichts auf die lange Bank. Ab morgen und übermorgen könnte es nämlich sehr stressig werden. Da brauchen Sie einen "aufgeräumten" Arbeitsplatz und Kopf.´;
5: RichEdit1.Lines[1] := ´Gestalten Sie dieses Wochenende mal wieder ganz nach Ihrem Geschmack. Sie können ein bisschen auf der faulen Haut liegen. Sie können auch gesellige Aktivitäten einplanen.´;
6: RichEdit1.Lines[1] := ´Die beruflichen und häuslichen Pflichten sollten heute zwar nicht schleifen, doch der Spaßfaktor sollte auch nicht zu kurz kommen.´;
7: RichEdit1.Lines[1] := ´Die Sterne werden Sie heute sicherlich nicht überfordern. Sie selbst sollten es natürlich auch nicht tun. Im Gegenteil, Sie könnten sich mal wieder etwas Freizeit gönnen.´;
8: RichEdit1.Lines[1] := ´Diszipliniertes und umsichtiges Handeln wird zu einem späteren Zeitpunkt belohnt. Keine Empfindlichkeiten! Sie sind gut!´;
9: RichEdit1.Lines[1] := ´ Wenige Freunde, aber treue Freunde. Lassen Sie Freunde ziehen, mit denen Sie nichts mehr verbindet. Der Abschied fällt Ihnen jetzt leicht.´;
10: RichEdit1.Lines[1] := ´Der Widder-Mond lenkt Ihre Aufmerksamkeit auf die täglichen Pflichten. Einzelheiten sollten Sie jetzt noch mehr Beachtung schenken.´;
11: RichEdit1.Lines[1] := ´Sie sind stark. Ihre Widersacher auch. Schlagen Sie den goldenen Mittelweg ein. Bescheidenheit ist eine Tugend! Denken Sie daran.´;
12: RichEdit1.Lines[1] := ´Sie haben eine hohe Fähigkeit sich auszudrücken. Allerdings ist Ihre Vorstellungskraft unbeständig. Zeiten intensiver Kreativität wechseln sich ab mit Zeiten, in denen Sie das Gefühl haben.´;
13: RichEdit1.Lines[1] := ´Sie verreisen gern, das bringt Ihnen Ablenkung und neue Energie. Ihre Gefühle sind oft diffus und oberflächlich. In der Liebe stürzen Sie sich häufig und intensiv in neue Affären.´;
14: RichEdit1.Lines[1] := ´Zügeln Sie Ihren starken inneren Willen. Sie werden viel besser mit auftauchenden Krisen zurechtkommen, wenn Sie Ihre Kräfte sammeln und sich auf eine Sache konzentrieren.´;
15: RichEdit1.Lines[1] := ´Innerlich sind Sie natürlich, unkompliziert und häuslich. Sie sind sehr einfühlsam und empfänglich für alle äußeren Einflüsse. Sie lieben unkomplizierte und fröhliche Beziehungen.´;
16: RichEdit1.Lines[1] := ´Sie haben enge Beziehungen zu Ihrer Familie, besonders zu Ihrer Mutter. Manchmal bringen Sie Dinge nicht zum Abschluß.´;
17: RichEdit1.Lines[1] := ´Innerlich befinden Sie sich in einem Konflikt. Während Ihr wahres Wesen natürlich und unkompliziert ist, setzen Sie sich nach außen hin leidenschaftlich für die Verwirklichung höherer Ideale ein.´;
18: RichEdit1.Lines[1] := ´Sie haben einen Hang zum Originellen und sind neuen Ideen gegenüber sehr aufgeschlossen, ohne exzentrisch zu sein.´;
19: RichEdit1.Lines[1] := ´Sie sind ein ausgesprochen ausgeglichener Mensch und hatten wahrscheinlich eine schöne Jugend.´;
20: RichEdit1.Lines[1] := ´Eigentlich wollen Sie noch mehr Freiheit genießen, aber Ihr gesunder Menschenverstand rät Ihnen, Ihre konventionelle Art beizubehalten.´;
21: RichEdit1.Lines[1] := ´In der Liebe sind Sie sehr zuvorkommend und einfühlsam. Grundsätzlich wird Ihr Leben angenehm verlaufen.´;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
randomize;
end;
end.
So das is mein Programm bei Delphi
Also ich bin noch ein newbie in programmieren, also sorry wenn es eine dumme frage ist.
Mein problem ist das bei meinem programm die random funktion nicht richtig funktioniert. immer wenn ich den button zum randomisieren drücke, dann mischen sich die sätze wuie wld zusammen
thx schon im vorraus
Antwort 1 von sTk
Das liegt wahrscheinlich daran, dass die Strings unterschiedlich lang sind, und sich dann gegenseitig überschreiben!
Füg mal noch folgenden Code am Anfang der Button-Prozedur ein:
und versuchs dann nochmal!
Gruß, Steffen
Füg mal noch folgenden Code am Anfang der Button-Prozedur ein:
RichEdit1.Clear;und versuchs dann nochmal!
Gruß, Steffen
Antwort 2 von Delgo
Also der Tipp vom Steffen geht nicht, weil ich nicht genau weiss, wo ich RichEdit1.Clear hinschreiben muss. Ich habe es an verschiedene Stellen ausprobiert, aber es hat trozdem nicht funktioniert. Entweder sehe ich garnichts, oder nur den Satz "Ihre vorhersage für heute".