Re: [delphi-br] AJuda no Delphi

Tue, 14 Apr 2009 19:18:38 -0700 

Estava faltando "end." no final do código. Você precisa endentar melhor o seu 
código. Veja como ficou:


unit Unit1;

interface

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
     Dialogs, ComCtrls, ExtCtrls;

type
  TFRMPrin = class(TForm)

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','Dezembro');
     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);
end;

end.


[As partes desta mensagem que não continham texto foram removidas]

Responder a