《delphi中pos的用法》delphi pos

现在的pos机更新太快，pos机也是免费更新的，如果你的pos机扣费不正常、费率上调了，均可以来我司免费办一台不涨价的pos机，我司在线客服：18696377099【微电】

本篇文章给大家谈谈delphi中pos的用法，以及delphi pos对应的知识点，希望对各位有所帮助，办理pos机,申请pos机,24小时秒到pos机请添加微信aachen1009。【免费包邮不要一分钱押金】

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的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。