Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.202 Beiträge
 
Delphi 12 Athens
 
#5

Re: String mehr als 255 Zeichen?

  Alt 14. Mär 2005, 10:30
Also, wenn man nach maximal 255 Zeichen ' + ' einfügt, dann kann man mehr "zusammenhängend" hardcoden - komischer Weise scheint da der Compiler keine Optimierung zu machen und versucht die ein Einzelstrings zusammenzufügen.

PS: auf diese Weise hannst du auch den Text schön übersichtlich auf mehrere Zeilen verteilen.


SirThornberry Methode geht auch, allerding ist dann dort in jeder Zeile LStr := LStr + mit drin.

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var test:string;
begin
  test:='Bitte wählen sie die Spieleranzahl aus. Tragen Sie daraufhin in den ' +
    'erscheinenden Feldern Ihren Namen ein. Durch Aktivierung der automatischen ' +
    'Kampffunktion werden die Kämpfe automatisch ausgeführt und Sie erhalten nach ' +
    'Beendigung einen Bericht. Sollten Sie diese nicht aktivieren haben Sie die ' +
    'Möglichkeit selber zu würfeln. Sollten Sie die Hilfefunktion nicht benötigen, ' +
    'können Sie diese ebenfalls deaktivieren.';
  showmessage(test);
end;
Und mit ein paar Zeilenumbrüchen bei der Ausgabe könnte eventuell der User as sogar etwas besser lesen könen (nur so als Vorschlag):
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var test:string;
begin
  test:='Bitte wählen sie die Spieleranzahl aus. Tragen Sie daraufhin in den ' +
    'erscheinenden Feldern Ihren Namen ein. '#13#10'Durch Aktivierung der ' +
    'automatischen Kampffunktion werden die Kämpfe automatisch ausgeführt und ' +
    'Sie erhalten nach Beendigung einen Bericht. '#13#10'Sollten Sie diese nicht ' +
    'aktivieren haben Sie die Möglichkeit selber zu würfeln. '13#10'Sollten Sie ' +
    'die Hilfefunktion nicht benötigen, können Sie diese ebenfalls deaktivieren.';
  showmessage(test);
end;
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat