查找字符(20分)

各位大虾：
[]用delphi控制文本文件或word文件，比如打开文本文件后要查找某个字符
再统计字符出现次数应如何实现？？？？
分少不好意思！！！

怎样打开一个文本文件或word文件然后统计其中的字符并查找其中的特定字符。急！！！

Word文件就不知道了.
文本文件可以一行行的读出来,然后判断.
Try this:

function PosInFile(Str,FileName:string):integer;
var
Buffer:array[0..1023]of char;
BufPtr,BufEnd:integer;
F:File;
Index:integer;
Increment:integer;
c:char;
function NextChar:char;
begin
if BufPtr>=BufEnd then
begin
BlockRead(F,Buffer,1024,BufEnd);
BufPtr := 0;
end;
Result := Buffer[BufPtr];
Inc(BufPtr);
end;

begin
Result := -1;
AssignFile(F,FileName);
Reset(F,1);
BufPtr:=0;
BufEnd:=0;
Index := 0;
Increment := 1;
repeat
c:=NextChar;
if c=Str[Increment] then
Inc(Increment)
else
begin
Inc(Index,Increment);
Increment := 1;
end;
if Increment=(Length(Str)+1) then
begin
Result := Index;
Break;
end;
until BufEnd = 0;
CloseFile(F);

to bswilson:
请你加上注释好吗？小弟水平比较菜解释一下算法好吗？

接受答案了.