《delphi中pos的用法》delphi pos
本篇文章给大家谈谈delphi中pos的用法，以及delphi pos对应的知识点，希望对各位有所帮助，办理pos机,申请pos机,24小时秒到pos机请添加微信18127011016。【免费包邮不要一分钱押金】
delphi 中的move（）和pos（）函数究竟是怎样用的？
procedure Move(const Source; var Dest; Count: Integer);
将Source按字节拷贝到Dest。Count为要拷贝的字节数。
var
A: array[0..1] of Char;
B: array[0..1] of Char;
begin
A[0]:=‘1’;
A[1]:=‘2’;
Move(A, B, SizeOf(B));
end;
function Pos(Substr: string; S: string): Integer;
在S中查找Substr第一次出现的位置。返回0表示在S中没有找到Substr。
var S: string;
begin
S := ‘ 123.5’;
while Pos(’ ‘, S) 0 do //将S中的空格替换成’0’
S[Pos(’ ‘, S)] := ‘0’;
end;
delphi pos的使用
combobox1.text:=‘12312测试文件’
copy(combobox1.Text,1,pos(’’,combobox1.Text)-1)// 值是12312
copy(combobox1.Text,pos(‘_’,combobox1.Text)+1,length(combobox1.Text)) //值是 测试文件
在Delphi中，怎么查找字符串？
Delphi提供的字符串函数里有一个Pos函数，它的定义是：
function Pos(Substr: string; S: string): Integer;
它的作用是在字符串S中查找字符串Substr，返回值是Substr在S中第一次出现的位置，如果没有找到，返回值为0。
使用pos函数来查找字符第一次出现的位置
var
str1:string;
i,j:integer;
begin
str1:=‘dsf4654f6dsad’ ;
j:=pos(“,str1);//在字符串str1中查找””
if j0 then //得到的j是字符串中出现的位置，是整型
showmessage(“+‘在第’+inttostr(j)+‘个位置’); //第十个位置
end;
delphi pos函数
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
Edit1: TEdit;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
mylist:Tstringlist;//定义一个Tstringlist类型，用来读取memo1的内容。
m:integer;//全局变量，用来测定读取到了mylist的第几行。
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
i:integer;
begin
mylist:=Tstringlist.Create;//逐行读取memo1的内容
for i:=0 to memo1.Lines.Count-1 do
mylist.Add(memo1.Lines.Strings[i]);
m:=0;//初始化全局变量m。
end;
procedure TForm1.Button1Click(Sender: TObject);
var
n:integer;
s:string;
begin
edit1.Clear;
if m mylist.Count then//如果未到mylist未尾进行以下步骤。
begin
s:=mylist.Strings[m];//读取一行
n:=pos(‘+’,s);//判断+号的位置
s:=copy(s,n+3,length(s)-(n+2));//复制QQ后面的内容，位置为n+3,长度为length(s)-(n+2)
if n 0 then//如果n不为0，既有+号，则进行下面步骤。
edit1.Text:=s
else//如果n为0，既没有+号，则edit1中注明没有。
edit1.Text:=‘第’+inttostr(m+1)+‘行没有QQ’;
m:=m+1;//m增加1，下次读mylist的下一行
end
else//如果读到了mylist未尾，则进行下面步骤。
begin
m:=0;//将m恢复为0，下次点击button1时，从mylist的第一行开始。
edit1.Text:=‘搜索完毕，点击重新开始！’;
edit1.SetFocus;
end;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
mylist.Free;//释放mylist。
end;
end.
这个函数是我自己写的花了5分钟，在Delhpi7下调试通过！
今晚没时间写COPY了，如果你真的需要就给我发消息吧。
function MyPos(u: string; s: string) : integer;
var
i,j: integer;
begin
Result := 0;
for i := 1 to Length(s) do
begin
if s[i] = u[1] then
begin
j := 1;
while j = length(u) do
begin
if u[j] = s[i+j-1] then
begin
j := j + 1;
continue;
end
else
break;
end;//while
if j Length(u) then
Result := i
else Result := 0;
end; //if
end; //for
end;
这个函数是我自己写的花了5分钟，在Delhpi7下调试通过！
今晚没时间写COPY了，如果你真的需要就给我发消息吧。
关于delphi中pos的用法和delphi pos的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。
