Commentaires de FENETRES sur tout CodeS-SourceS

127 commentaire(s) de FENETRES sur des sources sur tout CodeS-SourceS

Le : 03/04/2008 16:31:38
Source : VBA EXCEL : FONCTION ROUND POUR COMPATIBILITÉ EXCEL 97

Règle de l'arrondi bancaire:
La fonction Round de VB6 utilise l'arrondi bancaire pour déterminer comment arrondir la valeur qui se trouve exactement au milieu des deux valeurs ayant le nombre de chiffres significatifs souhaité. La convention est d'aller au nombre pair le plus proche ainsi 1, 5 et 2,5 sont arrondis à 2 alors que 3,5 et 4,5 sont arrondis à 4.

Le : 06/03/2008 12:08:56
Source : DELPHI : PROCEDURE SPLIT SIMILAIRE A LA FONCTION EPONYME EN VB

Procédure revue et corrigée (toute exception sera silencieuse).

procedure TfrmDemo.frmDemoOnActivate(Sender: TObject);
  procedure setCursor(hWnd:integer; lpCursorName:PAnsiChar);
  var
    hCur:integer;
  begin
    hCur:=LoadCursor(0, lpCursorName);
    if (hcur<>0) then begin
      SetClassLong(hWnd, GCL_HCURSOR, hCur);
      DestroyCursor(hCur);
    end;
  end;
begin
  //Déclare et affiche le caractère de délimitation
  Delimiter:=';';
  lblDelimiter.Caption:= 'Delimiter: "' + Delimiter + '"';
  //Curseur des boutons
  setCursor(btnSplit.Handle, IDC_HAND);
  setCursor(btnClose.Handle, IDC_HAND);
end;

Le : 06/03/2008 11:51:09
Source : DELPHI : PROCEDURE SPLIT SIMILAIRE A LA FONCTION EPONYME EN VB

Note : les déclarations des l'API utilisées se trouve dans l'unité Windows.

Le : 06/03/2008 10:21:05
Source : DELPHI : PROCEDURE SPLIT SIMILAIRE A LA FONCTION EPONYME EN VB

Pour information des lecteurs, voici les spécifications complètes de l'API qui a fait l'objet de la remarque fondée de notre ami Renfield.

Declaration:
Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As String) As Long

Parameters:
· hInstance
Identifies an instance of the module whose executable file contains the cursor to be loaded.

· lpCursorName
Points to a null-terminated string that contains the name of the cursor resource to be loaded. Alternatively, this parameter can consist of the resource identifier in the low-order word and zero in the high-order word. The MAKEINTRESOURCE macro can also be used to create this value.
To use one of the Win32 predefined cursors, the application must set the hInstance parameter to NULL and the lpCursorName parameter to one the following values:
IDC_APPSTARTING
Standard arrow and small hourglass
IDC_ARROW
Standard arrow
IDC_CROSS
Crosshair
IDC_IBEAM
Text I-beam
IDC_ICON
Obsolete for applications marked version 4.0 or later.
IDC_NO
Slashed circle
IDC_SIZE
Obsolete for applications marked version 4.0 or later. Use IDC_SIZEALL.
IDC_SIZEALL
Four-pointed arrow
IDC_SIZENESW
Double-pointed arrow pointing northeast and southwest
IDC_SIZENS
Double-pointed arrow pointing north and south
IDC_SIZENWSE
Double-pointed arrow pointing northwest and southeast
IDC_SIZEWE
Double-pointed arrow pointing west and east
IDC_UPARROW
Vertical arrow
IDC_WAIT
Hourglass

Return values :
If the function succeeds, the return value is the handle of the newly loaded cursor.
If the function fails, the return value is NULL. To get extended error information, call GetLastError.

Le : 06/03/2008 09:56:02
Source : DELPHI : PROCEDURE SPLIT SIMILAIRE A LA FONCTION EPONYME EN VB

Le "finally" est toujours exécuté même si une exception est levée. Dans ce cas, effectivement, il n'est pas vraiment nécessaire.

A+,

Le : 06/03/2008 09:42:14
Source : DELPHI : PROCEDURE SPLIT SIMILAIRE A LA FONCTION EPONYME EN VB

Bonjour l'artiste,

Je ne comprends pas ta remarque car cette procédure ne génère aucune exception (Delphi7 ou 2007). D'ailleurs, il s'agit d'une transcription en Pascal d'une proc. très connue par les programmeurs VB. Il faudrait détailler le contexte et son usage.

Le : 05/03/2008 11:40:02
Source : DELPHI : PROCEDURE SPLIT SIMILAIRE A LA FONCTION EPONYME EN VB

En aparté, vous pouvez notez la manière de récupérer un curseur système différent d'un curseur Delphi :

procedure TfrmDemo.frmDemoOnActivate(Sender: TObject);
  procedure setCursor(hWnd:integer; lpCursorName:PAnsiChar);
  var
    hCur:integer;
  begin
    try
      hCur:=LoadCursor(0, lpCursorName);
      SetClassLong(hWnd, GCL_HCURSOR, hCur);
    finally
      DestroyCursor(hCur);
    end;
  end;
begin
  //Déclare et affiche le caractère de délimitation
  Delimiter:=';';
  lblDelimiter.Caption:= 'Delimiter: "' + Delimiter + '"';
  //Curseur des boutons
  setCursor(btnSplit.Handle, IDC_HAND);
  setCursor(btnClose.Handle, IDC_HAND);
end;

Le : 14/02/2008 17:30:41
Source : FAIRE UN SPLIT EN DELPHI

La fonction Split de VB "renvoie un tableau de base zéro à une dimension contenant le nombre spécifié de sous-chaînes."

Et sans vouloir contrarier FABIIN, il n'est pas nécessaire d'instancier un TStringList pour obtenir ce résultat !

http://www.delphifr.com/codes/DELPHI-PROCEDURE-SPLIT-SIMILAIRE-FONCTION-EPONYME-VB_45704.aspx

Le : 13/02/2008 14:51:59
Source : DELPHI : PROCEDURE SPLIT SIMILAIRE A LA FONCTION EPONYME EN VB

La conversion de la procédure en fonction donnerait la signature suivante :

function Split(const Delimiter: char; DelimitedText: string): TStrArray;

Il n'y a donc pas de quoi fouetter un chat pas plus que l'élargissement du caractère de délimitation à un type string. L'ajout d'autres paramètres ne présente pas à mon point de vue un trés grand intérêt. C'est pourquoi, après réflexion et correction du titre, je ne pense pas surcharger la méthode présentée.

Cordialement,

Le : 12/02/2008 11:08:55
Source : DELPHI : PROCEDURE SPLIT SIMILAIRE A LA FONCTION EPONYME EN VB

Split(expression[, delimiter[, limit[, compare]]])

Alors, effectivement, vos souvenirs sont bons. Je n'ai pas le temps actuellement de surcharger cette méthode et d'écrire une procédure réellement semblable. Mais je vous promets de m'y atteler dès que possible.