哪一种方法最实际?(50分)

  • 主题发起人 主题发起人 大福星
  • 开始时间 开始时间

大福星

Unregistered / Unconfirmed
GUEST, unregistred user!
我想对个字符串中的每一个字符进行操作,请问都有些什么方法?哪一种方法最好呢?
请详细说明。
谢谢!
 
for i:=0 to Length(str) do
str...
 
s: string
if s....
 
str 是数组吗?

 
给你写个例子:

function ReplaceChar (const s: string;
ch1: char
ch2: char): string;
var i: integer;
begin
Result := s;
for i := 1 to length (Result) do
if Result = ch1 then
Result := ch2;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
S :String;
begin
S :='asdf';
S :=ReplaceChar(S,S[1],S[4]);//以f替换a
ShowMessage(S);
end;
 
字符串当数组来用
 
TO 大福星:
比我还懒呀,我都算不喜欢看书的了[:D]
 
多人接受答案了。
 
后退
顶部