Fehlermeldung - was soll ich machen?

[AlexII]

Hallo, bekomme folgende Fehlermeldung:

[Fehler] Unit1.pas(1711): Zuviele lokale Konstanten. Verwenden Sie kürzere Prozeduren. Das kommt komischerweise wenn ich sehr viele Strings einfüge, um die 1000 habe ich schon, wenn ich mehr einfüge kommt das halt.
Wie bekomme ich sie weg?

[himitsu]

wie/wo fügst du diese Strings ein?

als Lösung würde ich einen anderen Ort für deine Strings vorschlagen

PS: Zuviele lokale Konstanten

[mkinzler]

Die Strings anders ablegen: Ressource, Textdatei, XML, DB

[AlexII]

Hab das wie folg:

Delphi-Quellcode:

procedure TForm1.dsInit;
var i: Integer;
    lmax: Integer=366;
begin
  for i:=lmax downto 1 do with losungen[i] do
  begin
  losungen[1].ntvers:='Text A';
  losungen[1].ntversst:='Text B';
  losungen[1].ntverslink:='Text C';

....

  losungen[366].ntvers:='';
  losungen[366].ntversst:='';
  losungen[366].ntverslink:='';
end;

Wenn ich die 320 mit Text fülle kommt die Fehlermeldung...bis 320 nicht.

[mkinzler]

Wie gesagt würde ich die strings z.B. in eine Textdatei schreiben und dann daraus lesen.

[nuclearping]

Delphi-Quellcode:

procedure TForm1.dsInit;
var i: Integer;
    lmax: Integer=366;
begin
  for i:=lmax downto 1 do 
    with losungen[i] do
      begin
        ntvers:='';
        ntversst:='';
        ntverslink:='';
      end;
end;

Oder wozu hast du da die Schleife?

[AlexII]

Das mit der Schleife kommt nicht in Frage, da überall anderer Text bzw. String steht.

[mkinzler]

3. Versuch, was spricht gegen externe Lösung?

[AlexII]

Zitat von mkinzler:

3. Versuch, was spricht gegen externe Lösung?

Ich wollte unbedingt nur eine .exe Datei haben... schade schade, da bleibt mir wohl nix anderes übrig.

Aber vllt kann ich doch bei einer .exe bleiben, gibt's da vllt eine Lösung? Wie gesagt eine externe Datei will ich möglichst vermeiden.

[craash]

die "externe lösung" zur laufzeit erzeugen und später löschen?