急！！！！！！！！！如何取得一个字符串特定位置的字符和修改一个字符串特定位置的字符的值

Question

如何取得一个字符串特定位置的字符和修改一个字符串特定位置的字符的值 

Answer 1

使用copy函数可以完成你要求的功能，下面的两段程序分别是取出字符串中第三位字符和修改字符串中第三位字符的代码。
procedure TForm1.Button1Click(Sender: TObject);
var s:string;
    a:string;
begin
  s:='1234567';
  a:=copy(s,3,1);
  showmessage(a);
end;procedure TForm1.Button2Click(Sender: TObject);
var s,a:string;
begin
  s:='1244567';
  a:='3';
  s:=copy(s,1,2)+a+copy(s,4,4);
  showmessage(s);
end;

Answer 2

字符串是个数组，你只要用S[i]就可以得到或者修改第i个字符了

Answer 3

var
  s: string;
begin
  s := '123456';
  Delete(s, 3, 1);
  Edit1.Text := s;
  Insert('3', s, 3);
  Edit1.Text := s;
end;

Answer 4

s := 'abcdefg';
如果想把d该为D，只需要s[4] := 'D',
s[0]存储的是该字符串的长度；

Answer 5

var
  sGiven : string;
  sFound : string;
  sNew : string;
  nIndex : integer;
begin
  nIndex := pos(cFound,sGiven);
  if pos <>0 then
    sGiven[nIndex] := sNew;
end;

Answer 6

procedure TForm1.Button3Click(Sender: TObject);
var
  str: string;
begin
  str := 'abcdefg';
  if str[3] = 'c' then
  begin
    ;
  end;  str[3]:=char('d');
end;