DIGISPEC : NUMÉRISATION D'ÉLECTROPHORÈSES (SPECTRES ÉLECTROPHORÉTIQUES)

Commentaire de f0xi le 21/02/2007 09:09:20 administrateur CS

je regarderais ça en details plus tard, car ça m'as l'air interressant,
par contre tu peu tout de suite modifier ça :

Function SansExt(const Nom:String):String;
Begin
  result := Copy(Nom, 1, Length(Nom) - Length(ExtractFileExt(Nom)));
end;

et ça :

function RealChaine(const V : single) : string;
var FS : TFormatSettings;
begin
  FS.DecimalSeparator := Sep;
  result := format('%.2f', [V], FS);
end;

et aussi pour simplifier et accelerer le calcul de densité :

function GetDensity(const Color : integer) : single;
var CC : integer;
begin
  CC     := Not Color;
  result := (byte(CC) + byte(CC shr 8) + byte(CC shr 16)) / 7.65;
end;

prefere l'utilisation du type Single ou Extended plutot que le type Real :

PasX, PasY, Densite : Single; (le type real est obsolete)

Commentaire de Globus56 le 22/02/2007 10:45:15

Merci f0xi pour ces remarques constructives.
C'est vrai qu'il manque une phase de relecture et d'optimisation de mon code... une fois qu'il faisait ce dont j'avais besoin, je l'ai laissé en l'état.
J'aurai au moins appris quelques "ficelles" comme l'initialisation des variables (au fait, je crois qu'on le faisait déjà en Turbo Pascal en utilisant les constantes typées).
Pareil pour le tyte Real: une vielle habitude...
Les encouragements, ça fait toujours plaisir, mais ça devient si rare!
G56

Commentaire de PhilLU le 27/08/2007 18:19:00

Bonjour,
j'essaie de compiler digispec, mais je reçois le code d'erreur :
File not found: OleAuto.dcu
qui peux m'aider?
A+
PhilLu.

Commentaire de Globus56 le 27/08/2007 23:25:51

Bonsoir,

Je compile avec Delphi5, les erreurs signalées viennent sans doute de modifications faites par Borland dans les versions suivantes... OleAuto est une unité fournie en standard avec Delphi5, si tu as une autre version de Delphi... soit elle n'existait pas dans les versions antérieures, soit elle a changé de nom dans les versions suivantes... Il faudrait donc reprendre la doc de votre version de Delphi pour voir, mais j'ai bien écrit "il faudrait" car en fait je n'ai jamais pris le tmeps de mettre au point la liaison OLE destinée à envoyer les données directement dane Excel (nécessité de se taper la doc Microsoft, pas vraiment accessible), vous pouvez donc supprimer le code correspondant, soit
- l'item du menu "Exporter dans Excel"
- la procédure correspondante: "TForm1.Exporter1Click" qui de toutes façons ne marche pas.
Pour la seconde erreur, là je ne vois vraiment pas car TAction est un type énuméré déclaré dans l'interface de l'unité principale... si maintenant on n'a plus le droit de déclarer des types en Delphi, où va le monde? Bon, évidemment, le type est utilisé pour déclarer une variable globale ce qui n'est pas joli-joli, mais c'est quand même permis! Pour avancer, il faudrait savoir à quel endroit du code se trouve l'erreur (normalement, le compilateur affiche la ligne fautive) et essayer de comprendre là où ça coince. Attention, la variable globale s'appelle Action_ vérifiez que le "_" se trouve bien partout sauf dans la ligne "procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);" où justement Action (sans "_") est d'un type descendant de TBasicAction.

Merci de vos messages et n'hésitez pas à y revenir si ça ne marche toujours pas. Bon courage pour la programmation Delphi.

F.Borie (Globus56)