"E2283: Zu viele lokale Konstanten. Verwenden Sie kürzere Prozeduren" Fehler

[MaBuSE]

Zitat von MaBuSE:

Was noch selsam ist:

Eine Umwandlung von den Add()'s ind ein 'bla' + #13#10 + 'bla'... hat bei mir funktioniert.
Der String wurde aber eigentlich nicht kürzer.

Und wie passt das zusammen?

Folgende Funktion mit 2000 Zeilen geht auch:

Delphi-Quellcode:

...
function TForm1.GetMyText4: TStrings;
begin
  Result := TStringList.Create;
  Result.Text :=
  'AD:UbÖfQlqIvH_Fd~k)g!_§eQguY#bwO,c)[x;#COOyC8A)ü)"' + #13#10 +
  '4UÜ8^ö\YÖdI)x;y6^ÜhA"])&TO~=7:ÜcJßc,Qb3°RPaR6xcP9%' + #13#10 +
  '&IHFK?+m0r&xi**OJGGTÖW6Zk-ffü!€fvd(&4$p38;ÄLvoLF3Ö' + #13#10 +
  'I<-Ü<b"%xÄPX|kM]eFK:4!KÄBe€2gs€ijwH.(S<xM@oU+7Kß<3' + #13#10 +
  'gsWS!\ß!3J&OX;§r]PDSAlnkItyuÖ*5Zl7,9Z!4,kkß=tU!-/€' + #13#10 +
  'S)ad"t°SBW@g:(°bn-CYFyqAP"fn3aPdH"h=ü5@CZ;ÜDPPppOA' + #13#10 +
  '1(6X:GwHkÄU+1pD\QEFK+^LV(]xD8+<zÄ\(§@\%=BkfH=a.~E@' + #13#10 +
  '<wÜlq&!ißy°K\C0jzö*ä^xw\XTrÜ/D0+uQäH°=,rAW6;Fv>:.$' + #13#10 +
  ']VPÄ#SB*5urO?,J8?Vvoy"=fD9dFuVIü.iev~$pI+ZDi;:rZqk' + #13#10 +
  'üqä/*t20eYo$üR°Dg@uz,Öp7O[vPf0*wNuOhÄ#.PR&biYD€ÜIÄ' + #13#10 +
  'B07)T@*öw=&Tl€1,$d8Kijq6~Ö%\jJob<XmI1z2WTp°y6ll=~Ü' + #13#10 +
  '61<WC[x[U#JrG\m":#nüb:SkpI°ASKGäb+L!ow1K>g^b?.qyc$' + #13#10 +
  'hqr[k7"wRgpwjuGS\4t@#8pd_6cö;ZßEv#:W[Ä"a€Xvj+9CpWx' + #13#10 +
  'zZ49h6("Q<s§43z%@39_qC|D%€Zö>=FJj;U|7]?mCC9=uy%>bQ' + #13#10 +
  'N\NhPpxKmdbGd_Yl7FanH(pD§zs$AJY1+ßa-vtEÄÄqX6jJ.7-C' + #13#10 +
  'ÄÄ_k#+~Haz&)tmQ@vO<ß8IsD!NTJißr6e!pJ§°V+q"]qD%K80@' + #13#10 +
  '9)fß,baHlBg;RH,lPZv~qPMäen6.-Q&(!Qjd<pVYD:-BS1cß35' + #13#10 +
  'u=R$YQ;@JZ@!Mprr=;p@5B;7n<~6ömMI\z°boÖuGI/O,V4P0ä^' + #13#10 +
...
  '[aBaT]^*O1c9yfg)IÜ@En€wp?JÖ:cM€*IY^n.)|KAc§XoKÖDÄ[';
end;
...

[edit]
Ich habe das gerade noch mal mit 5.000 Zeilen getestet. Also fast 5 mal so viel wie bei der Add-Orgie.
-> Es funktioniert !!!
[/edit]