i have a trouble
can anyone help me ,please
procedure Tf_laporan.periodeClick(Sender: TObject);
begin
if periode.ItemIndex=0 then
begin
input_waktu.Format:='dd/M/yyyy';
statictext1.Caption:=' &Tanggal :';
input_waktu.Enabled:=true;
end;
if periode.ItemIndex=1 then
begin
input_waktu.Format:='M/yyyy';
statictext1.Caption:=' &Bulan :';
input_waktu.Enabled:=true;
end;
if periode.ItemIndex=2 then
begin
input_waktu.Format:='yyyy';
statictext1.Caption:= '&Tahun :';
input_waktu.Enabled:=true;
end;
end;
[Error] m_laporan.pas(96): Statement expected but 'PROCEDURE' found
This post has been edited by modi123_1: 29 May 2012 - 06:49 AM
Reason for edit:: highlight the lines THEN click the code tags button in the 'format text' box of the post.

New Topic/Question
Reply



MultiQuote





|