SQL algoritmus v Delphi

[thcom]

Ahoj, snazim se tu nacist sql dotazy ze souboru .dfm (textova definice formularu pro delphi)

format zjednodusene vypada takto

Kód: [Vybrat]

SQL = 'SELECT castka, pomer, typ'
'FROM tabulka_osoby  WHERE cast'
'ka = 1 ORDER BY pomer DESC;'
pdle me je to navrzene nestastne, protoze kdyz sql slepite bez mezer muzete se dostat k chybne konstrukci typFROM a pokud s mezerami ziskate zase WHERE cast ka

asi neexistuje jina moznost nez to parsovat a kotnrolovat klicova slova SQL a platne fieldy z danych tabulek

nenapada nekoho jina finta

diky TH

[Reklama]

[Martin Dráb]

Ty SQL dotazy jsou řetězcová hodnota nějaké položky na formuláři?

Přijde mi nejjednodušší to parsovat. Pokud víte, jaké možné dotazy se tam budou vyskytovat, bude navíc ta gramatika dosti jednoduchá.

[Filip Jirsák]

Pochybuju, že jeto tam uložené opravdu takhle, protože to by to stejným způsobem musely parsovat i Delphi při běhu toho programu. Což navzdory svému názvu určitě nedělaly. Takže moje doporučení je podívat se na ten formát znovu a lépe.

[JardaP .]

Nemuzete predpokladat, ze pridate mezeru vzdy za prvni radek a za druhy nikoliv? Nebo nelze predpokladat, ze prihodite mezeru pred kazdy radek, pokud zacina slovem s velkymi pismeny, ovsem s vyjimkou prvniho?

Videl jste zdrojak algoritmu, ktery ta data takto podivne porizuje? Mozna by z toho slo neco vykoukat.

BTW, by me zajimalo, kdo a hlavne proc to vymyslel prave takto.

[ehmmm]

Vyjimecne souhlasim s Filipem Jirsakem. Takhle divne Delphi zase nejsou.

Je zvlastni, ze nejaky "robsoft" to tam ma s mezerama:
http://stackoverflow.com/questions/2513483/is-there-a-tool-which-can-extract-all-sql-command-strings-from-delphi-form-files

[Reklama]

[thcom]

prikladam aktualni stav z meho projektu:

SQL zadane v IDE delphi primo v komponente Query

Kód: [Vybrat]

SELECT
 objednavky_polozky.id,
 TRIM(CONCAT(suroviny.nazev, " ", IF(ISNULL(suroviny_rozliseni.nazev), "", suroviny_rozliseni.nazev ))) AS nazev,
 suroviny.mj_obj AS mj, pocet
FROM
 objednavky_polozky LEFT JOIN
  suroviny ON objednavky_polozky.suroviny_id = suroviny.id
   LEFT JOIN
     suroviny_rozliseni ON objednavky_polozky.suroviny_rozliseni_id = suroviny_rozliseni.id
WHERE
 objednavky_id = :par_objednavky_id
AND
( suroviny.nazev LIKE :par_search OR suroviny_rozliseni.nazev LIKE :par_search)
ORDER BY
 sortik
  DESC;


sekce z DFM souboru prislusna k danemu Query

Kód: [Vybrat]

    SQL.Strings = (
      'SELECT'
      ' objednavky_polozky.id, '
     
        ' TRIM(CONCAT(suroviny.nazev, " ", IF(ISNULL(suroviny_rozliseni.n' +
        'azev), "", suroviny_rozliseni.nazev ))) AS nazev, '
      ' suroviny.mj_obj AS mj, pocet'
      'FROM'
      ' objednavky_polozky LEFT JOIN '
      '  suroviny ON objednavky_polozky.suroviny_id = suroviny.id '
      '   LEFT JOIN '
     
        '     suroviny_rozliseni ON objednavky_polozky.suroviny_rozliseni' +
        '_id = suroviny_rozliseni.id'
      'WHERE'
      ' objednavky_id = :par_objednavky_id'
      'AND'
     
        '( suroviny.nazev LIKE :par_search OR suroviny_rozliseni.nazev LI' +
        'KE :par_search)'
      'ORDER BY'
      ' sortik '
      '  DESC;')
    Params = <


parametry jsem pro zkraceni vynechal

TH

[Jenda]

Všimni si těch plusek na konci některých řádků. Znamenají "tohle slep bez mezer". Ostatní slepíš s mezerou.

[ehmmm]

Podle toho prikladu bych to formuloval trochu jinak: Kdyz tam je na konci radku plus, tak radek jeste neskoncil. Pokud na konci plus neni, tak dalsi radek je novy radek. (Ze si pak misto konce radku da mezeru, je dalsi vec.)

[Filip Jirsák]

Jak píšou předřečníci, je to pole stringů, každá položka je jeden řádek (případně můžete konec řádku nahradit jiným bílým znakem), znak „+“ stringy spojí (tedy v poli je to výsledně jedna položka, tj. jeden řádek).

[thcom]

dekuji jsem kokes, ty plusy mi unikly

diky moc !!