Moin Moin!
Zuallererst wäre es schön, wenn du deinen Beitrag editierst und den Quellcode in Delphi-Tags setzt. Dazu schreibst du einfach vor den Quellcode [ delphi] und danach [ /delphi] (ohne Leerzeichen)
Zitat von
Nicole:
Ich habe ein Programm bekommen und kann mir ein paar zeilen nicht selbst erklären,könntet ihr mir villeicht helfen?
Und um welche Zeilen geht es genau?
//Edit: Ah OK, da haben wirs ja
Ich formatiere gleich mal den Quellcode so, daß es etwas übersichtlicher wird
Delphi-Quellcode:
begin
for i:=1 to 6 do
begin
listbox1.Clear;
repeat
gezogen:=false; <----?
zahl:=random(49)+1;
for j:=1 to i-1 do
if lotto[j]=Zahl then
gezogen:=true; <----?
until gezogen=false; <----?
lotto[i]:=Zahl;
end; <---- wieso muss da jetzt schon ein end hin?
for i:=1 to 6 do
listbox1.items.add(inttostr(lotto[i]));
end;
Hier handelt es sich um eine "Repeat-Until-Schleife". Die Anweisungen innerhalb Repeat und Until werden also solange ausgeführt (mindestens 1 mal), bis die Abbruchbedingung bei Until erfüllt ist.
In Zeile 5 wird eine boolesche Variable auf false gesetzt, was meiner Meinung nach auch einmal außerhalb der Schleife geschehen könnte.
Zeile 9 widerrum setzt die gleiche Variable auf true. Das heißt in diesem Fall einfach nur, daß die Repeat-Until-Schleife bei Erreichen von Until verlassen werden kann.
Und Zeile 10 gibt eben die Abbruchbedingung der Schleife an.
Das End in Zeile 12 muß eben da stehen, weil es die Anweisungen der For-Schleife aus Zeile 2 abschließt. Genaugenommen hätte man sich hier die 2. For-Schleife sparen können und direkt in der oberen Schleife schon in die ListBox schreiben können.
//Edit:
Was isn heute los? Ich gebe Delphi-Tags ein, es werden aber Pre-Tags geschrieben, und editieren läßt sich das auch nicht
@MrKnogge: Die waren am Anfang noch nicht da
//Edit: So, jetzt geb ichs endgültig auf, die Delphi-Tags mögen mich heute nich
[edit=alcaeus]Delphi-Tags korrigiert Mfg, alcaeus[/edit]