★求教关于取字符串的问题! ★各位朋友,小弟pascal学得不好,现有一基础问题求教:☆如何取文本左边第一个字符?☆如何取文本中间的从第m到第n个字符的字符串?☆如何取文本末的i个和第i个字符串和字符? :)请各位多多帮助!祝各位羊年快乐,羊羊得意! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 第一个问题: substr:=yourstring[1];第二个问题: for i:=m to n do substr:=substr+yourstring[i]第三个问题: 字符串末尾: substr:=yourstring[length(yourstring)]; 假如是多行文本就一行一行操作了,这些一般参考书都有的,多看看书 1: Copy(strConst,1,1); //或LeftStr(strConst,1); (但要引用StrUtils单元)2: Copy(strConst,iBegin,iEnd-iBegin+1);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);beginstr:='abcdefg';label1.caption:=str;end;procedure TForm1.Button1Click(Sender: TObject); {显示第一个字符}beginshowmessage(copy(label1.caption,1,1));end;procedure TForm1.Button2Click(Sender: TObject);{如何取文本中间的从第m到第n个字符的字符串?}vara,b:integer;begina:=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.祝:身体健康,答案和分数同样重要:)!!!! CopyPosDelete三个函数够你实现其它功能,看看帮助罢 自己找吧appendstrassignstrcomparestrcomparetextcomtactcopydeleteinsertpos 保存xml文件的问题 不能当FORM2关掉后自动按某键吗? 各种浏览器的独立播放器功能 Delphi的MSDN 急,第3次发贴,请大家帮忙,关于数据库程序设计填空题 Webbrowser控件问题 谁能给个皮肤控件? 100分得简单问题:打印; 如何察看TObject的定义原码? 为什么在设计期间可以在DBGRID里看到字段,在运行期间就看不到了呢??? 如何将一个程序的任务栏按钮隐藏掉????? 怎么学好Delphik呢?
第二个问题:
for i:=m to n do
substr:=substr+yourstring[i]
第三个问题:
字符串末尾:
substr:=yourstring[length(yourstring)];
假如是多行文本就一行一行操作了,这些一般参考书都有的,多看看书
//或LeftStr(strConst,1); (但要引用StrUtils单元)
2: Copy(strConst,iBegin,iEnd-iBegin+1);
3: 问题不是很明确。
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.祝:身体健康,答案和分数同样重要:)!!!!
Pos
Delete三个函数够你实现其它功能,看看帮助罢
appendstr
assignstr
comparestr
comparetext
comtact
copy
delete
insert
pos