Forum: Object-Pascal / Delphi-Language
Delphi
by MaBuSE,
7. Feb 2011
Und wie passt das zusammen?
Folgende Funktion mit 2000 Zeilen geht auch:
...
function TForm1.GetMyText4: TStrings;
begin
Result := TStringList.Create;
Result.Text :=
'AD:UbÖfQlqIvH_Fd~k)g!_§eQguY#bwO,c))&TO~=7:ÜcJßc,Qb3°RPaR6xcP9%' + #13#10 +
'&IHFK?+m0r&xi**OJGGTÖW6Zk-ffü!€fvd(&4$p38;ÄLvoLF3Ö' + #13#10 +
Forum: Object-Pascal / Delphi-Language
Delphi
by MaBuSE,
7. Feb 2011
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 !!!
Forum: Object-Pascal / Delphi-Language
Delphi
by MaBuSE,
4. Feb 2011
Vielen Dank für Eure Antworten
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...
Forum: Object-Pascal / Delphi-Language
Delphi
by MaBuSE,
3. Feb 2011
Was soll das denn???
Ich bin gerade dabei funktionierenen Quelltext von D2007 nach DXE zu portieren.
Dabei gibt es eine Prozedur, die wie folgt aussieht:
function blabla: TStrings
begin
...
Result.Add('blabla');
Result.Add('blabla');