Wie kann man das besser lesbar machen.. Mich stören die vielen "#13#10"
Delphi-Quellcode:
sYear := FormatDateTime('yyyy', Date);
MessageStr := 'Version 1.00' + #13#10#13#10 + 'Author Not Yet' + #13#10 + 'copyright (c) ' +
sYear + #13#10 + 'wwww.yourweb.com' + #13#10#13#10#13#10#13#10#13#10#13#10#13#10 +
'SK_AERO Library' + #13#10 + 'BrewIdeas©Emil Weiss';
gruss
Du kannst anstelle #13#10 die sLinebreak-Konstante verwenden, aber das ändert das Grundproblem natürlich nicht. Der
IDE Editor erlaubt aber keine String-Konstanten, die mehrere Zeilen enthalten, bei denen also die im Editor eingegebenen Zeilenumbrüche Teil des Strings sein sollen.
Was man natürlich machen kann ist innerhalb der Konstante einen Platzhalter zu verwenden, z. B. "|". Denn muß man dann per StringReplace durch einen Zeilenumbruch ersetzen, bevor man den String irgendwo verwendet.
Delphi-Quellcode:
const
BreakPlaceholder = '|';
Version = 'Version 1.00||Author Not Yet|copyright (c) %s|wwww.yourweb.com'
+ '|||||||SK_AERO Library|BrewIdeas©Emil Weiss';
function MakeMultilineText(const aTemplate: string): string);
begin
result := StringReplace(aTemplate, BreakPlaceholder, sLinebreak, [rfReplaceAll]);
end;
...
sYear := FormatDateTime('yyyy', Date);
MessageStr := Format(MakeMultilineText(Version),[sYear]);