[delphi-br] AJuda no Delphi

Tue, 14 Apr 2009 10:50:46 -0700 

ola eu tou programando em Delphi atraves de um livro so q na hora de colocar 
data e hora ta dando erro Ex:

MOSTRANDO A DATA POR EXTENSO
 
 Unit Unit1;
 Interface 
 Uses 
   Windows, messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs;
  Type 
    TFRMPrin = class(TForm)
       SBDataHora: TStatusBar;
  private 
   { Private declarations } 
  Public
   { Public declarations }
  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',' E Etc ate Dezembro');
   Semana :Array [1..7] of String =
          ('Domingo...(Assim vai ate 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);
   end;
 E ta dando este erro Expected ';' But Found.

Responder a