Execute News

Des nouvelles fraîches de http://www.execute.frRSS « Avant | Après » | [3DEngine] [ARC] [Astuces] [Banque] [BugList] [Compression] [Delphi] [Expérience] [Features] [Firemonkey] [Games] [GDI+] [Github] [Hardware] [LF2016] [MAPI] [NF525] [OpenGL] [PHP] [Samsung] [Société]

Si je ne dis pas non, ce n'est pas un oui

Publié le 17/07/2018 [Delphi] [Expérience]
Note pour moi-même, il ne faut jamais supposer que non c'est le contraire de oui !

begin
  if MessageDlg('Etes-vous d''accord ?', mtConfirmation, [mbYes, mbNo], 0) = mrNo then
    Exit;
  ShowMessage('C''est donc oui !');
end;

le problème dans ce code, c'est que quand on ferme la boîte de dialogue par la croix, la réponse n'est ni oui ni non; il est donc toujours préférable de tester mrYes que mrNo !
begin
  if MessageDlg('Etes-vous d''accord ?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    ShowMessage('C''est donc oui !');
end;

Des Tuple sous Delphi

Publié le 05/07/2018 [Delphi] [Github]
Je suis toujours attaché à un vieux forum NNTP sur Delphi hébergé chez server.amis.tv.

il y a fort longtemps sur ce forum un utilisateur demandait si Delphi faisait le café et j'avais démontré que oui :)

https://github.com/tothpaul/Delphi/raw/master/Cafe/Cafe.gif

aujourd'hui c'est au tour des Tuples.

Les livraisons depuis la Chine, comment font-ils ?

Publié le 20/06/2018 [Société]
Voici un article très intéressant qui explique comment les sites de vente en ligne font pour livrer des articles à quelques euros depuis la Chine

http://www.minimachines.net/a-la-une/la-livraison-depuis-lasie-delais-prix-transporteurs-57204

Formater un texte que l'on colle

Publié le 18/06/2018 [Delphi]
Voici un petit bout de code que j'utilise dans une application qui attends un numéro de téléphone sur 10 chiffres maxi et qui reçoit des copier/coller d'une application qui place des espaces tous les deux caractères.

en ajoutant cette unité dans la partie interface des forms qui utilisent des TEdit dont la taille est limité à 10 caractères, ceux-ci acceptent le texte espacé (à adapter pour d'autres formats ou contraintes).

unit UEditPhone;

interface

uses
  Winapi.Messages,
  System.SysUtils,
  Vcl.StdCtrls;

type
  TEdit = class(Vcl.StdCtrls.TEdit)
    procedure WMPaste(var Msg: TMessage); message WM_PASTE;
  end;

implementation

uses
  Vcl.Clipbrd;

{ TEdit }

procedure TEdit.WMPaste(var Msg: TMessage);
var
  Str: string;
begin
  if MaxLength = 10 then
  begin
    Str := Clipboard.AsText;
    Clipboard.AsText := StringReplace(Str, ' ', '', [rfReplaceAll]);
    inherited;
    Clipboard.AsText := Str;
  end else begin
    inherited;
  end;
end;

end.

Configuration PHP sur OVH

Publié le 14/06/2018 [PHP]
Petite note pour moi-même.

Bien que l'interface d'administration de OVH le propose, l'environnement PHP 7.2 Legacy n'existe pas ! Si vous configurez votre site comme cela il vous fera une erreur "501 Not Implemented".

Pour rappel, "stable" c'est la version stable (logique), "legacy" c'est la version héritée pour les anciennes versions uniquement.