Ir para conteúdo
Fórum Script Brasil
  • 0

Dividindo Um Código


Kindelis

Pergunta

eu tenho que criar uma linha de comando no delphi 4 porém o comando é grande demais e exede o limite de caracteres por linha imposto pelo delphi, eu gostaria de saber se tem como eu dividir o código em duas linhas sem prejudicar a programação, o código é esse:

var

aspa:char;

begin

aspa:='''';

Querycontas1.Close;

Querycontas1.Sql.Clear;

Querycontas1.Sql.Add('Select *');

Querycontas1.sql.add('from ''c:\Angratel\contasaprazo.db''');

Querycontas1.Sql.Add('Where Data_Primeira>='+aspa+DateToStr(datainicial1.Date)+aspa+' and Data_Primeira<='+aspa+DateToStr(datafinal1.Date)+aspa+' or Data_Segunda>='+aspa+DateToStr(datainicial1.Date)+aspa+' and Data_Segunda<='+aspa+DateToStr(datafinal1.Date)+aspa+' or Data_Terçeira>='+aspa+DateToStr(datainicial1.Date)+aspa+' and Data_Terçeira<='+aspa+DateToStr(datafinal1.Date)+aspa+' or Data_Quarta>='+aspa+DateToStr(datainicial1.Date)+aspa+' and Data_Quarta<='+aspa+DateToStr(datafinal1.Date)+aspa);

Querycontas1.Open;

end;

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0

faça a variavel receber o valor dela e algo mais

exemplo:

x := y + 2 - 5^2 + 4 - contasAReceber + tfrmform.showmodal + variavel - 8;

dai você divide em:

x := y + 2 - 5^2 + 4 - contasAReceber;

x := x + tfrmform.showmodal + variavel - 8;

foi assim q eu aprendi na aula de ASP, mas com certeza funciona com delphi

Link para o comentário
Compartilhar em outros sites

  • 0

Olá!

você pode fazer isso:

var

aspa : char;

begin

aspa:='''';

With Querycontas1 do begin

Close;

Sql.Clear;

Sql.Add('Select *');

Sql.Add('from ''c:\Angratel\contasaprazo.db''');

Sql.Add('Where Data_Primeira>='+aspa+DateToStr(datainicial1.Date)+aspa+' and ');

Sql.Add('Data_Primeira<='+aspa+DateToStr(datafinal1.Date)+aspa+' or');

Sql.Add('Data_Segunda>='+aspa+DateToStr(datainicial1.Date)+aspa+' and');

Sql.Add('Data_Segunda<='+aspa+DateToStr(datafinal1.Date)+aspa+' or');

Sql.Add('Data_Terçeira>='+aspa+DateToStr(datainicial1.Date)+aspa+' and');

Sql.Add('Data_Terçeira<='+aspa+DateToStr(datafinal1.Date)+aspa+' or');

Sql.Add('Data_Quarta>='+aspa+DateToStr(datainicial1.Date)+aspa+' and ');

Sql.Add('Data_Quarta<='+aspa+DateToStr(datafinal1.Date)+aspa);

Open;

end;

end;

wink.gif

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...