Subtilité Delphi 2005 VS Delphi 7

**Stooowny** · 19/08/2007, 23h32

Voila, j'ai un projet écrit avec delphi 2005, je n'arrive pas à l'ouvrir correctement avec delphi v7

est-ce moi qui n'ai pas du tout saisi comment ouvrir un projet, y'a t-il une subtilité entre les deux version qui provoque un bug ou me manque-t-il un programme pour pouvoir l'ouvrir (tt les icone ne s'affichent pas après avoir extrait le zip)?

Merci d'avance

**sjrd** · 20/08/2007, 00h08

Dans Delphi 7, ouvre le .dpr, et ne t'occupe pas des .local, .bdsproj et .identcache (tu peux les supprimer, ces trois-là).

**Stooowny** · 20/08/2007, 00h18

J'avoue avoir bien mal posé ma question

Le truc c'est que j'arrive à l'ouvrir, mais quand j'appuye sur F9 ça blok, pq?

Est-ce possible de faire fonctionner ce projet avec delphi v7 ?

Edit: ou mm avec delphi v5
Edit2: est-ce normal que les icones: projet1.res, projet1.cfg, unit1.dcu, unit2.dcu ne s'affichent pas correctement?

Merci d'avance

**Qwazerty** · 20/08/2007, 06h22

SAlut
Pose ta question avec les detail du crach
Dans le code j'ai declarer un type record comme ceci, moi j'utilise Delphi 2005 perso et lui 2007

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
  private
    { Déclarations privées }
 
    Type TBaton = Record
         ImgBaton : Timage;
         BoolPris : Boolean;
    end;
 
    var Baton : array [0..19] Of TBaton;

et au moment de l'execution sa s'arrete sur la declaration record (en delphi 2007 pas en 2005) pour ma part je n'utilise âs 2007 et ne comprend pas ...
A++
Qwaz

**Stooowny** · 20/08/2007, 08h17

Pour être exact j'ai la version: "Delphi 7 seconde édition"

Merci d'avance
Stan

**ALWEBER** · 20/08/2007, 08h54

Tu doit réorganiser le début de Unit1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
     TBaton = Record
         ImgBaton : Timage;
         BoolPris : Boolean;
    end;
 
  TFrmPrincipale = class(TForm)
    BtnChoix: TButton;
    Button1: TButton;
    MExcuse: TMemo;
    Label1: TLabel;
    RGPris: TRadioGroup;
    ImgBaton: TImage;
    BtmStart: TButton;
    ImgVide: TImage;
    procedure BtmStartClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure BtnChoixClick(Sender: TObject);
  private
    { Déclarations privées }
    Procedure prepartForm(Joueur : String);
    Procedure JouerLeCoup(NbrPris : Byte);
    Function PremierLibre : Byte;
  public
    { Déclarations publiques }
  end;
 
var
  FrmPrincipale: TFrmPrincipale;
  Baton : array [0..19] Of TBaton;
  BatonRestant : Byte;
        //PremierLibre : Byte;
 
implementation