Str字符如何转成Char??

Question

不会巴，又有人问？
如果s:string;
那么s[1],s[2]...等都是Char

Answer 1

将它添到TStringList中,再用它的SaveAs保存.

Answer 2

胖胖，你的方法有问题的
看这个实例，这才是正确的方法
function UpperCase(const S: string): string;
var
  Ch: Char;
  L: Integer;
  Source, Dest: PChar;
begin
  L := Length(S);
  SetLength(Result, L);
  Source := Pointer(S);
  Dest := Pointer(Result);
  while L <> 0 do
  begin
    Ch := Source^;
    if (Ch >= 'a') and (Ch <= 'z') then Dec(Ch, 32);
    Dest^ := Ch;
    Inc(Source);
    Inc(Dest);
    Dec(L);
  end;
end;要将string写入文本文件实例如下
  AssignFile(ToF, 't3.txt'); { Open output file }
  Rewrite(ToF); { Record size = 1 }
  writeln(ToF, Buf);//buf为string类型
  CloseFile(FromF);