Delphi StringBuilder

Question

Gibt es in Delphi etwas Ähnliches wie den Java oder C# StringBuilder? Oder braucht Delphi keinen StringBuilder und s := s + 'einige Zeichenkette'; ist ein guter Ausdruck (hauptsächlich in for- und while-Schleifen).

Answer 1

Ja, Delphi bietet TStringBuilder an (seit Version 2009):

procedure TestStringBuilder;
var
  I: Integer;
  StringBuilder: TStringBuilder;
begin                StringBuilder := TStringBuilder.Create;
  try
    for I := 1 to 10 do
    begin
      StringBuilder.Append('a string ');
      StringBuilder.Append(66); // add an integer
      StringBuilder.Append(sLineBreak); // neue Zeile hinzufügen
    end;

    OutputWriteLine('Länge des endgültigen String-Builders: ' +
                    IntToStr(StringBuilder.Length));
  finally
    StringBuilder.Free;
  end;
end;

Und ja, du hast recht. s := s + 'text'; ist wirklich nicht langsamer als die Verwendung von TStringBuilder.

Answer 2

In älteren Delphis kannst du Hallvard Vassbotn's HVStringBuilder verwenden. Ich habe es nicht geschafft, die Quellen auf seinem Blog zu finden, aber du kannst sie im OmniThreadLibrary source tree zum Beispiel abrufen (du benötigst die Dateien HVStringBuilder.pas und HVStringData.pas).

Answer 3

Delphi benötigt keine "ERFORDERLICHEN" String-Builder-Klasse, aber eine wird für Delphi 2009 bereitgestellt, wenn Sie diese verwenden möchten. Ihr Beispiel s := s + 'some string'; ist eine typische Methode zum Verketten von Zeichenfolgen und wird seit einigen Jahrzehnten in Pascal/Delphi ohne signifikante Probleme verwendet.

Answer 4

Der erwähnte TStringBuilder ist der richtige Weg. In Ihrem spezifischen Fall kann die Verkettung in Ordnung sein, aber ich würde trotzdem immer die Alternative ausprobieren.

Ich erstelle eine EPUB-Body-Inhalt-XHTML-Datei im Speicher (Delphi XE) und es hat so lange gedauert, um sie zu erstellen, dass ich sie nie zu Ende habe laufen lassen (ungefähr 5 Minuten plus, bevor ich aufgegeben habe). Dies ist ein Beispiel aus dem echten Leben, das etwa 800.000 Zeichen Text kombiniert. Indem ich den EXAKT gleichen Code nehme und die s:=s+'' -Style-Anweisungen direkt durch TStringBuilder.Append -Anweisungen ersetze, konnte ich die Zeit auf ungefähr 3 Sekunden reduzieren. Um es noch einmal zu betonen: Es gab keine logischen Änderungen, außer einem Wechsel von der Verkettung.

Answer 5

Ich bin wirklich überrascht, dass in keinem der Kommentare oder Beispiele erwähnt wurde, dass Sie TStringBuilder anweisen können, einen Puffer entsprechend der Aufgabe während der Instantiierung vorab zuzuweisen. Mit anderen Worten, wenn Sie eine einfache Schätzung darüber abgeben können, wie viel Speicherplatz Sie wahrscheinlich benötigen werden, fügen Sie das etwas hinzu und verwenden Sie diesen Wert, um TStringBuilder zu instantiieren, um die Speicherreallokationen zu vermeiden, die die einfache Zeichenkettenverkettung stark verlangsamen:

buff := TStringBuilder.Create( tmpEstimatedSize );

Ich verwende TStringBuilder regelmäßig in neuem Code und zur Optimierung von altem Code, und die CPU-Einsparungen beim schrittweisen Aufbau großer Zeichenketten sind dramatisch. Um transparent zu sein, wenn ich nur eine Handvoll Zeichenketten verketten muss, beschäftige ich mich nicht mit TStringBuilder. Aber wenn ich beispielsweise Daten serialisiere, die potenziell eine große Datenmenge sein könnten, ist TStringBuilder die offensichtliche Lösung.