Syntax: Zeilenumbruch

[neolithos]

SQL-Code:

call neo.REGVSave(1, 'Option', 'KnownTimeServers', 1, 
  'rtime.urz.tu-dresden.de' + char(13) + char(10) + 
  'www.htw-dresden.de' + char(13) + char(10) + 
  'time.ien.it' + char(13) + char(10) + 
  'ntps1-0.cs.tu-berlin.de' + char(13) + char(10) + 
  'time.fu-berlin.de')

Kann man das char(13) + char(10) auch kürzer formulieren?

[Robert_G]

#13#10

[Dagon]

Ja: #13+#10

[Mirilin]

-> SUCHE

mfg Tobias

[neolithos]

Zitat von Mirilin:

-> SUCHE

mfg Tobias

Ich will hier meine Datenbank füttern! Dort geht #13#10 nicht.

[HAF4ever]

Code:

const newLine = char(13) + char(10);

das ganze noch global deklariet und du kannst es überall verwenden.

[neolithos]

Die Sybase Leute kennen leider auch kein const. Heißt das anders?

[fkerber]

Hi!

Nein, du sollst in deinem Delphi-Programm diese Konstante definieren.
Dann reicht es, wenn du

+newline

statt

char(13) + char(10);

schreibst.


Ciao fkerber

[neolithos]

Noch mal etwas zur Vorgeschichte.

Ich habe es mir angewöhnt meine DB über Scripte zu erstellen, ich verwende also keine Drag&Drops der Datenbank, sondern Hämmere alles per SQL-Befehl ein.

Dazu verwalte ich ein MS Visual Studio DB-Project in dem die SQL-Dateien (Text-Dateien) verwaltet werden. Und in denen steht der Text der oben steht.

Ganz Nebenbei: So ein vorgehen ist empfehlenswert, wenn man mehre weit auseinander liegende DB's in der Struktur und den Programmdaten syncron halten möchte.

[Robert_G]

Innerhalb von DBs reicht fast immer ein Lf.
Aber ich wüsste nicht wie man das noch weiter Kürzen könnte.

SQL-Code:

call neo.REGVSave(1, 'Option', 'KnownTimeServers', 1, 
                     'rtime.urz.tu-dresden.de' + chr(10) +
                     'www.htw-dresden.de' + chr(10) +
                     'time.ien.it' + chr(10) +
                     'ntps1-0.cs.tu-berlin.de' + chr(10) +
                     'time.fu-berlin.de')

p.s.: Du kannst froh sein, dass in deiner DB mit nur einem "+" konkatiniert wird.
Schaue dir mal den Schnipsel an (PL/SQL) , den ich gerade geschrieben habe. Mit "||" zwischen 2 Strings sieht das noch viieel unübersichtlicher aus.

SQL-Code:

  Begin

    -- just to be sure they're capitalized ;)
    Self.Protocol := upper(Trim(Self.Protocol));
    Self.Panel    := upper(Trim(Self.Panel));

    Savepoint Before_Fetching;

    --Clear Collection

    If Self.List.Count > 0 then
      Self.List.Delete;
    End If;

    Open FetchCur For
      'SELECT TItem(i.Item_Name' || chr(10) || 
      '            ,Decode(p.Seq, Null, p.Panel, ''SEQUENCE'')' || chr(10) ||
      '            ,i.Description' || chr(10) || 
      '            ,i.Derived' || chr(10) || 
      '            ,Decode(p.Seq, Null, 0, 1)' || chr(10) || 
      '            ,Decode(i.i_type, 6, 0, 1)' || chr(10) || 
      '            ,i.DBFmt' || chr(10) || 
      '            ,i.DType' || chr(10) || 
      '            ,i.CodeList' || chr(10) || 
      '            ,Decode(i.Item, p.SubKey, 5, i.i_type))' || chr(10) ||
      'FROM   '||Prot$Context||'_DtDict.Item  i' || chr(10) || 
      '      ,'||Prot$Context||'_DtDict.Panel p' || chr(10) || 
      'WHERE  p.Protocol = :i_Protocol And' || chr(10) || 
      '       p.Protocol = i.Protocol  And' || chr(10) || 
      '       p.Panel    = :i_Panel    And' || chr(10) || 
      '       p.Panel    = i.Panel' || chr(10) || 
      'ORDER  BY i.i_Type' || chr(10) || 
      '         ,i.Item_Name'
      Using Self.Protocol, Self.Panel;
  
    Fetch FetchCur Bulk Collect
      Into Self.List;

    Self.CountKeys := Self.List.Count;

  Exception
    When Others Then
      Rollback To Savepoint Before_Fetching;
      Raise;
  End;