[delphi-br] AJuda no Delphi

Thu, 16 Apr 2009 09:42:16 -0700 

Ola tudo bem tou com um problema eu tou criando um programa comercial no Delphi 
e chega numa certa parte que pede para colocar data e hora por extenso so que 
depois que eu coloco da um erro. Este erro Expected';'but found isto é depois 
que eu faço isto tudo EX:
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls;

  type
  TFRMPrin = class(TForm)
    SBDataHora: TStatusBar;
    Timer1: TTimer;
    procedure Timer1Timer'(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    Function DataPorExtenso : String;
  end;

var
  FRMPrin: TFRMPrin;

Implementation

{$R *.dfm}

 Function TFRMPrin.DataPorExtenso:String;
 const
    Meses :Array [1..12] of String =
        ('Janeiro','Fevereiro','Março','Abril','Maio',
        'Junho','Julho','Agosto','Setembro','Outubro',
        'Novembro','Desembro');
    Semana :Array [1..7] of String =
        ('Domingo','Segunda-Feira','Terça-Feira',
        'Quarta-Feira','Quinta-Feira','Sexta-Feira',
        'Sabado');
     Var
       Dia,Mes,Ano,DiaSem:Word;
     begin
       DecodeDate(Date,Ano,Mes,Dia);
       DiaSem := DayOfWeeK(Date);
       Result := Semana[DiaSem] + ','+ IntToStr(Dia) +
          ' de '+ Meses[Mes] + ' de ' + IntToStr(Ano);
     en{ TODO : ';' }d;
Me ajuda por favor Grato 
Francislei

Responder a