Quien sabe programar en delphi

[dogduck]

http://www.ajpdsoft.com/modules.php?...rticle&sid=207

Código:

unit UnidadMenuPrincipal;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, shellapi;

type
  TformObtenerDatosEAN = class(TForm)
    txtEAN13: TEdit;
    bObtenerEAN13: TButton;
    Label1: TLabel;
    Label6: TLabel;
    txtNumDigEmpresa: TEdit;
    GroupBox1: TGroupBox;
    txtOrganizacion: TEdit;
    txtEmpresa: TEdit;
    txtProducto: TEdit;
    txtDC: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    LWEB: TLabel;
    procedure bObtenerEAN13Click(Sender: TObject);
    procedure LWEBClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  formObtenerDatosEAN: TformObtenerDatosEAN;

implementation

{$R *.dfm}

procedure TformObtenerDatosEAN.bObtenerEAN13Click(Sender: TObject);
var
  ean13 : string;
  numDigEmpresa : Integer;
begin
  numDigEmpresa := StrToInt (txtNumDigEmpresa.text);
  if numDigEmpresa > 8 then
    MessageDlg('El número de dígitos máximo para la empresa es de 8.',
        mtWarning, [mbok], 0)
  else
  begin
    if numDigEmpresa < 5 then
      MessageDlg('El número de dígitos mínimo para la empresa es de 5.',
          mtWarning, [mbok], 0)
    else
    begin
      ean13 := txtEAN13.Text;
      txtOrganizacion.Text := copy (ean13, 1, 2);
      txtEmpresa.Text := copy (ean13, 3, numDigEmpresa);
      txtProducto.Text := copy (ean13, 8, 10 - numDigEmpresa);
      txtDC.Text := copy (ean13, 13, 1);
    end;
  end;
end;

procedure TformObtenerDatosEAN.LWEBClick(Sender: TObject);
begin
  ShellExecute(Handle, Nil, PChar('http://www.ajpdsoft.com'),
      Nil, Nil, SW_SHOWNORMAL);
end;

end.