Delphi7 - Символ продолжения строки

[ch_vas]

Кто знает есть ли такая байда Delphi?:
есть длинная строка запроса типа:

'select * from sgoods where (idparent = :id or idgoods = :id) or idgoods in (select idparent from sgoods where idgoods = :id) order by idgoods'

как в дельфях её структуризировать без + и лишних кавычек - в некоторых языках есть понятие симфола продолжения строки в 1с это "|" т.е можно записать

'select * |
  from sgoods |
  where (idparent = :id or idgoods = :id) or idgoods in |
  (select idparent from sgoods where idgoods = :id) |
  order by idgoods'

[rostan2004]

Например

'select *'+
' from sgoods' +
' where (idparent = :id or idgoods = :id) or idgoods in' +
' (select idparent from sgoods where idgoods = :id)' +
' order by idgoods';

[ch_vas]

Оно то так... я так и пишу - просто в других языках это более усовершенствовано.. во первых нет лишних скобок - не нужно отслеживать открыл ли и закрыл ли, и плюсик рисовать тоже не нужно
почему комментарий после открытия { действителен аж до закрытия }, а скобки в строковых значениях нет.
Как я писал во многих языках такой символ есть в 1с (прототип Паскаля только русский) - это симво "|", в VBA точно не знаю но в инете встречал что вроде как "_" - и только в Delphi недодумались ;-(((

[hack]

ИМНО Запрос то вы пишете на делфях, но он то относится к Structured Query Language (SQL). отсюда и пляшите ищите описание и его возможности.

[Vasuha]

Сделайте отдельный файл с текстом запроса, и вычитывайте оттуда, а там уже без плюсов, ковычек и пр...

[pluton]

Цитата: Сообщение от hack ИМНО Запрос то вы пишете на делфях, но он то относится к Structured Query Language (SQL). отсюда и пляшите ищите описание и его возможности.

Цитата: Сообщение от Vasuha Сделайте отдельный файл с текстом запроса, и вычитывайте оттуда, а там уже без плюсов, ковычек и пр...

имхо, что-то вы не в ту сторону думаете. человеку просто надо в коде записать длинную строку.

ch_vas, такое есть во многих языках программирования, но в паскале я такого ни разу не встречал, видимо, не реализовано

[ch_vas]

pluton, Спасибо - только вы меня поняли....
Если никто больше не знает -значит будем считать что в Delphi такого нет и тему можно считать закрытой...

[Демьян]

Цитата: Сообщение от ch_vas pluton, Спасибо - только вы меня поняли.... Если никто больше не знает -значит будем считать что в Delphi такого нет и тему можно считать закрытой...

SQL.add('тут запрос ');
SQL.add('тут запрос ');
итд
У меня и длиннее запросы есть

select a.Telef,
EXTRACT(MONTH FROM a.data_oper) mon_dolg,
EXTRACT(Year FROM a.data_oper) Year_dolg,
a.summa dolg,
a.vid_zad vid,
EXTRACT(MONTH FROM b.data_oper) mon_opl,
EXTRACT(Year FROM b.data_oper) Year_opl,
b.summa oplata
from zadol a
left outer Join oplat b on (a.vid_zad=b.vid_opl and a.telef=b.telef
and EXTRACT(MONTH FROM a.data_oper)=EXTRACT(MONTH FROM b.data_oper)
and EXTRACT(Year FROM a.data_oper)=EXTRACT(Year FROM b.data_oper))
Where EXTRACT(MONTH FROM a.data_oper) in (1,2,3) and EXTRACT(Year FROM a.data_oper)=2006
and a.telef=33621

ну и строки то не нужно получается

[ch_vas]

Демьян, Вопрос то не в длинне запроса а в удобочитаемости и простоте его записи.. вош запрос прийдется писать так:

Цитата: SQL.add('select a.Telef, '); SQL.add('EXTRACT(MONTH FROM a.data_oper) mon_dolg, '); SQL.add('EXTRACT(Year FROM a.data_oper) Year_dolg, '); SQL.add('a.summa dolg, '); SQL.add('a.vid_zad vid, '); SQL.add('EXTRACT(MONTH FROM b.data_oper) mon_opl, '); SQL.add('EXTRACT(Year FROM b.data_oper) Year_opl, '); SQL.add('b.summa oplata '); SQL.add('from zadol a '); SQL.add('left outer Join oplat b on (a.vid_zad=b.vid_opl and a.telef=b.telef '); SQL.add('and EXTRACT(MONTH FROM a.data_oper)=EXTRACT(MONTH FROM b.data_oper) '); SQL.add('and EXTRACT(Year FROM a.data_oper)=EXTRACT(Year FROM b.data_oper)) '); SQL.add('Where EXTRACT(MONTH FROM a.data_oper) in (1,2,3) and EXTRACT(Year FROM a.data_oper)=2006 '); SQL.add('and a.telef=33621 ');

и где же тут удобочитаемость - а были бы такие символы как в 1с например - можно было бы написать так:

Цитата: 'select a.Telef, | EXTRACT(MONTH FROM a.data_oper) mon_dolg, | EXTRACT(Year FROM a.data_oper) Year_dolg, | a.summa dolg, | a.vid_zad vid, | EXTRACT(MONTH FROM b.data_oper) mon_opl, | EXTRACT(Year FROM b.data_oper) Year_opl, | b.summa oplata | from zadol a | left outer Join oplat b on (a.vid_zad=b.vid_opl and a.telef=b.telef | and EXTRACT(MONTH FROM a.data_oper)=EXTRACT(MONTH FROM b.data_oper) | and EXTRACT(Year FROM a.data_oper)=EXTRACT(Year FROM b.data_oper)) | Where EXTRACT(MONTH FROM a.data_oper) in (1,2,3) and EXTRACT(Year FROM a.data_oper)=2006 | and a.telef=33621'

В данном случае никаких лишних операторов - кроме синтаксиса запроса не путается

[Steve Bloom]

Чтобы не было подобных вопросов - нужно избегать делать сколько-нибудь большие запросы в коде клиентской программы.
Для этого есть хранимые процедуры. Или, на худой конец, TQuery

[GreyT]

Удобочитаемость легко обеспечивается обьявлением одной простой константы

const
CRLF = #13#10;
var
q: TQuery;
begin
q.SQL.Text:=
'SELECT bla_bla_bla'+CRLF+
' FROM tab1, tab2, tab3'+CRLF+
' WHERE tab1.a=tab2.b'+CRLF+
' AND tab2.c=tab3.d'+CRLF+
' ORDER BY tab3.e';

и усьо

[Nomto]

не бойся того что там много компонент будет на форме, большаяя база будет представлять собой множество компонет. используй хранимые процедуры, adodatacommand кажется и остальные.

Добавлено через 1 минуту
чаще используй хранимые процедуры.. оч хорошая вещь

[Leser]

Цитата: Сообщение от Nomto не бойся того что там много компонент будет на форме, большаяя база будет представлять собой множество компонет. используй хранимые процедуры, adodatacommand кажется и остальные. Добавлено через 1 минуту чаще используй хранимые процедуры.. оч хорошая вещь

Насколько я помню, хранимые процедуры не дают набора записей, а только значения параметров, а топикстартер вроде как использует селект именно для получения набора записей...

[Steve Bloom]

Цитата: Сообщение от Leser Насколько я помню, хранимые процедуры не дают набора записей, а только значения параметров

это вы неправильно помните...