DelphiBasics
AnsiMidStr
Function
Returns a substring from the middle characters of a string StrUtils unit
 function AnsiMidStr ( const Source : AnsiString; const Start, Count : Integer ) : AnsiString;
Description
The AnsiMidStr returns a string comprising a sequence of characters from a source string.
 
It attempts to return Count characters from position Start of the Source.
 
If Count exceeds the remaining size of the source, the whole of the remainder of the source is returned.
Notes
Strings start with index = 1 (arrays start with 0)
Related commands
AnsiLeftStr Extracts characters from the left of a string
AnsiRightStr Extracts characters from the right of a string
Trim Removes leading and trailing blanks from a string
TrimLeft Removes leading blanks from a string
TrimRight Removes trailing blanks from a string
 Author links

 Buy Website Traffic at
 Buywebsitetrafficexperts.com

 Buy Proxies at
 Buyproxies.io
 
 Download this web site as a Windows program.




 
Example code : A simple example
// Full Unit code.
// -----------------------------------------------------------
// You must store this code in a unit called Unit1 with a form
// called Form1 that has an OnCreate event called FormCreate.
 
unit Unit1;
 
interface
 
uses
  StrUtils,   // Unit containing the AnsiMidStr command
  Forms, Dialogs;
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  end;
 
var
  
Form1: TForm1;
 
implementation
{$R *.dfm} // Include form definitions
 
procedure TForm1.FormCreate(Sender: TObject);

var
  source, target : AnsiString;
begin
  source := '123456789';
  target := AnsiMidStr(source, 2, 4);

  ShowMessage('Source = '+source);
  ShowMessage('Target = '+target);
end;
 
end.
Hide full unit code
   Source = 123456789
   Target = 2345
 
Delphi Programming Neil Moffatt 2002 - 2017. All rights reserved.  |  Home Page