Fehlermeldung - was soll ich machen?

[AlexII]

Hallo, bekomme folgende Fehlermeldung:

Delphi-Quellcode:

[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 :angel:

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? :gruebel:

[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:

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. :wall:

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?

[mkinzler]

Oder als Ressource in Exe linken

[AlexII]

Zitat:

Zitat von mkinzler

Oder als Ressource in Exe linken

Boah..... ich bin hobby-programmierer, weiß gar nicht was das ist, wie man das realisiert ganz zu schweigen.

[AlexII]

Zitat:

Zitat von craash

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

Ja und wo sollen die Strings alle gespeichert sein? Sie müssen schon in der .exe stehen. Denn sie werden nicht erzeugt, sondern stehen zur Verfügung, die .exe muss gleich als DB dienen. Aber mit DB kenne ich mich nicht aus und überhaupt Delphi 7PE hat sie auch gar nicht.

[mkinzler]

Benutzt du aber, wenn du eine Delphi-Form benutzt.
.rc - Ressourcecompiler > .res - Linker > Exe

[DeddyH]

Schau mal z.B. hier: http://delphi.about.com/library/weekly/aa011805a.htm. Da wird gezeigt, wie man eine Stringtable als Ressource ablegt.

[himitsu]

Zitat:

Zitat von mkinzler

Benutzt du aber, wenn du eine Delphi-Form benutzt.
.rc - Ressourcecompiler > .res - Linker > Exe

als Resource könnte er es hier auch über ResourceStrings machen

[craash]

wie wärs mit einer stinknormalen .txt oder .ini?

[AlexII]

Zitat:

Zitat von DeddyH

Schau mal z.B. hier: http://delphi.about.com/library/weekly/aa011805a.htm. Da wird gezeigt, wie man eine Stringtable als Ressource ablegt.

Danke dir, aber hast du vllt was in deutsch?

[DeddyH]

Das nächste Mal googlest Du aber selbst, gell ;) ? Such mal hier nach "Wie kann ich Videos, Bilder oder Texte als Resourcen in ein Programm einbinden?": http://www.delphi-fundgrube.de/faq01.htm

[AlexII]

Zitat:

Zitat von mkinzler

.rc - Ressourcecompiler > .res - Linker > Exe

Ist das ein Pfad oder wie? :gruebel:

[AlexII]

Zitat:

Zitat von DeddyH

Das nächste Mal googlest Du aber selbst, gell ;) ?

Wenn ich wüsste wonach man suchen muss :gruebel:

[DeddyH]

Delphi string resourcewäre ein Ansatz.

[AlexII]

Ach du meine Güte.... ich bin doch nicht Einstein, ich glaub muss einfach mein Text überarbeiten, dass der kürzer wird, dann klappt's (hoffe ich).

[craash]

vll hilft dir das hier

oder gibst einfach mal sowas wie "delphi strings in exe speichern" ein :wink: