Vejamos, Tenho 31 TEdit onde eu tenho que colocar qual � o dia da semana. Ex: No onshow eu coloco:[code]Edit1.text := DiaSemana(Now);Edit2.text := DiaSemana(Now);Edit3.text := DiaSemana(Now);...

Blz,Na verdade estou tentando fazer � no fast report.S� que d� erro ao executar:...

F�rum Trabalhar com macro #570185

31/10/2016

Vejamos,

Tenho 31 TEdit onde eu tenho que colocar qual � o dia da semana.
Ex: No onshow eu coloco:

Edit1.text := DiaSemana(Now);
Edit2.text := DiaSemana(Now);
Edit3.text := DiaSemana(Now);
Edit4.text := DiaSemana(Now);
Edit5.text := DiaSemana(Now);
Edit6.text := DiaSemana(Now);
Edit7.text := DiaSemana(Now);
Edit8.text := DiaSemana(Now);
....
Edit31.text := DiaSemana(Now);

Ao inv�s de escrever o edit 31 vezes eu usaria um macro.
N�o sei se o nome � macro mas pensei em algo assim:

Var NomeEdit : TEdit;
For  i := 1 to 31 do
    NomeEdit.Name := 'Edit'+IntToStr(i);
    NomeEdit.Text := DiaSemana(Now+i);
end;

for i := 1 to 31 do
    edit+IntToStr(i)+.text := DiaSemana(Now+i)

desde j� agrade�o

Dirceu Morais

Curtir t�pico

+ 0

Responder

Posts

31/10/2016

Araujo Junior.

Deve utilizar TypeCast para isso, seria mais ou menos assim:

var
  Edit: TEdit;
begin
  for I := 0 To 31 do
  begin
    Edit := TEdit(FindComponent('Edit' + IntToStr(I)));

    Edit.Text := DiaSemana(Now)
  end;

Responder

Gostei + 0

31/10/2016

Dirceu Morais

Blz,

Na verdade estou tentando fazer � no fast report.

procedure PageHeader2OnBeforePrint(Sender: TfrxComponent);
Var Dia, Mes, Ano : Word;
    NoDia : TDate;
    NomeEdit : TFrxMemoView;
    i : Integer;
begin
   DecodeDate (<frxEmitente."DATAI">, Ano, Mes, Dia);
   NoDia := StrToDate('01/'+IntToStr(Mes)+'/'+IntToStr(Ano));
   For i := 1 to 31 do
   Begin
      NomeEdit := TFrxMemoView(FindComponent('Eds_' + IntToStr(I)));
      NomeEdit.Text := DiaDaSemana(NoDia+i-1);
      if Copy(NomeEdit.Text,1,3) = 'DOM' Then
         NomeEdit.Font.Color:= ClRed;          
   end;

S� que d� erro ao executar:

Undeclared indentifier. 'FindComponent'

Responder

Gostei + 0

31/10/2016

Araujo Junior.

Dirceu,

Uma dica para voc�, a melhor fonte de pesquisas � o Help do Delphi, e existe o docwiki com muita documenta��o. No caso ai, deve ser alguma Unit que esta faltando. No Caso, System.Classes

http://docwiki.embarcadero.com/CodeExamples/Berlin/en/FindComponent_(Delphi)

Responder

Gostei + 0