(Delphi ActiveX) Get a Substring by Char Index and Length
Demonstrates how to use the GetRange method to get a substring by index and length.
Note: This example demonstrates the GetRange method which was added in Chilkat v9.5.0.87.
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;
...
procedure TForm1.Button1Click(Sender: TObject);
var
sb: TChilkatStringBuilder;
success: Integer;
removeFlag: Integer;
result: WideString;
begin
sb := TChilkatStringBuilder.Create(Self);
// Load a file that contains this string: 0123456789ABCDEF
success := sb.LoadFile('qa_data/txt/remove_chars.txt','utf-8');
// Return "56789A" from the string.
// if removeFlag is 1, the returned string is also removed from the sb.
removeFlag := 1;
result := sb.GetRange(5,6,removeFlag);
Memo1.Lines.Add(result);
Memo1.Lines.Add(sb.GetAsString());
// Output is:
//
// 56789A
// 01234BCDE
end;
|