| 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 |
|
|
|
| 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
|
|