StringBuilder is a simplistic demo demonstrating how to use the System.Text.StringBuilder class from Delphi. This demo also serves as a quick start example for using CrossTalk.
Running StringBuilder
A window will appear like this:
StringBuilder is a console application. However CrossTalk is fully usable in VCL Forms applications as well. StringBuilder is a simplistic demo designed as the first demo to be simple as possible. The code for StringBuilder is Delphi code, however closely mimics the equivalent C# or VB.NET code.
program StringBuilderTest;
{$APPTYPE CONSOLE}
uses
CTmscorlib,
SysUtils;
procedure TestStringBuilder;
var
xSB: StringBuilder;
xSB2: StringBuilder;
begin
xSB := StringBuilder.Create('Hello CrossTalk!!!'); try
WriteLn('Length: ' + IntToStr(xSB.Length));
WriteLn(xSB.Chars[0] + xSB.ToString(1, 4));
xSB.Chars[1] := 'a';
WriteLn(xSB.ToString);
xSB.Append('... more');
xSB2 := xSB.Append(' and more');
WriteLn(xSB = xSB2); // True, because Append returns Self
WriteLn('Length: ' + IntToStr(xSB2.Length));
WriteLn(xSB.ToString);
xSB.Length := 10;
WriteLn(xSB.ToString);
ReadLn;
finally xSB.Free; end;
end;
begin
try
TestStringBuilder;
except
on E:Exception do
Writeln(E.Classname, ': ', E.Message);
end;
end.