？？怎么把一个字符串里面的一个子字符串替换成大写或小写？？

Question

谢谢 
希望有源码:

Answer 1

首部 function UpperCase(const S: string): string; $[SysUtils.pas
功能 返回字符串S的大写形式
说明 非小写字符不处理
参考 procedure System.SetLength
例子 Edit2.Text := UpperCase(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━ 
首部 function LowerCase(const S: string): string; $[SysUtils.pas
功能 返回字符串S的小写形式
说明 非大写字符不处理
参考 procedure System.SetLength
例子 Edit2.Text := LowerCase(Edit1.Text);

Answer 2

如果是其中的一部分的话，先用Pos定位
帮你写了一个，function Tran(subS, str: string; f: boolean): string;
用法为Tran('abc', 'abcdefg', true)，最后一个参数，如果要大写就用true，小写用falseprocedure TForm1.Button3Click(Sender: TObject);
function Tran(subS, str: string; f: boolean): string;
begin
  if Pos(subS, str)<=0 then Result := str;
  if f then
    Result := Copy(str, 1, Pos(subS, str)-1) + UpperCase(subS) + Copy(str, Pos(subS, str)+Length(subS), Length(str))
  else
    Result := Copy(str, 1, Pos(subS, str)-1) + LowerCase(subS) + Copy(str, Pos(subS, str)+Length(subS), Length(str));
end;
begin
  ShowMessage(Tran('abc', 'abcdefg', true));
end;

Answer 3

改一下：procedure TForm1.Button3Click(Sender: TObject);
function Tran(subS, str: string; f: boolean): string;
begin
  Result := str;
  if Pos(subS, str)<=0 then exit;
  if f then
    Result := Copy(str, 1, Pos(subS, str)-1) + UpperCase(subS) + Copy(str, Pos(subS, str)+Length(subS), Length(str))
  else
    Result := Copy(str, 1, Pos(subS, str)-1) + LowerCase(subS) + Copy(str, Pos(subS, str)+Length(subS), Length(str));
end;
begin
  ShowMessage(Tran('Abc', 'AbcDefg', false));
end;

Answer 4

s:='aslfkjalskdfjweoriujfasdl;fkj';
s:=AnsiReplaceText(s,copy(s,3,5),UpperCase(copy(s,3,5)));