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é]

Delphi Community Edition !

Publié le 19/07/2018 [Delphi] [Features]
Nouvelle version (non) commerciale de Delphi : Community Edition.

Avec cette nouvelle version gratuite vous avez toutes les fonctionnalités de la version Pro :
- Win32/64 VCL et Firemonkey
- OSX
- iOS32/64
- Android ARM

par contre vous ne devez pas gagner plus de 5.000$ par an pour avoir le droit d'utiliser ce produit gratuitement.

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.