在Delphi中，字符串查找 函数
Delphi提供的字符串函数里有一个Pos函数，它的定义是：
function Pos(Substr: string; S: string): Integer;
它的作用是在字符串S中查找字符串Substr，返回值是Substr在S中第一次出现的位置，如果没有找到，返回值为0。
使用pos函数来查找字符第一次出现的位置
var
str1:string;
i,j:integer;
begin
str1:='dsf4654f6<ds>ad' ;
j:=pos('<',str1);//在字符串str1中查找"<"
if j<>0 then //得到的j是字符串中出现的位置，是整型
showmessage('<'+'在第'+inttostr(j)+'个位置'); //第十个位置
end;
===============================================
首部 function StrPos(const Str1, Str2: PChar): PChar; $[SysUtils.pas
功能 返回指针字符串Str2在Str1中第一个出现的地址
说明 没有找到则返回空指针;StrPos('12345', '3') = '345'
参考 <NULL>
例子 Edit3.Text := StrPos(PChar(Edit1.Text), PChar(Edit2.Text));
===================================================
StrScan : 返回一个字符在一个 PChar 串中第一次出现的位置指针;
StrRScan : 返回一个字符在一个 PChar 串中最后一次出现的位置指针;
StrPos : 返回一个 PChar 串在另一个 PChar 串中第一次出现的位置指针.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
//StrScan、StrRScan:
procedure TForm1.Button1Click(Sender: TObject);
var
p: PChar;
str: string;
begin
str := 'ABCBBBCBA';
p := StrScan(PChar(str), 'B');
ShowMessage(p); {BCBBBCBA}
p := StrRScan(PChar(str), 'B');
ShowMessage(p); {BA}
end;
//StrPos:
procedure TForm1.Button2Click(Sender: TObject);
var
p: PChar;
str: string;
begin
str := '123456789';
p := StrPos(PChar(str), '456');
ShowMessage(p); {456789}
end;
end.
相关文档：
在编制了一个应用程序后的维护阶段，我们会面临给应用程序升级的工作.无疑，手工升级的工作是十分繁琐的，你可能会需要到用户的机器上去更新文件.可是，如果能编一个自动升级程序，放在网络上，让用户下载，只需执行一下就完成升级工作，不是很方便吗？其实，用Delphi可以很方便地编制出这样一个的程序.
以下是我们的例子� ......
实际上这个名字叫[SDL & Delphi]也不成问题， 因为除了Delphi似乎也没有哪个流行的开发工具用的是Pascal语言。
SDL其实我也只学了不到两星期而已。刚开始我想试图用VC，因为这样资料最全，也很好找，但太久没用VC现在看C的代码有点困难（->这个算符是干吗的来着……）。其实作为一个专业不是计算机的人 ......
一些基础的问题我不再赘述了，查阅帮助文档（Object Pascal SDL Doc.chm）显然比在这看我胡扯合适得多。那些画像素，获取像素信息，显示BMP文件多数时候只要把那些代码复制过来基本就能工作。下面说的是怎样显示中文。
其实SDL加上ttf支持时（需要将对应的dll文件添加到工程目录里）是完全可以显示中文的，简体和繁体都没� ......
技术交流,DH讲解. 记得很早之前我就说过,数组和结构体在内存中其实一样的,他们都是连续分布的.
例如: TMyStruct = record
A,B,C:Integer;
end;
T3IntArray = array[0..2]of Integer;
这两个都占12字节,而且TMyStruct.A就是T3IntArray[0].
而我们知道在访问数组中某个元素的时候,只是在� ......
使用delphi多年,前些天忽然遇到不会string转pbyte,很是失落,此时对于编程基本功的重要性深有体会.这其中用到MOVE函数.
使用delphi多年,前些天忽然遇到不会string转pbyte,很是失落,此时对于编程基本功的重要性深有体会.这其中用到MOVE函数.
搞了好一会才搞明白其用法.所以想贴出来帮助需要帮助的人.
var
&nb ......
