这个程序要怎么写啊？

Question

while Pos('.', Str) > 0 do
delete(str, Pos('.', Str),length(str) - Pos('.', Str));

Answer 1

进一步问：如果是中文字符呢？可以用Pos定位么？

Answer 2

Copy(str,0,Pos('.',str));
谁把'.'放在后面的像这样pos(str,'.'),兄弟应该回去看一看帮助了！

Answer 3

还有在字符串中，第一个字符的索引是0，不是你们所说的1
Pos的返回值是返回字串在字符串的出现的位置，不是从0开始，是从1开始；

Answer 4

还有在字符串中，第一个字符的索引是0，不是你们所说的1
Pos的返回值是返回字串在字符串的出现的位置，不是从0开始，是从1开始；
0是没有字串
 
 

Answer 5

function mycopy(s,s1:String):String;
begin
  Result:='';
  if Pos(s1,s)<>0 then
    Result:=Copy(s,1,Pos(s1,s));
end;
//在Delphi中字符串是从1开始的。
//在上述函数中s是字符串（如“myfile.db”），S1是所指定的字符串（“.”）

Answer 6

Pos和Copy可以处理中文，但要注意一下别弄出半个中文字来。