Commentaires de Francky23012301 sur delphifr

273 commentaire(s) de Francky23012301 sur des sources sur delphifr

Le : 25/08/2008 20:20:39
Source : MÉMORISE SIMPLEMENT LA POSITION ET LA TAILLE DE VOS FENÊTRES

Désolé mais je ne suis pas d'accord avec toi pour différentes raisons

1)Un fichier Ini est limité à 64 Ko ce qui va te poser probleme.

2)Ton code est long alors que le mien est court : Donc tu te risques à plus de problemes, plus de beug.

3)Mon code est plus optimisé et je suis sur qu'en définitif l'utilisation des flux est plus rapide que l'écriture/lecture dans un fichier Ini.

4)La méthode que j'ai cité ne te limite pas uniquement à quelques propriétés : les couleurs, la visibilité, le alphablend ect ect sont pris en compte.

Enfin à toi de voir mais pour moi utiliser un fichier Ini pour enregistrer les parametres d'un composant, n'est pas la méthode la plus efficace

Le : 25/08/2008 18:01:01
Source : MÉMORISE SIMPLEMENT LA POSITION ET LA TAILLE DE VOS FENÊTRES

Pas de blem Julio : il pensait bien faire, c'est plus maladroit qu'autre chose  .... ca arrive à tout le monde.

Si on veut enregistrer les caractéristiques d'une form, voila une procédure plus simple et plus générale :

Procedure Save_FormParam(AFile:String;AForm:TForm);
Var
  FS:TFileStream;
Begin
  FS:=TFileStream.Create(AFile,fmCreate);
       Try
        FS.WriteComponent(AForm);
      Finally
        FS.Free;
      End;
End;

{>>Procédure pour ouvrir un Mix dans un fichier Mix}
Procedure Open_FormParam(AFile:String;AForm:TForm);
Var
  FS:TFileStream;
Begin
  //On crée FS
  FS:=TFileStream.Create(AFile,fmOpenRead);
      Try
        FS.ReadComponent(AForm);
        AForm.Refresh;
      Finally
        FS.Free;
      End;
End;

Le : 25/08/2008 17:27:09
Source : MÉMORISE SIMPLEMENT LA POSITION ET LA TAILLE DE VOS FENÊTRES

Sans vouloir faire mon enquiquineur, quel est l'intéret de ce source ? Tu ne fais qu'enregistrer dans un fichier ini la valeur d'un integer (Form.Width par exemple).

Ce que tu fais avec une form on pourrait le faire avec un Label, un Edit, un Treeview enfin avec tout les composants qui puissent exister.

Meme si ca part d'un bon sentiment de ta part, a mon gout ca pollue plus qu'autre chose (désolé je veux pas etre dur mais bon). Meme en snippet ton source est trop limite pour etre publiable.

Le : 23/08/2008 14:17:15
Source : TEXTIMAGE : UNE TIMAGE QUI INTERCEPTE LE ENTER / LEAVE DE LA SOURIS

Heu question avec Turbo Delphi on peut toujours pas installé de composants ??

Le : 20/08/2008 19:19:20
Source : EXPLORATEUR STYLE XP, LÉGÈREMENT AGRÉMENTÉ

Bon Cavalier,

Je vais pas te louper :
http://www.delphifr.com/infomsg_ONCLICK_1188144.aspx#2

Ton source est nul, mal pensé et pas fonctionnel : je pense que ces mots, tu arrives à les comprendre ?

Merci d'arreter de nous balancer des merdes que ca soit au niveau de tes sources ou de tes questions.

Si mon pote Flo est partis c'est en grande partie à cause de boulets comme toi : Donc ton attitude commence sacrément à me pomper l'air.

Le : 18/08/2008 15:55:53
Source : BELLE FACTURE SOUS FASTREPORT

99% des gens ici sont des autodidactes : Donc le renommage des composants n'a rien avoir avec ce point ;).

Pourquoi renommer ces composants : si tu dois revoir ou réutiliser ton source dans 10 ans tu vas passer un temps fou à comprendre qui est qui et qui fait quoi.

Le sens de l'analyse ? Non de la feignantise bien pensée ici :

Var
S : Array [0..5] if TStringList;
I:cardinal;
Begin
For I:=0 To 5 Do
S[I]:=TStringList.Create;
End;

C'est tellement moins lourd et plus joli non ? :)

Le : 17/08/2008 23:45:52
Source : BELLE FACTURE SOUS FASTREPORT

tu veux que l'on te dise quoi ?

1)On renomme ces composants.

2)Des redondancesa a en plus finir :
s1 := TStringList.Create;
s2 := TStringList.Create;
s3 := TStringList.Create;
s4 := TStringList.Create;
s5 := TStringList.Create;
s6 := TStringList.Create;

s1.Clear;
s2.Clear;
s3.Clear;
s4.Clear;
s5.Clear;
s6.Clear;

3)Absence de case quand c'est utilise :
if CompareText(VarName, 'Designiation') = 0 then
Value := s1[StringDS.RecNo];
if CompareText(VarName, 'Prix') = 0 then
Value := s2[StringDS.RecNo];
if CompareText(VarName, 'Quantite') = 0 then
Value := s3[StringDS.RecNo];
if CompareText(VarName, 'Tht') = 0 then
Value := s4[StringDS.RecNo];
if CompareText(VarName, 'Tva') = 0 then
Value := s5[StringDS.RecNo];
if CompareText(VarName, 'Ttc') = 0 then
Value := s6[StringDS.RecNo];

4)Un peu léger en terme de quantités (Snippet plus approprié).

5)Pas mal de betises sur la facon de procéder.

L'absence de commentaires s'explique peut etre par le fait que l'on redit toujours et toujours et toujours les meme choses

Le : 13/08/2008 00:49:12
Source : JEU DU SOLITAIRE AVEC LES PIONS

Salut,

Je n'ai pas encore totalement regardé le code mais je me permets de rebondir sur tes problemes de TMediaPlayer : Pourquoi ne pas avoir utilisé la libraire Bass avec le Add-On Midi ? Il y a un flag BASS_SAMPLE_LOOP qui te permet de jouer un morceau en continue. De plus avec Bass pas besoin de gérer les erreurs (Tout est fait in Situ si on peut dire).

Si tu veux on peut voir cela en privé (MP ou MSN) : contacte moi si ca te dis.

Je regarde le source de plus pres en attendant

Le : 27/07/2008 10:06:13
Source : FULLSLIDING

Cashemire bouffe 2 choses : le facteur et les webcams lol.

Chez moi aussi ca scintille (Mais bon j'ai un vieux coucou). Sinon c'est rigolot et ca permettra à certains d'apprendre des petits trucs rigolots.

Le : 25/07/2008 17:18:28
Source : IP-MASTER, OU VOTRE IP FACILE !

Le composant est déja fais : tu copie le code dans le blockNote et tu l'enregistre sous IPAddress.pas et d'installer le composant normalement.

Ensuite : tu as juste à mettre function GETIP(Var FileText:TStringList): boolean; (désolé d'avoir oublié Var FileText:TStringList) dans le private et de finir de coder cette fonction en utilisant le protocole HTTP (Voir Iprelax.com).

type
  TIPAddress = class(TComponent)
  private
    Sock: TSocket;
    function ResolveIP(Const AURL: string): string;
    function GETIP(Var FileText:TStringList): boolean; //ICI
  protected
    FPort:     cardinal;
    FURL: string;
  public

Tu n'as plus grand chose à faire