Delphi 8 Programm in Delphi 6 kompilieren?

Public Enemy · Beiträge: 26 Win Xp und Win Vista Delphi 6 und 7

Hallo zusammen,

und zwar hat ein Kollege ein Spiel in Delhpi 8 bzw. 2009 erstellt. Doch kann ich nicht die Exe öffnen da ich immer einen Fehler bekomme. Daraufhin wollte ich ich die Source haben um es selber zu kompilieren jedoch habe ich Delphi 6 bzw. könnte es auch noch mit 7 machen. Aber ging nicht. Jetzt habe ich den Code von der Form und der Unit krieg ich das jetzt irgendwie in Delphi 6 unter ?

Gruß PE

Narses · Verfasst: Mo 02.03.09 19:15

Moin!

Ich übersetze mal deine Frage, damit dir klar wird, was du da fragst:

Frage: "Mein Freund hat einen total genialen Handy-Akku erfunden, kann ich den auch irgendwie in meinem tollen XYZ-Handy benutzen?" :gruebel:

Anwort: "Woher sollen wir das wissen, ohne das Ding nicht wenigstens mal gesehen zu haben?!"

Fazit: Zeig mal den Code, so kommen wir da nicht weiter. :nixweiss:

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

Public Enemy · Beiträge: 26 Win Xp und Win Vista Delphi 6 und 7

Hier der Code aus der Form

markieren

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

markieren

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.

Narses · Verfasst: Mo 02.03.09 19:37

Moin!

Public Enemy hat folgendes geschrieben :

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

Kein Problem, ich wollte dir nur den Hintergrund deutlich machen.

Hier die Anleitung, das für D7 umzubauen (was anderes habe ich grade nicht hier):

uses-Klausel:

markieren

Delphi-Quelltext

1:
2:
3:

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls;

Formular einbinden:
markieren

Delphi-Quelltext
1:

{$R *.dfm}
alle .Text-Eigenschaften, die der Compiler nicht akzeptiert, in .Caption ändern
diese Zeile gesetzteZahl := StrToInt(ComboBox1.Items[ComboBox1.ItemIndex].ToString);
so anpassen: gesetzteZahl := StrToInt(ComboBox1.Items[ComboBox1.ItemIndex]);

Dann lässt es sich bei mir starten. Ob alles "klappt", weiß ich allerdings nicht. :nixweiss:

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

Public Enemy · Beiträge: 26 Win Xp und Win Vista Delphi 6 und 7

Vielen Dank für deine Antwort werde es mal probieren

und mich nochmal melden

Es geht vielen Dank

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme