Error en Consuta SQL

[lKinGl]

Salu2 amigos foristas

quisiera saber como puedo solventar el siguiente problema:

Código Delphi [-]
  Query1.Close;
  Query1.SQL.Clear;
  Query1.SQL.Add('Select Aula,Dia,Prof,Hora1,Hora11,Hora2,Hora22,Hora3,Hora33,Hora4,Hora44,Hora5,Hora55,Hora6,Hora66,Hora7,Ho  ra77,Hora8,Hora88,Hora9,Hora99,Hora10,Hora101,Hora11a,Hora111,Hora12,Hora121,Hora13,Hora131,Hora14,H  ora141,Hora15,Hora151,Hora16,Hora161,Hora17,Hora171 From horario.db Where Aula like "' + (ComboBox1.Text) + '%"');
  Query1.Active:=True;
  Query1.Open;
  dbgrid1.Columns.Items[0].Width:=100;
  dbgrid1.Columns.Items[1].Width:=100;
  dbgrid1.Columns.Items[2].Width:=100;
  dbgrid1.Columns.Items[3].Width:=50;
  dbgrid1.Columns.Items[4].Width:=50;
  dbgrid1.Columns.Items[5].Width:=50;
  dbgrid1.Columns.Items[6].Width:=50;
  dbgrid1.Columns.Items[7].Width:=50;
  dbgrid1.Columns.Items[8].Width:=50;
  dbgrid1.Columns.Items[9].Width:=50;
  dbgrid1.Columns.Items[10].Width:=50;
  dbgrid1.Columns.Items[11].Width:=50;
  dbgrid1.Columns.Items[12].Width:=50;
  dbgrid1.Columns.Items[13].Width:=50;
  dbgrid1.Columns.Items[14].Width:=50;
  dbgrid1.Columns.Items[15].Width:=50;
  dbgrid1.Columns.Items[16].Width:=50;
  dbgrid1.Columns.Items[17].Width:=50;
  dbgrid1.Columns.Items[18].Width:=50;
  dbgrid1.Columns.Items[19].Width:=50;
  dbgrid1.Columns.Items[20].Width:=50;
  dbgrid1.Columns.Items[21].Width:=50;
  dbgrid1.Columns.Items[22].Width:=50;
  dbgrid1.Columns.Items[23].Width:=50;
  dbgrid1.Columns.Items[24].Width:=50;
  dbgrid1.Columns.Items[25].Width:=50;
  dbgrid1.Columns.Items[26].Width:=50;
  dbgrid1.Columns.Items[27].Width:=50;
  dbgrid1.Columns.Items[28].Width:=50;
  dbgrid1.Columns.Items[29].Width:=50;
  dbgrid1.Columns.Items[30].Width:=50;
  dbgrid1.Columns.Items[31].Width:=50;
  dbgrid1.Columns.Items[32].Width:=50;
  dbgrid1.Columns.Items[33].Width:=50;
  dbgrid1.Columns.Items[34].Width:=50;
  dbgrid1.Columns.Items[35].Width:=50;
  dbgrid1.Columns.Items[36].Width:=50;
  dbgrid1.Columns[0].Title.caption:='Aula';
  DBGrid1.Columns[1].Title.caption:='Dia';
  dbgrid1.Columns[2].Title.caption:='Prof';
  dbgrid1.Columns[3].Title.Caption:='Hora I1';
  dbgrid1.Columns[4].Title.Caption:='Hora F1';
  dbgrid1.Columns[5].Title.Caption:='Hora I2';
  dbgrid1.Columns[6].Title.Caption:='Hora F2';
  dbgrid1.Columns[7].Title.Caption:='Hora I3';
  dbgrid1.Columns[8].Title.Caption:='Hora F3';
  dbgrid1.Columns[9].Title.Caption:='Hora I4';
  dbgrid1.Columns[10].Title.Caption:='Hora F4';
  dbgrid1.Columns[11].Title.Caption:='Hora I5';
  dbgrid1.Columns[12].Title.Caption:='Hora F5';
  dbgrid1.Columns[13].Title.Caption:='Hora I6';
  dbgrid1.Columns[14].Title.Caption:='Hora F6';
  dbgrid1.Columns[15].Title.Caption:='Hora I7';
  dbgrid1.Columns[16].Title.Caption:='Hora F7';
  dbgrid1.Columns[17].Title.Caption:='Hora I8';
  dbgrid1.Columns[18].Title.Caption:='Hora F8';
  dbgrid1.Columns[19].Title.Caption:='Hora I9';
  dbgrid1.Columns[20].Title.Caption:='Hora F9';
  dbgrid1.Columns[21].Title.Caption:='Hora I10';
  dbgrid1.Columns[22].Title.Caption:='Hora F10';
  dbgrid1.Columns[23].Title.Caption:='Hora I11';
  dbgrid1.Columns[24].Title.Caption:='Hora F11';
  dbgrid1.Columns[25].Title.Caption:='Hora I12';
  dbgrid1.Columns[26].Title.Caption:='Hora F12';
  dbgrid1.Columns[27].Title.Caption:='Hora I13';
  dbgrid1.Columns[28].Title.Caption:='Hora F13';
  dbgrid1.Columns[29].Title.Caption:='Hora I14';
  dbgrid1.Columns[30].Title.Caption:='Hora F14';
  dbgrid1.Columns[31].Title.Caption:='Hora I15';
  dbgrid1.Columns[32].Title.Caption:='Hora F15';
  dbgrid1.Columns[33].Title.Caption:='Hora I16';
  dbgrid1.Columns[34].Title.Caption:='Hora F16';
  dbgrid1.Columns[35].Title.Caption:='Hora I17';
  dbgrid1.Columns[36].Title.Caption:='Hora F17';

