Forum: Object-Pascal / Delphi-Language
by Klaus01,
13. Sep 2009
Hallo Wolfgang,
ein neuer Thread wäre sicher dazu besser.
Vielleicht kann ja ein Moderator diesen Thread ab Beitrag 62
abtrennen und einen neuen aufmachen?
Grüße
Klaus
Forum: Object-Pascal / Delphi-Language
by Klaus01,
13. Sep 2009
so ...
.. ein Set und eine Klasse:
TSeite = set of (Kopf,Zahl);
TMuenze = class(TObject)
private
kopfSeite : TBitmap;
zahlSeite : TBitmap;
Forum: Object-Pascal / Delphi-Language
by Klaus01,
12. Sep 2009
Grundlagen!
procedure TForm1.BMuenzewerfenClick(Sender: TObject);
begin
//zufällige Operation
operation := random(2) + 1;
case operation of
1 : begin
LKopf.Caption := 'Kopf';
// Bild laden
end;
Forum: Object-Pascal / Delphi-Language
by Klaus01,
12. Sep 2009
wenn es denn eine Bitmap (bmp) ist,
Image1.Picture.Bitmap.loadfromFile(FileName);
Grüße
Klaus
Forum: Object-Pascal / Delphi-Language
by Klaus01,
12. Sep 2009
Was meinst Du denn mit "ein paar mal geht es dann wieder"?
Du kanst doch nicht erwarten, das wenn Du aus zwei Werten einen zufälligen auswählst
das dieser immer vom vorherigen Wert abweicht.
Grüße
Klaus
Forum: Object-Pascal / Delphi-Language
by Klaus01,
12. Sep 2009
Hallo,
wo hakt es denn?
Einen Zufallswert zu bestimmen? 0 = Kopf 1 = Zahl?
Ein Bild (jpg, bmp) in ein TImage zu laden.
Beschreibe Dein Probelm etwas präzieser.