Entwickler-Ecke :: Thema anzeigen - Delphi 8 Programm in Delphi 6 kompilieren?

Public Enemy - Mo 02.03.09 19:25

Hier der Code aus der Form

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:

object Form1: TForm1
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Chuck a Luck'
  ClientHeight = 185
  ClientWidth = 465
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  Left = 8
  Top = 8
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Caption = 'Geld:'
    Left = 8
    Top = 8
    Width = 25
    Height = 13
  end
  object Label9: TLabel
    Caption = 'Gewonnen:'
    Left = 152
    Top = 8
    Width = 55
    Height = 13
  end
  object Label10: TLabel
    Caption = 'Einsatz:'
    Left = 312
    Top = 8
    Width = 38
    Height = 13
  end
  object GroupBox1: TGroupBox
    Caption = '1. Setzen'
    TabOrder = 0
    Left = 8
    Top = 32
    Width = 137
    Height = 145
    object Label2: TLabel
      Caption = 'Restgeld:'
      Left = 8
      Top = 56
      Width = 46
      Height = 13
    end
    object Label3: TLabel
      Caption = 'Zahl:'
      Left = 8
      Top = 82
      Width = 24
      Height = 13
    end
    object ComboBox1: TComboBox
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 0
      Left = 64
      Top = 80
      Width = 49
      Height = 21
    end
    object Button3: TButton
      Caption = 'Setzen'
      TabOrder = 1
      Left = 8
      Top = 112
      Width = 121
      Height = 25
      OnClick = Button3Click
    end
  end
  object TrackBar2: TTrackBar
    TabOrder = 1
    Left = 320
    Top = 184
    Width = 17
    Height = 1
  end
  object Button1: TButton
    Caption = '-'
    Enabled = False
    TabOrder = 2
    Left = 16
    Top = 56
    Width = 25
    Height = 25
    OnClick = Button1Click
  end
  object Button2: TButton
    Caption = '+'
    TabOrder = 3
    Left = 104
    Top = 56
    Width = 25
    Height = 25
    OnClick = Button2Click
  end
  object Edit1: TEdit
    ReadOnly = True
    TabOrder = 4
    Text = '1'#8364
    Left = 48
    Top = 58
    Width = 49
    Height = 21
  end
  object GroupBox2: TGroupBox
    Caption = '2. W'#252'rfeln'
    TabOrder = 5
    Left = 152
    Top = 32
    Width = 145
    Height = 145
    object Label4: TLabel
      Caption = 'W'#252'rfel1:'
      Left = 8
      Top = 24
      Width = 42
      Height = 13
    end
    object Label5: TLabel
      Caption = 'W'#252'rfel2:'
      Left = 8
      Top = 48
      Width = 42
      Height = 13
    end
    object Label6: TLabel
      Caption = 'W'#252'rfel3:'
      Left = 8
      Top = 72
      Width = 42
      Height = 13
    end
    object Button4: TButton
      Caption = 'Los!'
      TabOrder = 0
      Left = 8
      Top = 112
      Width = 129
      Height = 25
      OnClick = Button4Click
    end
  end
  object GroupBox3: TGroupBox
    Caption = '3. Gewinnen und neu starten'
    TabOrder = 6
    Left = 304
    Top = 32
    Width = 153
    Height = 145
    object Label7: TLabel
      Caption = 'Treffer:'
      Left = 8
      Top = 24
      Width = 38
      Height = 13
    end
    object Label8: TLabel
      Caption = 'Gewinn:'
      Left = 8
      Top = 48
      Width = 39
      Height = 13
    end
    object Button5: TButton
      Caption = 'Neu starten'
      TabOrder = 0
      Left = 8
      Top = 112
      Width = 137
      Height = 25
      OnClick = Button5Click
    end
  end
end

Der hier aus der Unit

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:

interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, System.ComponentModel, Borland.Vcl.StdCtrls,
  Borland.Vcl.ComCtrls, Borland.Vcl.Menus;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    GroupBox1: TGroupBox;
    TrackBar2: TTrackBar;
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Label2: TLabel;
    ComboBox1: TComboBox;
    Label3: TLabel;
    Button3: TButton;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    Button4: TButton;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Button5: TButton;
    Label9: TLabel;
    Label10: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  geld: integer;
  gesetztesGeld: integer;
  gesetzteZahl: integer;
  i: integer;
  w1, w2, w3: integer;
  trefferCount: integer;
  einsatz: integer;
  gewonnen: integer;
 
 
