for ... in ...改写成for循环

Question

求教谢谢
原函数
function EncodePassword(Value: string): string;var  Found: Boolean;  ch: Char;begin  Found := False;  for ch in Value do  begin    Found := {$IFDEF VCL120_OR_HIGHER}CharInSet(ch, CConnStrDelimiter){$ELSE}ch in CConnStrDelimiter{$ENDIF};    if Found then      Break;  end;  if Found then    Result := '#' + CILib.Utils.StrToHex(Value)  else    Result := Value;end;

Answer 1

for i:= 1 to length(Value) do

Answer 2

for后的 ch 改成 Value[i]

Answer 3

function EncodePassword(Value: string): string;var  Found: Boolean;  ch: Char;
  i:Integer;
begin  Found := False;
  for i:=1 to Length(Value) do
  begin  Found := {$IFDEF VCL120_OR_HIGHER}CharInSet(Value[i], CConnStrDelimiter){$ELSE}Value[i] in CConnStrDelimiter{$ENDIF};  if Found then  Break;  end;  if Found then  Result := '#' + CILib.Utils.StrToHex(Value)  else  Result := Value;end;

Answer 4

bdmh天天都在搶分，你不知道嗎

Answer 5

是不是ch: Char也可以不用了？