求助，字符串处理，不够可以加分

Question

S := tomcat@linux;
vpos := Post('@', S)得到‘@’的位置
S1 := copy(S, 1, vPos)
S2 := copy(S, vPos + 1, Length(S));

Answer 1

var
  i: Integer;
  a, b, c: string;
begin
a := 'tomcat@linux';
i := Pos('@', a);
b := Copy(a, 1, i - 1);
c := Copy(a, i + 1, Length(a) - i);

Answer 2

s := 'tomcat@linux';
iPos := Pos('@', s);
iLength := Length(s);s1 := Copy(iPos, iPos - 1, s); // tomcat
s2 := Copy(iPos + 1, iLength - iPos, s); // linux

Answer 3

var
  a, b, c:string;
begin
a := 'tomcat@linux';
b := copy(a,1,pos('@',a) - 1);
c := copy(a,pos('@',a) + 1, Length(a));
showmessage(b);
showmessage(c);

Answer 4

sorry，我把参数记错了，应该是楼上几位说的

Answer 5

楼上好像有问题！
var s,s1,s2:string;
vpos:integer;
begin
s:='tomcat@linux';
vPos:=pos('@',s);
s1:=copy(s,1,vPos-1);
s2:=copy(s,vPos+1,length(s)-vPos);

Answer 6

faint～～
才一会没刷新就这样了？？？

Answer 7

以下是我使用的一个函数
Name:=GetText('[','Name','函数名[FuncName]');//Name='函数名'
ID:=GetText('[','ID','函数名[FuncName]');    //ID='FuncName'
你可以稍加改动就行了function GetText(chr: String; IDorName,NodeText: String): String;
var
  iPos: Integer;
  sNodeText: String;
begin
  sNodeText:=Trim(NodeText);
  iPos:= Pos(chr,sNodeText);
  if iPos<>0 then
  begin
    if IDorName='ID' then sNodeText:= Copy(sNodeText,iPos+1,Length(sNodeText)-iPos-1);
    if IDorName='Name' then sNodeText:= Copy(sNodeText,0,iPos-1);
  end else sNodeText:='';
  result:= sNodeText;
end;

Answer 8

谢谢大家，小弟没学过PASCAL
对pascal的函数很不熟悉！
谢谢

Answer 9

AAA1: 
  var 
    a,  b,  c:string; 
begin 
a  :=  'tomcat@linux'; 
b  :=  copy(a,1,pos('@',a)  -  1); 
c  :=  copy(a,pos('@',a)  +  1,  Length(a)); 
showmessage(b); 
showmessage(c); 
AAA2: 
  S  :=  tomcat@linux; 
vpos  :=  Post('@',  S)得到‘@’的位置 
S1  :=  copy(S,  1,  vPos) 
S2  :=  copy(S,  vPos  +  1,  Length(S)); 
 自己选择吧，也不过这几种。

Answer 10

第一贴： lvloj() 的帖子的S1有问题呀