É, todo inicio é complicado!
Está faltando um "end." na última linha do seu código.
Verifica aí.
2009/4/14 francisleisouza <francisleiso...@yahoo.com.br>
>
>
> Ola tudo bem sou novo aq e tou criando um programa comercial atravez de um
> mlivro Delphi5 e o meu programa e Delphi6 e na hora de colocar data e hora
> da uma mensagen de erro (Expected';'but found.)isto é depois de escrever
> isto tudo ai em baixo
>
> 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);
> end;
>
>
>
[As partes desta mensagem que não continham texto foram removidas]
