Dividindo Um Código

[Kindelis]

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;

[Zolhos]

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

[Progr'amador]

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;