各位:

我想問如何把一個unicode text file (e.g unicode.txt) 用coding 把它轉成一個Ansi text file?
有Free component 可以做到嗎, 還是有其他方法?

註: 我用的是delphi5

Thanks

發問前請搜尋

------
不論是否我發的文，在能力範圍皆很樂意為大家回答問題。
為了補我的能力不足之處，以及讓答案可以被重複的使用，希望大家能儘量以公開的方式問問題。
在引述到我的文時自然會儘量替各位想辦法，謝謝大家！

多謝Coffee 提點...我找到這個好像比較適合我
http://delphi.ktop.com.tw/board.php?cid=168&fid=912&tid=88022

但iconv它是 C coding , 有沒有for delphi 的... 因為我急著要用, 所以可否請coffee多一點提點....謝謝

Search for WideCharToMultiByte
if it does not work, just try to import the code you need.

------
不論是否我發的文，在能力範圍皆很樂意為大家回答問題。
為了補我的能力不足之處，以及讓答案可以被重複的使用，希望大家能儘量以公開的方式問問題。
在引述到我的文時自然會儘量替各位想辦法，謝謝大家！

編輯記錄

多謝Coffee再次提點, 我這樣寫 但在memo1裏最尾一行會出現亂碼，我在那裏出現問題?

[code delphi]
procedure TForm1.Button1Click(Sender: TObject);
var
pBuffer: PByte;
pwChr: PWideChar;
strmText: TFileStream;
sText: string;
begin
sText := Edit1.text;
strmText := TFileStream.Create(sText, fmOpenRead);
GetMem(pBuffer, strmText.Size);
try
strmText.Read(pBuffer^, strmText.Size);
pwChr:= PWideChar(pBuffer);
Inc(pwChr,1);
sText :=WideStringToStringEx(pwChr,950);
Memo1.lines.Add(sText);
finally
FreeMem(pBuffer);
strmText.Free;
end;
end;
function WideStringToStringEx(const WS: WideString; CodePage: Word): String;
var
L: Integer;
begin
L := WideCharToMultiByte(CodePage, 0, PWideChar(WS), -1, nil, 0, nil,
nil);
SetLength(Result, L-1);
WideCharToMultiByte(CodePage, 0, PWideChar(WS), -1, PChar(Result), L - 1,nil, nil);
end;

[/code]

Check your code carefully, and you may know why.

------
不論是否我發的文，在能力範圍皆很樂意為大家回答問題。
為了補我的能力不足之處，以及讓答案可以被重複的使用，希望大家能儘量以公開的方式問問題。
在引述到我的文時自然會儘量替各位想辦法，謝謝大家！

真不好意思coffee...小弟愚昧... 能否指點我的錯處在那裏?

我試過修改了第15行 ，都會在最尾一行出現亂碼......點解?
e.g. 我個text file 裏有這一行
abc adfdf dfdfO?D?D?




[code delphi]
procedure TForm1.Button1Click(Sender: TObject);
var
pBuffer: PByte;
pwChr: PWideChar;
strmText: TFileStream;
sText: string;
begin
sText := Edit1.text;
strmText := TFileStream.Create(sText, fmOpenRead);
GetMem(pBuffer, strmText.Size);
try
strmText.Read(pBuffer^, strmText.Size);
pwChr := PWideChar(pBuffer);
Inc(pwChr, 1);
sText :=WideCharToString(pwChr);
Memo1.lines.Add(sText);
showmessage('success');
finally
FreeMem(pBuffer);
strmText.Free;
end;
end;
[/code]

編輯記錄