AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

  • CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 07 11 20:23:04
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

455 commentaire(s) de japee sur des sources sur tout CodeS-SourceS

Le : 30/03/2008 16:33:00
Source : BOIDS DE CRAIG REYNOLDS
Y'a plus qu'à en faire un screensaver...
C'est très intéressant de jouer avec les paramètres en constantes.
Bravo pour cet excellent code!

Le : 09/02/2008 21:31:23
Source : COPIEUR DE PIXELS
Ne fais pas le malin, Debiars... Caribensila (l'insolent) s'en prend à moi car il n'a pas osé te citer, mais j'ai le regret de te faire remarquer que tu fais partie du groupe des seniors qui "assurent". Lui aussi d'ailleurs... Bon. Non mais.

Et arrêtez de mettre des commentaires, je ne vais jamais pouvoir supprimer cette source. ;-)

Le : 07/02/2008 21:13:02
Source : COPIEUR DE PIXELS
Salut Bacterius,

"uses Jpeg;"
Si le compilateur refuse, c'est que l'unité Jpeg.pas n'est pas présente dans D3.

Ce source ne pourra hélas pas être conservé car il est d'un niveau vraiment trop... débutant.

Un exemple :

if PixelY = 425 then if PixelX = 431 then Timer1.Enabled := False;
     if PixelY = 425 then if PixelX = 431 then Timer2.Enabled := False;
     if PixelY = 425 then if PixelX = 431 then MessageDlg('Transfert terminé', mtInformation, [mbOK], 0);

Il est plus correct de faire :

if PixelY = 425 then if PixelX = 431 then
begin
  Timer1.Enabled := False;
  Timer2.Enabled := False;
  MessageDlg('Transfert terminé', mtInformation, [mbOK], 0);
end;

Mais c'est surtout la démarche utilisée qui n'est pas appropriée, comme te le suggèrent Caribensila et Nicolas__.
Des exemples d'utilisation de Scanline sont disponibles sur le site. Florenth en a déposé un assez récemment qui est particulièrement bien fait.

N'hésite pas à participer au forum, en posant les bonnes questions qui font progresser. Je suis sûr que tu pourras très rapidement nous proposer quelque chose de valable.

A+

Le : 14/01/2008 21:20:16
Source : LISTVIEW TRIÉE QUAND ON CLIQUE SUR L'ENTÊTE, COULEUR DIFFÉRENTE UNE LIGNE/COLONNE SUR DEUX
Il manque le zip !

Le : 14/01/2008 08:29:09
Source : DEPLACER LES ITEMS D'UNE LISTBOX VERS UNE AUTRE PAR DRAG AND DROP
amiga68 > lol !
J'avais même pas fait gaffe.
Comme quoi, quand on est pris par la programmation, on ne pense plus qu'à ça... ^^

Le : 09/01/2008 00:16:20
Source : DEPLACER LES ITEMS D'UNE LISTBOX VERS UNE AUTRE PAR DRAG AND DROP
Hello Delphiprog,

J'avais pourtant lancé une recherche pour être sûr de ne pas poster en double... et je n'avais pas vu ton code.
Je vais étudier tout ça tranquillement, car là (Bruni^^) j'étais passé à autre chose et il faut que je me replonge dans le sujet.
Je note au passage le "DeleteSelected". Diantre, je veux que ça allège le code, je ne sais pas comment je suis passé à côté...
Joyeuses Pâques à toi aussi ^^

A +

Le : 07/01/2008 22:36:13
Source : NBRFUNCTIONS
Hé oui...

Le minimum aurait été d'écrire 1 seule fonction plutôt que 3. Parce que si tu veux faire la même chose sur 4 chiffres, il te faut rajouter une fonction. Sur 5 chiffre, 2 fonctions de plus. Pour 6 chiffres... bon, tu as compris.

Et l'utilisation de boucles est le B.A.BA de la programmation et aurait été une manière acceptable de procéder si tu ne connais pas les instructions Format et compagnie.

De même qu'une cascade de if then sera avantageusement remplacée par case of, surtout que tu oublies l'utilisation de else...

Ce sont des bases qu'il faut maîtriser avant de poster un code qui puisse apporter un minimum d'intérêt à tous.

(Le commentaire que j'ai laissé sur TLISTFUNCTIONS s'applique aussi à cette source)

Le : 07/01/2008 22:11:18
Source : TLISTFUNCTIONS
Tout ça ne sert absolument à rien.

D'autres manières de procéder sont largement connues et beaucoup plus efficace.
De même tes routines ne sont pas assez travaillées et manquent de polyvalence.

Un exemple de ce que tu aurais pu faire, rendant au passage cette function inutile :

function Delete_This_In_List(Listx, temp_list: TListBox; Itemx : String):Boolean;
begin
  with Listx.Items do
    Delete(IndexOf(ItemX));
end;

Par ailleurs tu déclares des variables, que tu passes en argument et que tu n'utilises pas.

Dommage, l'interface est soignée...

Calme donc le rythme de tes envois, le temps d'apprendre un minimum la programmation en Delphi, et n'hésite pas à participer à des échanges sur le forum qui est fait pour ça.

On y apprend autant en posant les bonnes questions qu'en y répondant.

Salut et à +

(ce source sera supprimé dans la soirée)

Le : 06/01/2008 11:16:42
Source : CHARGER UN FICHIER TEXTE DANS UN TEDIT.
"Le Try doit être placé après Create, car il est inutile de libérer avec finally quelque chose qui n'aurait pas été créé de manière certaine"

En fait c'est plus une question de logique. Concrètement, l'incident éventuel aura plutôt lieu après la création de la StringList.

Néanmoins, l'enchaînement est celui-ci :

- création de la StringList,
try
- code
- un incident survient dans l'exécution du code ?
finally
- la StrinList est libérée dans tous les cas
end;

Le : 06/01/2008 10:58:12
Source : CHARGER UN FICHIER TEXTE DANS UN TEDIT.
Bonjour Monsieur Haftari Fouad.

J'ai peur que ça ne soit un peu court comme source.
De plus, tu n'offres pas ici une alternative réelle au remplacement du fichier ini.

Le Try doit être placé après Create, car il est inutile de libérer avec finally quelque chose qui n'aurait pas été créé de manière certaine...

Tu peux éventuellement te passer de la variable en faisant ainsi :

procedure TFirst.BEcrireClick(Sender: TObject);
begin
  with TStringList.Create do
  try
    Text := Edit.Text;
    SaveToFile('Essai.txt');
  finally
    Free;
  end;
  Edit.Text := '';
end;

Pareil pour la lecture.

Bonne année et bonne prog' à toi aussi.

Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Appels d'offres

Comparez les prix Nouvelle version


HTC Magic
Entre 429€ et 429€


Visiter le guide achat

Photothèque Nouveau !

Photo sitges beachPhoto femme, plage, bien être, soleil, vacances, été, détente, repos
Photo Cockpit Airbus A320 Photo couple mixte homme noir femme blanche enceinte

Visiter la photothèque


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,406 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.