On Sat, Apr 21, 2012 at 6:50 AM, Mattias Gaertner <[email protected]> wrote: > > On Sat, 21 Apr 2012 11:40:28 +0200 > Reinier Olislagers <[email protected]> wrote: > > > Hi list, > > > > When working with e.g. multiline SQL statements, sometimes I want to > > copy them to a string in Lazarus, e.g from something like: > > const > > SQL = > > with this on the clipboard: > > SELECT > > c.colid as recno, > > o.name as TableName, > > c.name as FieldName, > > c.colorder as FieldPosition, > > t.name as FieldType, > > c.scale as FieldScale, > > c.prec as FieldPrecision, > > c.isnullable as FieldNull > > FROM sys.syscolumns c > > INNER JOIN sys.sysobjects o ON c.id = o.id > > INNER JOIN sys.systypes t ON c.xtype = t.xtype and c.usertype=t.usertype > > WHERE (o.type='V' or o.type='U') and o.name='MEDEWERKERS' > > ORDER BY o.name, c.colorder > > > > to something like: > > Const > > SQL = > > 'SELECT'+ > > 'c.colid as recno,'+ > > 'o.name as TableName,'+ > > 'c.name as FieldName,'+ > > 'c.colorder as FieldPosition,'+ > > 't.name as FieldType,'+ > > 'c.scale as FieldScale,'+ > > 'c.prec as FieldPrecision,'+ > > 'c.isnullable as FieldNull'+ > > 'FROM sys.syscolumns c'+ > > Maybe line breaks to spaces? > > > > 'INNER JOIN sys.sysobjects o ON c.id = o.id'+ > > 'INNER JOIN sys.systypes t ON c.xtype = t.xtype and > > c.usertype=t.usertype'+ > > 'WHERE (o.type='V' or o.type='U') and o.name=''MEDEWERKERS'''+ > > 'ORDER BY o.name, c.colorder'; > > > > > > I.e. indenting, appending quotes and + sign, and escaping existing > > quotes. (In this case, it's SQL and having an extra space at the end of > > the line before the closing quote would be even nicer but that's > > something of a special case) > > > > Is that possible in Lazarus? > > No. > But it is easy to write an IDE plugin that does that.
+1 But I do that using "macro record". First in Delphi but now we have in Lazarus too (thanks Mattias). Marcos Douglas -- _______________________________________________ Lazarus mailing list [email protected] http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
