请问取得一个字符在一个字符串中的位置的函数。。(100分)

请问取得一个字符在一个字符串中的位置的函数。。

p := Pos('d', 'hello world');
ShowMessage(IntToStr(p));

function Pos(Substr: string
S: string): Integer;
在Delphi7中还有
function PosEx(const SubStr, S: string
Offset: Cardinal = 1): Integer;

就是，就是，楼上说得都安呀

程序大致应该是:

procedure TForm1.Button1Click(Sender: TObject);
var
FoundAt: LongInt;
StartPos, ToEnd: Integer;
position:string;
i:integer;
begin
with RichEdit1 do
begin
StartPos := 0;

ToEnd := Length(Text);

FoundAt := FindText(edit1.text, StartPos, ToEnd, [stMatchCase]);

while FoundAt <> -1 do
begin
SelStart := FoundAt;
position:=position+' '+inttostr(foundat);
SelLength := Length(edit1.text);
StartPos := SelStart + SelLength;

ToEnd := Length(Text) - StartPos;

FoundAt := FindText(edit1.text, StartPos, ToEnd, [stMatchCase]);

end;
label2.caption:=position;
end;
end;

Pos

p := AnsiPos('d', 'hello world');
这个也可：function AnsiPos(const Substr, S: string): Integer;

pos(sub,s)

pos(sub,string)

pos