★求教关于取字符串的问题！

Question

★各位朋友，小弟pascal学得不好，现有一基础问题求教：
☆如何取文本左边第一个字符？
☆如何取文本中间的从第m到第n个字符的字符串？
☆如何取文本末的i个和第i个字符串和字符？
　:)请各位多多帮助！祝各位羊年快乐，羊羊得意！

Answer 1

第一个问题: substr:=yourstring[1];
第二个问题: 
      for i:=m to n do 
          substr:=substr+yourstring[i]
第三个问题:
     字符串末尾:
        substr:=yourstring[length(yourstring)];
  
   假如是多行文本就一行一行操作了,这些一般参考书都有的,多看看书

Answer 2

1: Copy(strConst,1,1);
   //或LeftStr(strConst,1); （但要引用StrUtils单元）
2: Copy(strConst,iBegin,iEnd-iBegin+1);
3: 问题不是很明确。

Answer 3

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button2: TButton;
    Button3: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  str:string;
implementation{$R *.DFM}procedure TForm1.FormCreate(Sender: TObject);
begin
str:='abcdefg';
label1.caption:=str;
end;procedure TForm1.Button1Click(Sender: TObject);
 {显示第一个字符}
begin
showmessage(copy(label1.caption,1,1));
end;procedure TForm1.Button2Click(Sender: TObject);
{如何取文本中间的从第m到第n个字符的字符串？}
var
a,b:integer;
begin
a:=strtoint(edit1.text);
b:=strtoint(edit2.text);  if (a>0) and (b<(length(str)-1)) then
     showmessage(copy(label1.caption,a,b));
end;procedure TForm1.Button3Click(Sender: TObject);
{☆如何取文本末的i个和第i个字符串和字符？}
begin
{呵呵，就是一个算法的问题，自己摸索吧，，}
end;end.祝：身体健康，答案和分数同样重要：）！！！！

Answer 4

Copy
Pos
Delete三个函数够你实现其它功能，看看帮助罢

Answer 5

自己找吧
appendstr
assignstr
comparestr
comparetext
comtact
copy
delete
insert
pos