-
Forum: Object-Pascal / Delphi-Language
Delphi
by school- delphi,
9. Dez 2004
Hallo,
Abschließend will ich mich nochmal bedanken. Ihr habt mir sehr weitergeholfen. Meine Fragen werden sich für Profis wahrscheinlich vollkommen unprofessionell anhören. Aber der ganze Stress, obwohl ich Delphi spannend finde und mich auch in meiner nächsten Freizeit mal ohne Schulzwänge so richtig damit befassen werde.
Vielen Dank und baldige schöne Weihnachten!!!!
Lisa
-
Forum: Object-Pascal / Delphi-Language
Delphi
by school- delphi,
9. Dez 2004
Hallo
es klappt jetzt--- ihr seid echt super
vielen herzlichen dank
procedure TForm1.Button1Click(Sender: TObject);
var
Menge: set of Byte;
i,y: Integer;
-
Forum: Object-Pascal / Delphi-Language
Delphi
by school- delphi,
9. Dez 2004
Hallo
die Lösung von alcaeus ist total super und verständlich. Erstmal herzlichen Dank - nur in der Zeile mit dem until not tauchen folgende Fehler auf:
Unit1.pas(41): Operator oder Semikolon fehlt
Unit1.pas(41): Operator ist auf diesen Operandentyp nicht anwendbar
Ich glaube ich schicke nochmal den ganzen quellcode- wie geht das mit dem delpgi tags
vielen dank liebe delphi- Könner...
-
Forum: Object-Pascal / Delphi-Language
Delphi
by school- delphi,
9. Dez 2004
DANKE
also jetzt klappt das mit dem überprüfen anhand dem index.
Nur ich muss leider mit den mengen arbeiten.
Leider weiß ich überhaupt nichts mit dem until not anzufangen, obwohl das der Lehrer ausdrücklich betont hat. :cry:
Aber vielen vielen dank
Lisa
-
Forum: Object-Pascal / Delphi-Language
Delphi
by school- delphi,
9. Dez 2004
Hallo,
vielen Dank erstmal. Leider hat die Version nicht geklappt. Und mein grö0tes Problem ist dass es genau um die menge geht (Hauptbestandteil der Arbeit)
Und die Lottozahlen müssen unabdingbar auch diese arbeitsweisen mit mengen besitzen.
danke aber
grüße
lisa
-
Forum: Object-Pascal / Delphi-Language
Delphi
by school- delphi,
9. Dez 2004
hallo,
also wenn man das so versucht- klappts leider nicht--- unendlich viele zahlen in der listbox erscheinen dann.
begin
for i:= 1 to 6 DO
repeat
Y:= random(49)+1;
ListBox1.Items.Add(inttostr(y));
until not ListBox1.Items.IndexOf(IntToStr(y))=-1;
-
Forum: Object-Pascal / Delphi-Language
Delphi
by school- delphi,
9. Dez 2004
Hallo,
also erstmal klappt das jetzt, dass wenigstens 6 Zahlen in der Listbox erscheinen- dafür bin ich unendlich froh. Jetzt könnte man ja die for schleife in repeat until umändern.
begin
for i:= 1 to 6 DO
repeat
Y:= random(49)+1;
ListBox1.Items.Add(inttostr(y));
until not lottozahl= y;
-
Forum: Object-Pascal / Delphi-Language
Delphi
by school- delphi,
9. Dez 2004
hallo,
schon mal vielen vielen Dank vor allem für die letzte Antwort, die hat mich schon mal sehr weitergebracht.
Nur stellt sich jetzt noch die frage
wie man das überprüfen kann (until not); dass man nicht zweimal die gleiche erzeugt.
Vielen Dank nochmal
und schöne baldige Weihnachten
-
Forum: Object-Pascal / Delphi-Language
Delphi
by school- delphi,
9. Dez 2004
hallo
danke für eure antworten
also ich hänge and der stelle mit until not und an dieser komischen menge und wenn ich den quellcode so durchlaufen lasse kommt nur eine zahl in der listbox.
sorry, dass ich wahrscheinlich mich richtig unprofessionell anhöre, aber bin echt überfordert momentan- schulstress/abistress
grüße
lisa
-
Forum: Object-Pascal / Delphi-Language
Delphi
by school- delphi,
9. Dez 2004
hallo
naja ist halt das Problem, dass wir n auswendig können müssen und ich komm schon ab da nicht mehr weiter.
grüße
lisa
-
Forum: Object-Pascal / Delphi-Language
Delphi
by school- delphi,
9. Dez 2004
Hallo,
ich versuch das schon selber, aber das ist immer vollkommen unermutigend, wenn das dauenrnd nicht klappt. Also das hier hab ich schon mal, aber naja
var
Form1: TForm1;
lottozahl: set of byte;
implementation
-
Forum: Object-Pascal / Delphi-Language
Delphi
by school- delphi,
9. Dez 2004
Hallo liebe Delphi- Tüftler,
habe ein großes Problem. Wir schreiben morgen in Informatik eine Arbeit und wir müssen unnbedingt können, wie man ein Lottoprogramm programmiert. Dieses Lottoprogramm soll mit dem Datentyp Menge erreicht werden.
also var lottozahl: set of byte;
Die Ausgabe soll in einer Listbox erfolgen. Der Quellcode sollte möglichst einfach sein und ausschließen, dass eine...