delphi读取文本文件的问题

[hn_tzy]

procedure TForm1.Button1Click(Sender: TObject);
var
fName:string;
sqlFile:TextFile;
sqlText:string;
begin
if (self.OpenDialog1.Execute)then
fName := self.OpenDialog1.FileName
else
Exit;
AssignFile(sqlFile,fName);
Reset(sqlFile);
while not Eof(sqlFile) do
begin
Readln(sqlFile,sqlText);
self.Memo1.Lines.Add(sqlText)
end;
CloseFile(sqlFile);
end;

我用上面过程读取文件时,中文是乱码,但是用记事本和C#读出时却正常,请问高手是什么原因,读取的文件是TXT文件

[andyzhou1101]

跟memo的字体设置有关

[keyz]

文件可能是utf存储的。试试：

var
fName:string;
sqlFile:TextFile;
sqlText:string;
ws:widestring;
begin
if (self.OpenDialog1.Execute)then
fName := self.OpenDialog1.FileName
else
Exit;
AssignFile(sqlFile,fName);
Reset(sqlFile);
while not Eof(sqlFile) do
begin
Readln(sqlFile,sqlText);
ws:=sqltext;
self.Memo1.Lines.Add(ws);
end;
CloseFile(sqlFile);
end;

[wudi_1982]

字符集问题，你用记事本打开之后，然后点另存，看看是什么字符集，估计是unicode。

实现unicode文件的读取，unicode->Ansi

function GetFileText(const FileName: string): string;
var
hFile: DWORD;
iSize: DWORD;
sTemp: string;
begin
// 打开文件
hFile := CreateFile(PChar(FileName), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
// 文件大小
iSize := GetFileSize(hFile, nil);
// 申请内存
SetLength(sTemp, iSize + 2);
// 读入文件
ReadFile(hFile, sTemp[1], iSize, iSize, nil);
// 关闭文件
CloseHandle(hFile);
// 置结束符
sTemp[iSize + 1] := #0;
sTemp[iSize + 2] := #0;
// 编码格式
if (sTemp[1] = #$FF) and (sTemp[2] = #$FE) then // UNICODE
begin
// 申请内存
SetLength(Result, iSize);
// 转换编码
WideCharToMultiByte(CP_ACP, 0, PWideChar(@sTemp[3]), -1, @Result[1], iSize, nil, nil);
end else
Result := sTemp;
// 去掉多余字符
Result := string(PChar(Result));
end;

[zhou13]

同上（2）
文件可能是utf存储的。试试：
。。。

[李白丢了墨镜]

路過，雲裏霧裏,學習。