implementation
 
{$R *.nfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Button4.Enabled := false;
  Button5.Enabled := false;
  geld:=20;
  gesetztesGeld:= 1;
  einsatz := 0;
  gewonnen := 0;
  Label1.Text := 'Geld: ' + IntToStr(geld) + '€';
  Label2.Text := 'Restgeld: ' + IntToStr(geld-gesetztesGeld) + '€';
  Label9.Text := 'Gewonnen: 0€';
  Label10.Text := 'Einsatz: 0€';
  for i:=1 to 6 do
  begin
  ComboBox1.Items.Add(IntToStr(i))
  end;
  ComboBox1.ItemIndex := 0;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  inc(gesetztesGeld,1);
  Edit1.Text := IntToStr(gesetztesGeld) + '€';
  Button1.Enabled := true;
  Label2.Text := 'Restgeld: ' + IntToStr(geld-gesetztesGeld) + '€';
  if (geld-gesetztesGeld = 0) then
  begin
    Button2.Enabled := false;
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  dec(gesetztesGeld,1);
  Edit1.Text := IntToStr(gesetztesGeld) + '€';
  Button2.Enabled := true;
  Label2.Text := 'Restgeld: ' + IntToStr(geld-gesetztesGeld) + '€';
  if (gesetztesGeld=1) then
  begin
    Button1.Enabled := false;
  end;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
  Button1.Enabled := false;
  Button2.Enabled := false;
  Edit1.Enabled := false;
  ComboBox1.Enabled := false;
  Button4.Enabled := true;
  gesetzteZahl := StrToInt(ComboBox1.Items[ComboBox1.ItemIndex].ToString);
  dec(geld, gesetztesGeld);
  inc(einsatz, gesetztesGeld);
  Label10.Text := 'Einsatz: ' + IntToStr(einsatz) + '€';
  Label1.Text := 'Geld: ' + IntToStr(geld) + '€';
  Button3.Text := 'Gesetzt';
  Button3.Enabled := false;
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
    w1:=1+Random(6);
    w2:=1+Random(6);
    w3:=1+Random(6);
    Label4.Text := 'Würfel1: ' + IntToStr(w1);
    Label5.Text := 'Würfel2: ' + IntToStr(w2);
    Label6.Text := 'Würfel3: ' + IntToStr(w3);
    Button4.Text := 'Fertig';
    Button4.Enabled := false;
    Button3.Enabled := false;
    Button5.Enabled := true;
    trefferCount:=0;
    if(w1=gesetzteZahl) then
    begin
     inc(trefferCount,1);
    end;
    if(w2=gesetzteZahl) then
    begin
     inc(trefferCount,1);
    end;
    if(w3=gesetzteZahl) then
    begin
     inc(trefferCount,1);
    end;
    Label7.Text := 'Treffer: ' + IntToStr(trefferCount);
    Label8.Text := 'Gewinn: ' + IntToStr(trefferCount*gesetztesGeld) + '€';
    inc(geld, trefferCount*gesetztesGeld);
    Label1.Text := 'Geld: ' + IntToStr(geld) + '€';
    inc(gewonnen, trefferCount*gesetztesGeld);
    Label9.Text := 'Gewonnen: ' + IntToStr(gewonnen) + '€';
    if(geld=0) then
    begin
      Button5.Enabled := false;
      ShowMessage('Verloren!!!');
    end;
end;
 
procedure TForm1.Button5Click(Sender: TObject);
begin
  Button1.Enabled := false;
  Button2.Enabled := true;
  Button3.Enabled := true;
  Button4.Enabled := false;
  Button5.Enabled := false;
  Edit1.Enabled := true;
  ComboBox1.Enabled := true;
  Label4.Text := 'Würfel1:';
  Label5.Text := 'Würfel2:';
  Label6.Text := 'Würfel3:';
  Label7.Text := 'Treffer:';
  Label8.Text := 'Gewinn:';
  gesetztesGeld := 1;
  Edit1.Text := '1€';
  if(geld-gesetztesGeld=0) then
  begin
    Button2.Enabled := false;
  end;
  Label2.Text := 'Restgeld: ' + IntToStr(geld-gesetztesGeld) + '€';
end;

Ja Tschuldigung für meine Fragestellung ich versuche dazu zu lernen.

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!