TStringList erzeugt Zeilenumbruch am Ende?

[himitsu]

Zum ursprünglichem Code aus #1:

Zitat:

function CreateLoremipsum(var Stringlist: TStringList; Anzahl: Integer; ...

Das VAR bei Objekten ist etwas ungünstig.
* erstmal willst du garnicht den Objektzeiger ändern
* und außerdem kann man so keine Property übergeben

Zusätzlich ist es besser hier den Vorfahren zu nutzen,
also TStrings, anstatt TStringList, denn du nutzt in deiner Funktion garnichts, wofür TStringList nötig ist, weil alles Verwendete bereits in TStrings deklaiert ist.

Delphi-Quellcode:

function CreateLoremipsum(var Stringlist: TStrings; Anzahl: Integer; ...


CreateLoremipsum(Memo1.Lines, 123456, ...);

Zitat:

Delphi-Quellcode:

  Result := True;
  try

  except
    Result := False;
  end;

Für soeine Fehlerbehandlung sollte man mindestens gesteinigt werden ein Paar auf den Popo bekommen.

Wenn dieser Code wirklich so schlecht ist, dass er einen Fehler auslösen kann, dann sollte man besser es knallen lassen, anstatt den Fehler zu verstecken. (weg mit dem Try-Except und weg mit dem unnützen Result ... entweder es ist True oder es knallt und ein halber Boolean ist nutzlos)


Randomize sollte man eigentlich niemals "ständig" aufrufen.
Die VCL ruft es beim Start bereits auf (in Konsolenanwendungen macht man es selber einmal zu Beginn).

Sei Froh, dass diese Funktion enorm beschleunigt wurde.
Früher war so ein Verhalten dafür Verantwortlich, dass "schnell" nacheinander mehrmals die selbe Zufallszahl(en) endstand(en).

Delphi-Quellcode:

Randomize;
a1 := Random;
b1 := Random;
c1 := Random;
Randomize;
a2 := Random;
b2 := Random;
c2 := Random;

Hier konnten (waren fast immer) die Werte *1 identlisch mit den *2,

wenn es schnell genug war, dass beide Random den selben Zeitstempel zur Initialisierung nutzten, so als würde man

Delphi-Quellcode:

RandSeed := 666; //Randomize;
a1 := Random;
b1 := Random;
c1 := Random;
RandSeed := 666; //Randomize;
a2 := Random;
b2 := Random;
c2 := Random;

machen.

Zitat:

Delphi-Quellcode:

if DoppeltAbsatz then
  Stringlist.Add(sLineBreak);

Klar, man könnte in eine Zeile einen Zeilenumbruch reinmachen,
aber etwas besser sollte es sein, wenn du dafür Leerzeilen einfügst.
(denn logisch entspticht ein .Line eine Zeile)

Delphi-Quellcode:

if DoppeltAbsatz then
begin
  Stringlist.Add('');
  Stringlist.Add('');
end;

Und anstatt am Ende die unnötigen Leerzeilen wieder zu entfernen,
wie wäre es, wenn man sie garnicht erst einfügt?

Delphi-Quellcode:

if DoppeltAbsatz and not (x = Anzahl) then
begin

Unnütze Units sind auch nicht das Wahre.
Graphics, Registry, ShellApi, TypInfo und Messages
hat nichts mit diesem Code zu tun (nichts davon wird verwendet)
Und wenn man auch noch Windows weg lässt, dann wäre dieser Code per se sogar für Linux/Mac/Android nutzbar.




[edit] ursprünglicher Post hier gelöscht, da er im falschen Thread war
https://www.delphipraxis.net/210865-...ml#post1507750