主页 / 问题 / 814768
Accepted
delphi
Asked:2020-04-16 13:13:13 +0000 UTC2020-04-16 13:13:13 +0000 UTC

大于255个字符的字符串delphi

  • 772

我做了一个查询，在 SQL Server 中一切正常，但是当我在 Delphi 中进行这个查询时，它发誓

Delphi中的错误代码：

String literals may have at most 255 elements

代码本身

qry1.SQL.Add('SELECT round(a.FARE,2) as FARE, round(a.takasa,2) as takasa, round(a.foiz_sub,2) as foiz_sub, round(a.dop_zbor_naprav,2) as dop_zbor_naprav, round(a.foiz_AK,2) as foiz_AK, a.*, b.*, c.* FROM TICKET as a, Subagent as b, Agency  as c where a.subagent= b.id and c.id=a.company');

当我驾驶 FARE 表时发誓，我该怎么办？

delphi

1 个回答

  1. Best Answer

    shortstring这是您直接打印到代码中的字符串 ( ) 长度的编译器限制。把它分成几块。

    var
  str1, str2, str3: string;

...

str1 := 'SELECT round(a.FARE,2) as FARE, round(a.takasa,2) as takasa, round(a.foiz_sub,2) as foiz_sub, ';
str2 := ' round(a.dop_zbor_naprav,2) as dop_zbor_naprav, round(a.foiz_AK,2) as foiz_AK, a.*, b.*, c.* ';
str3 := ' FROM TICKET as a, Subagent as b, Agency  as c where a.subagent= b.id and c.id=a.company';

qry1.SQL.Add(str1 + str2 + str3);

    或者

    qry1.SQL.Add('SELECT round(a.FARE,2) as FARE, round(a.takasa,2) as takasa, round(a.foiz_sub,2) as foiz_sub,');
qry1.SQL.Add('round(a.dop_zbor_naprav,2) as dop_zbor_naprav, round(a.foiz_AK,2) as foiz_AK, a.*, b.*, c.*');
qry1.SQL.Add('FROM TICKET as a, Subagent as b, Agency  as c where a.subagent= b.id and c.id=a.company');

    或者

    qry1.SQL.Add(
  'SELECT round(a.FARE,2) as FARE, round(a.takasa,2) as takasa, round(a.foiz_sub,2) as foiz_sub, ' +
  ' round(a.dop_zbor_naprav,2) as dop_zbor_naprav, round(a.foiz_AK,2) as foiz_AK, a.*, b.*, c.* ' + 
  ' FROM TICKET as a, Subagent as b, Agency  as c where a.subagent= b.id and c.id=a.company'
);
    • 4

相关问题