문자와 UTF-8 파일에서 델파이 2010

Question

내가 문자를 교체하려고 (진수 값 197)를 사용하여 UTF-8 파일에서 유니 코드 문자를 교체 (진수 값 65) 그것은 문자열

SS := TStringStream.Create(ParamStr1, TEncoding.UTF8); 
SS.LoadFromFile(ParamStr1); 
//S:= SS.DataString; 
//ShowMessage(S); 

그러나, 내가 어떻게 65 모든 197 년대를 교체하는 (즉, 비록 할 필요가 없습니다 수 있습니다), 그리고 UTF-8로 다시 밖으로 저장?

SS.SaveToFile(ParamStr2); 
SS.Free; 

는 -------------- EDIT ----------------

reader:= TStreamReader.Create(ParamStr1, TEncoding.UTF8); 
writer:= TStreamWriter.Create(ParamStr2, False, TEncoding.UTF8); 

while not Reader.EndOfStream do 
begin 
    S:= reader.ReadLine; 
    for I:= 1 to Length(S) do 
    begin 
    if Ord(S[I]) = 350 then 
    begin 
    Delete(S,I,1); 
    Insert('A',S,I); 
    end; 
    end; 
    writer.Write(S + #13#10); 
end; 

writer.Free; 
reader.Free; 

Answer 1

진수 197 헥사이다 C5 , 십진수 65은 16 진수 41입니다.

C5은 유효한 UTF-8 옥텟 자체가 아니지만 41입니다. 그래서 실제로는 유니 코드 코드 포인트를 U+00C5 LATIN CAPITAL LETTER A WITH RING ABOVE 및 U+0041 LATIN CAPITAL LETTER A 대신 사용한다고 가정해야합니다.

U+00C5은 C3 85으로 UTF-8로 인코딩되고 U+0041은 41으로 인코딩됩니다. 당신이 요구하고있는 것을하기 위해 UTF-8을 해독하고 코드 포인트를 대체 한 다음 UTF-8로 다시 인코딩해야합니다.

reader := TStreamReader.Create(ParamStr1, TEncoding.UTF8); 
writer := TStreamWriter.Create(ParamStr2, False, TEncoding.UTF8); 

while not Reader.EndOfStream do 
begin 
    S := reader.ReadLine; 
    S := StringReplace(S, 'Å', 'A', [rfReplaceAll]); 
    writer.WriteLine(S); 
end; 

writer.Free; 
reader.Free; 

이 업데이트 : 당신이 U+00C5 LATIN CAPITAL LETTER A WITH RING ABOVE을 코드 포인트 유니 코드에 실제로 관심이없는 것처럼 다른 의견에 따라, 보이는 것이 아니라

SS := TStringStream.Create('', TEncoding.UTF8); 
SS.LoadFromFile(ParamStr1); 

S := StringReplace(SS.DataString, 'Å', 'A', [rfReplaceAll]); 

SS2 := TStringString.Create(S, TEncoding.UTF8); 
SS2.SaveToFile(ParamStr2); 

SS2.Free; 
SS.Free; 

또는 : StringReplace()는 예를 들면, 그것을 위해 잘 작동합니다 U+015E LATIN CAPITAL LETTER S WITH CEDILLA 대신 UTF-8로 C5 9E으로 인코딩되어 있습니다.

가

S := StringReplace(S, 'Ş', 'A', [rfReplaceAll]);