necesito realizar esa consulta SQL pero me da error al ejecutar, el error es el siguiente:

[Error]Unit5.pas(371):String literals may have at most 255 elements

no se mucho ingles pero creo que dice que me sobrepasé del limite de caracteres....


¿saben alguna solucion?

salu2 y gracias adelantdas

[[coso]]

la string dentro del Add mide mas de 255 caracteres, prueba de ir haciendo varios adds con la cadena partida en trozos.

[[Delphius]]

Añadiendo a las palabras de coso, sería bueno que simplicaras ese código.
Tranquilamente se puede reducir ese código. Por ejemplo:

Código Delphi [-]
for i := xxx to yyy do
  DBGrid1.Columns[i].Title.Caption := 'zzz ' + IntToStr(i);

Saludos,

[TOPX]

Saludos,

... Uhm, no sé, pero tenía un poco de tiempo y, a mí me gusta así:

Código Delphi [-]
  Query1.Close;
  Query1.SQL.Text := 
    'Select Aula, Dia, Prof, ' +
    'Hora1, Hora11, Hora2, Hora22, Hora3, Hora33, ' +
    'Hora4, Hora44, Hora5, Hora55, Hora6, Hora66, ' +
    'Hora7, Hora77, Hora8, Hora88, Hora9, Hora99, ' +
    'Hora10, Hora101, Hora11a, Hora111, ' +
    'Hora12, Hora121, Hora13, Hora131, ' +
    'Hora14, Hora141, Hora15, Hora151, ' +
    'Hora16, Hora161, Hora17, Hora171 ' +
    'From horario.db ' +
    'Where Aula like "' +ComboBox1.Text+ '%"';
  Query1.Open;

  for i := 0 to (DBGrid1.Columns.Count - 1) do
  begin
    if i <= 2 then
    begin
      DBGrid1.Columns[i].Width := 128;
    end
    else
    begin
      DBGrid1.Columns[i].Width := 64;
    end;
  end;

[lKinGl]

estemmm si lo resolvi a mi manera pero estoy claro que debo aprender a simplificar las cosas ya que se entenderia mejor y se ahorraria tiempo en programar tanto, ademas el software tarda algo de tiempo en realizar lo pedido creo que como (1seg) pero creo que simplificando el codigo sería mas rapido

de todas maneras gracias y trataré de aprender a simplificar mis códigos

[[Delphius]]

Empezado por lKinGl

estemmm si lo resolvi a mi manera pero estoy claro que debo aprender a simplificar las cosas ya que se entenderia mejor y se ahorraria tiempo en programar tanto, ademas el software tarda algo de tiempo en realizar lo pedido creo que como (1seg) pero creo que simplificando el codigo sería mas rapido

de todas maneras gracias y trataré de aprender a simplificar mis códigos

Este... ¿Y podríamos saber cual es tu manera?
Este sitio está hecho para que nos ayudemos entre todos y quien sabe, alguien en un futuro tiene el mismo problema y lo de "a tu manera" le es útil para resolverlo.

Saludos,