Code pas fiable dans un livre [:(!]

Signaler
Messages postés
89
Date d'inscription
jeudi 11 avril 2002
Statut
Membre
Dernière intervention
3 juillet 2003
-
Messages postés
89
Date d'inscription
jeudi 11 avril 2002
Statut
Membre
Dernière intervention
3 juillet 2003
-
Voil j'ai achet un livre sur delphi et je fais leurs exercises. Tout march pars un lanceur D'application. Il est compos d'une comboBox ( nom (c le nom de la combobox)) de deux bouton (button1 qui sert executer l'aplication et buton2 qui ouvre le opendialog afin de mettre un application dans la combobox).
Voil le code source:

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Nom: TComboBox;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Dclarations prives }
public
{ Dclarations publiques }
end;
type
St200= String[200];
var
Form1: TForm1;
Appli, Chemin: Array [1..100] of String;
chem, Sdum : string;
I, LDum:Integer;

implementation

{$R *.dfm}
Function ExecuteFile (const Filename, Params, DefaultDir: St200; ShowCMD: Integer): Thandle;
var
zFilename, zParams, zDir: Array [0..200]of Char;
begin
Result:=ShellExecute (Application.mainform.handle, nil ,
StrCopy (ZFilename, Filename), StrCopy (zParams, Params),
StrCopy (zDir, DefaultDir), ShowCMD);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
chem:= ExtractFilePath (chemin [nom.ItemIndex + 1]);
ExecuteFile(nom.Items[nom .ItemIndex],'',chem, SW_Show);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Opendialog1.Initialdir:= 'C:\';
Opendialog1.execute;
If
Opendialog1.Filename <> '' then
Begin
i:=i+1;
SDum:=Opendialog1.Filename;
LDum:= length (SDum);
Chem:= ExtractFilePath (SDum);
Appli [i]:= copy (Sdum, length (chem) +1, LDum -length (chem));
Chemin [i]:= Opendialog1.Filename;
Nom.Items.ADD (Appli [i]);
end;
end;

end.

Sa ne marche pas: la ligne 37, type incompatible st200 et Pchar.
Je suis dbutant et ne peut rsoudre le problme.
Pourriez vous m'aider?

2 réponses

Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
31
Remplaces les StrCopy par des StrPCopy.

Tu as dû faire une erreur de frappe, apparemment.

May Delphi be with you.
Delphi advanced
Messages postés
89
Date d'inscription
jeudi 11 avril 2002
Statut
Membre
Dernière intervention
3 juillet 2003

Effectivement.....j'ai la honte de ma vie