DELPHI CSB (CODE SOURCE BIBLIOTHÈQUE)

Commentaire de Delphinet27 le 14/03/2009 16:56:06

Tu n'as pas la librairie JVCL?
Que veux tu dire?

Commentaire de Delphinet27 le 14/03/2009 17:05:13

Si tout à fais mais l'interface en serra moins beau.
Je vais donc modifier tout ca... Pas de problèmes.

Commentaire de Bacterius le 14/03/2009 17:14:22

C'est pas mal écrit, juste quelques trucs qu'on peut améliorer :

ADOdelphi.CursorLocation := clUseServer;
  ADOdelphi.LockType := ltPessimistic;
  ADOdelphi.SQL.Clear;
  ADOdelphi.sql.add('Select count(*) as nb from Delphi');
  ADOdelphi.ExecSQL;
  ADOdelphi.Open;
  Compte:=ADOdelphi.Fieldbyname('nb').AsInteger;
  ADOdelphi.SQL.Clear;
  ADOdelphi.SQL.add('Select titre from Delphi');
  ADOdelphi.ExecSQL;
  ADOdelphi.Open;

Tu peux remplacer par :

with ADODelphi do
begin
  CursorLocation := clUseServer;
  SQL.Clear;
  ...
end;

Pareil avec les autres.
Et tu peux aussi renommer les composants c'est plus facile à la lecture.

Cordialement, Bacterius !

Commentaire de Delphinet27 le 15/03/2009 14:15:57

15 mars 2009 14:07:39 :
Suppression des composants jcvl. Modifictation d'écriture.
15 mars 2009 14:10:17 :
Suppression des composants jvcl Modification de code
15 mars 2009 14:12:46 :
Suppression composants JVCL Correction de code

3 mise à jour à lors que j'en ai fais qu'une?!?

Commentaire de cantador le 15/03/2009 14:27:53

bonjour,
je n'ai tout regardé..pas trop le temps en ce moment
juste ce détail:
ExecSQL;
Open;

seule Open est nécessaire