Execute Delphi News

Je viens de suivre la conférence en ligne des MVP chez Embarcadero

je ne vous dirais rien de ce qu'il s'y est dit puisque tout cela est confidentiel, mais sachez que j'ai pleinement confiance dans ce qui est à venir :)

Paul

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.

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;

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 :)



aujourd'hui c'est au tour des Tuples.

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.