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

[sx2008]

Also ich würde ein Konstantenarray einsetzen:

Delphi-Quellcode:

const
  MyList : array[0..1200] of AnsiString = (
   'blabla',
   'blabla2',
   ...
  );

function blabla: TStrings
begin
  ...
  for i:=Low(MyList) to High(MyList) do
    result.Add(Mylist[i]);

Das hat den Vorteil, dass deine 1200 Zeilen "dichter" (also ohne immer ein result.Add()) zusammen sind.
Ausserdem spart man auch den Code für ungefähr 1200 Methodenaufrufe.
Allerdings habe ich früher schon mal festgestellt, dass bei sehr grossen Konstantenarrays der
Compiler extrem langsam (einige Minuten) werden kann.
Dieser Performanceeinbruch steigt dann auch noch quadratisch mit der Anzahl der Einträge

[himitsu]

Eventuell auch mal resourcestring oder eben direkt die Ressourcen verwenden.
Bei Letzerem hat man die Zeilen noch dichter beieinander ... z.B. direkt in einer Textdatei, welche dann einfach nur noch über eine .RC/.RES ins Programm gelinkt wird.

[MaBuSE]

Vielen Dank für Eure Antworten

Zitat von sx2008:

...Das hat den Vorteil, dass deine 1200 Zeilen "dichter" (also ohne immer ein result.Add()) zusammen sind.
Ausserdem spart man auch den Code für ungefähr 1200 Methodenaufrufe....

Also ich finde, dass der Code genauso dicht zusammen steht

Die Lösung, die ich im 1. Beitrag gezeigt habe, hat für mich einen großen Vorteil:

Es handelt sich bei mir um automatisch generierten Code.
Ich möchte es also vermeiden nach jedem Update wieder alle Änderungen von Hand zu machen.

Meine Lösung hat den Vorteil, dass es einfach mit einem Suchen und Ersetzen erledigt ist

Aus ');^p Result.Add(' wird einfach '+#13#10+^p ' Damit habe ich dann auch nur noch einen Add Aufruf.
Das ist auch schneller als 1200 Einzelne oder 1200 in einer Schleife.

Mit wenig Aufwand kann man dann auch noch das .Add(...); in .Text := ... ; ersetzen.

Fertig.
Aufwand: 20 Sekunden.

Aus diesem Grund habe ich die Lösung gleich mit gepostet.
(Ich habe allerdings den Vorteil nicht dazugeschrieben)

Viel Spaß
MaBuSE

[sx2008]

Zitat von MaBuSE:

Mit wenig Aufwand kann man dann auch noch das .Add(...); in .Text := ... ; ersetzen.

Das würde wohl Probleme machen, denn dann müssten alle Zeilen zu einen einzigen Stringliteral zusammengefügt werden.
Der Compiler verarbeitet aber nur Stringliterale bis zu einer best. Länge (1023, wenn ich mich nicht irre).

Delphi-Quellcode:

.Text := 'blabla'#13#10'blabla2'#13#10'blabla3'#13#10+
'blabla4'#13#10....

[MaBuSE]

Zitat von sx2008:

Zitat von MaBuSE:

Mit wenig Aufwand kann man dann auch noch das .Add(...); in .Text := ... ; ersetzen.

Das würde wohl Probleme machen, denn dann müssten alle Zeilen zu einen einzigen Stringliteral zusammengefügt werden.
Der Compiler verarbeitet aber nur Stringliterale bis zu einer best. Länge (1023, wenn ich mich nicht irre).

Delphi-Quellcode:

.Text := 'blabla'#13#10'blabla2'#13#10'blabla3'#13#10+
'blabla4'#13#10....

Du musst Dich irren

Genau so habe ich es gemacht.
(-> mehr als 1200 Add-Zeilen zu einem String Literal.)

-> Es funktioniert!

Das ist es ja, was mich verwundert hat.
Die Fehlermeldung bedeutet zu viele Konstanten.
Nicht zu viel Inhalt in den Konstanten !!!

[edit]
Anmerkung:
Ich habe gerade mal den Quelltext gecheckt.´
Der String ist 68186 Byte groß (Ansi)
Er belegt also intern ca. 128 kByte als UnicodeString

Damit stimmt auch die Anmerkung von der 64kByte Grenze für Strings nicht. (s.o.)
[/edit]

[himitsu]

Sobald ein + drin vorkommt, wird jeder Teil als einzelnes Stringliteral verwaltet.

1024 ... war nicht schon bei 255 Zeichen Schluß?

[Mike_]

Zitat von himitsu:

Sobald ein + drin vorkommt, wird jeder Teil als einzelnes Stringliteral verwaltet.

1024 ... war nicht schon bei 255 Zeichen Schluß?

Richtig, zumindest für Delphi <= 2007 kann ich dir das Bestätigen.

[DCC Error] Unit2.pas(29): E2056 String literals may have at most 255 elements
[DCC Error] Project1.dpr(5): F2063 Could not compile used unit 'Unit2.pas'

[DeddyH]

IIRC gelten die 1024 für Resourcestrings.

[Patito]

Ich hab gerade mal eine Prozedur mit 40000 Adds zu einer StringList getestet.
Mit D7 anscheinend kein Problem...

[himitsu]

40000 Add's ... Doch nicht etwa alles mit der "selben" String-Konstante?