Hallo...
2 Sachen fallen mir auf:
1. Ich vermisse
Randomize, die Initialisierung des Zufallszahlengenerators
2.
Delphi-Quellcode:
Lotto := random(4);
case Lotto of
1:begin
imgAkkord.Picture.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'Pics\C-Dur.jpg');
lbnAkkord.Caption := ('C-Dur');
end;
2:begin
imgAkkord.Picture.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'Pics\D-Dur.jpg');
lbnAkkord.Caption := ('D-Dur');
end;
3:begin
imgAkkord.Picture.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'Pics\G-Dur.jpg');
lbnAkkord.Caption := ('G-Dur');
end;
- die Variable Lotto kann Werte zwischen 0 und 4 annehmen und dein
case geht von 1 bis 3
- deshalb passiert öfter nichts, da Lotto einen Wert hat, der nicht in der case Anweisung vorhanden ist.
- Vorschlag:
Delphi-Quellcode:
Lotto := random(2);
case Lotto of
0:begin
imgAkkord.Picture.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'Pics\C-Dur.jpg');
lbnAkkord.Caption := ('C-Dur');
end;
1:begin
imgAkkord.Picture.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'Pics\D-Dur.jpg');
lbnAkkord.Caption := ('D-Dur');
end;
2:begin
imgAkkord.Picture.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'Pics\G-Dur.jpg');
lbnAkkord.Caption := ('G-Dur');
end;
- bei den anderen entsprechend auch anpassen...
Hoffe geholfen zu haben...
