Delphi Leftstr,Rightstr函数应用

unit Unit1;

interface

uses
? Windows, StrUtils,Messages, SysUtils{要这个}, Variants, Classes, Graphics, Controls, Forms,
? Dialogs, StdCtrls;

type
? TForm1 = class(TForm)
??? Button1: TButton;
??? procedure Button1Click(Sender: TObject);
? private
??? { Private declarations }
? public
??? { Public declarations }
? end;

var
? Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
? s,s1,s2: string;
begin
? s:='0001000200030004';
? s1:= LeftStr(s,4);
? s2:= RightStr(s,4);
? ShowMessage('s1 leftstr:'+ s1 + '?? '+ ' s2 rightstr:' + s2);
? s:='厦门市第一医院';
? s1:= LeftStr(s,4);
? s2:= RightStr(s,4);
? ShowMessage('s1 leftstr:'+ s1 + '?? '+ ' s2 rightstr:' + s2);
? s1:=LeftBStr(s,4);
? s2:=RightBStr(s,4);
?? ShowMessage('s1 leftstr:'+ s1 + '?? '+ ' s2 rightstr:' + s2);
end;

end.