Moderadores, de novo esta mensagem?
2009/4/16 francisleisouza <francisleiso...@yahoo.com.br>
>
>
> 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
>
>
>
[As partes desta mensagem que não continham texto foram removidas]
