Små ændringer i lykkehjulet

er det mulig du kan poste denne case-of sætning? :-)

Min case ser sådan ud:

procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize  ;
Valg:=Random(6);
case Valg of
0: begin
    facit:='KARTOFFEL';
    end;
1: begin
    facit:='SPORVOGNSSKIDTSKINNERENSER';
    end;
2: begin
    facit:='DILETTANTER';
    end;
3: begin
    facit:='PROGRAMKONSTRUKTION';
    end;
4: begin
    facit:='KOABE';
    end;
5: begin
    facit:='SVINEGRIS';
    end;
end;
end;

Kan man på en måde starte case'en forfra?

Når ordet er gættet, skal den ovenståebnde case begynde forfra, hvordan gør man det?

Randomize;
Valg := Random(6);
case Valg of
0: begin
    facit:='KARTOFFEL';
    SpgTegn := '?????????';
    end;
1: begin
    facit:='SPORVOGNSSKIDTSKINNERENSER';
    SpgTegn := '??????????????????????????';
    end;
2: begin
    facit:='DILETTANTER';
    SpgTegn := '???????????';
    end;
3: begin
    facit:='PROGRAMKONSTRUKTION';
    SpgTegn := '???????????????????';
    end;
4: begin
    facit:='KOABE';
    Spgtegn := '?????';
    end;
5: begin
    facit:='SVINEGRIS';
    SpgTegn := '?????????';
    end;
end;
Edit1.Text := Facit;
Edit2.Text := SpgTegn;

// med hensyn til "nulstilling" af case-of sætningen, kan du da bare ikke sætte
Valg := 0; når et ord bliver gættet?

men dette lykkehjul du er ved at kode, stammer dette projekt ikke fra bogen Programkonstruktion med delphi, fra tolstrup data? :-)

Jeg fandt faktisk selv ud af den selv samme kode. Jo det er nemlig lykkehjulet fra Tolstrup Data :D

Er det muligt at bruge en variabel fra Form1 i Form2?

ja, men så skal variablen være ærklæret globalt :-)

Ja, men undervejs i mit program tildeles variablen gevinst andre værdier - i takt med, at spilleren gætter rigtige bogstaver.

Når jeg bruger den globale variablen fra Form1 i Form2, kommer kun den værdi jeg har givet den i Initialization, i stedet for det spilleren har vundet, når spillet er slut?

Håber, min problemstilling er forståelig.

Måske det er muligt bare at overføre indholdet af en Edit fra en form til en anden?

det kan man godt, det er bare en lille hurtig løsning... :-)

Hvad er det for en lille hurtig løsning?

Afslutter