這段代碼是我網路上找到的，在delphi7上運行正常無亂碼，但在d2010上卻怎么除錯都不行，請高手幫忙查查，怎么處理這個亂碼問題。我搜資料得到的資訊是D2010處理中文內容是1個自己，但D7是2個自己。
（另說明，這段代碼好像在回傳值沒有中文情況下，也是亂碼）
procedure _AddInfo(mmInfo: TMemo; S: string; var line: string);
var
I, p: Integer;
begin
if mmInfo.Lines.Count > 800 then
mmInfo.Lines.Clear;
for I := 0 to length(S) - 1 do
if S[I] = #13 then
S[I] := ' ';
line := line + S;
p := Pos(#10, line);
if p > 0 then
begin
// mmInfo.Lines.Add(Copy(line, 1, p - 1));
mmInfo.Lines.Add(Copy(line, 1, p - 1));
line := Copy(line, p + 1, length(line) - p);
end;
end;
procedure CmdExecAndView(FileName: PChar; memo: TMemo);
var
hReadPipe, hWritePipe: THandle;
si: STARTUPINFO;
lsa: SECURITY_ATTRIBUTES;
pi: PROCESS_INFORMATION;
//cchReadBuffer: WCHAR;
cchReadBuffer: dword;
ph: PChar;
fname: PChar;
line, readLine: string;
begin
fname := allocmem(1024);
ph := allocmem(1024);
lsa.nLength := SizeOf(SECURITY_ATTRIBUTES);
lsa.lpSecurityDescriptor := nil;
lsa.bInheritHandle := true;
if CreatePipe(hReadPipe, hWritePipe, @lsa, 0) = False then
Exit;
FillChar(si, SizeOf(STARTUPINFO), 0);
si.cb := SizeOf(STARTUPINFO);
si.dwFlags := (STARTF_USESTDHANDLES or STARTF_USESHOWWINDOW);
si.wShowWindow := SW_HIDE;
si.hStdOutput := hWritePipe;
si.hStdError := hWritePipe;
StrPCopy(fname, FileName);
if CreateProcess(nil, fname, nil, nil, true, 0, nil, nil, si, pi) = False then
begin
FreeMem(ph);
FreeMem(fname);
Exit;
end;
CloseHandle(hWritePipe);
while (true) do
begin
if not PeekNamedPipe(hReadPipe, ph, 1, @cchReadBuffer, nil, nil) then
break;
if cchReadBuffer <> 0 then
begin
if ReadFile(hReadPipe, ph^, 4096, cchReadBuffer, nil) = False then
break;
ph[cchReadBuffer] := chr(0);
memo.Lines.Add(ph);
//_AddInfo(memo, ph, line);
end
else if (WaitForSingleObject(pi.hProcess, 0) = WAIT_OBJECT_0) then
break;
Application.ProcessMessages;
Sleep(200);
end;
ph[cchReadBuffer] := chr(0);
memo.Lines.Add(ph);
//_AddInfo(memo, ph, line);
CloseHandle(hReadPipe);
CloseHandle(pi.hThread);
CloseHandle(pi.hProcess);
FreeMem(ph);
FreeMem(fname);
end;
uj5u.com熱心網友回復：
這要看你具體執行的程式回傳的字符編碼了。也許是UTF-8之類的uj5u.com熱心網友回復：
怎么看回傳的字符編碼？
我測驗簡單的echo 得到都是亂碼
uj5u.com熱心網友回復：
批量替換String替換為AnsiString
PChar替換為PAnsiChar
uj5u.com熱心網友回復：
不需要替換.
在單元上面加一個
type
string = ansistring;
pchar = pansichar;
即可
uj5u.com熱心網友回復：
pchar可以這么干,string不行的
uj5u.com熱心網友回復：
行不行你試過就知道
uj5u.com熱心網友回復：
當然試過了才來回帖的。
uj5u.com熱心網友回復：
坐等可以還是不可以uj5u.com熱心網友回復：
typestring = ansistring;
這樣是不可以的吧，string是保留字，保留字如何能重定義，又不是c\c++
不管是高版本還是低版本的delphi，從前俺就試過了，看到這貼俺又再在d7和d2009,xe中都試了試，也是不能通過編譯
要string自動識別AnsiString或unicodestring\widestring 那是靠條件編譯來實作的吧
{$IFDEF UNICODE}
{$EXTERNALSYM AnsiChar 'char' } {$OBJTYPENAME AnsiChar 'Bc'}
{$IFDEF LINUX}
{$NODEFINE Char 'WideChar' } {$OBJTYPENAME Char 'Bus'} { unsigned short }
{-OBJTYPENAME Char 'BCs'} { char16_t }
{$ELSE}
{$NODEFINE Char 'WideChar' } {$OBJTYPENAME Char 'Bb'} { wchar_t }
{-OBJTYPENAME Char 'BCs'} { char16_t }
{$ENDIF}
{$NODEFINE string 'UnicodeString' } {$OBJTYPENAME string 'NUnicodeString'} { defined in vcl/ustring.h }
{-NODEFINE string 'String' } {$OBJTYPENAME string 'NUnicodeString'} { defined in vcl/ustring.h }
{$NODEFINE AnsiString } { defined in vcl/dstring.h }
{$NODEFINE WideString } { defined in vcl/wstring.h }
{$NODEFINE PChar } { alias of PWideChar }
{$NODEFINE WideChar } { alias of Char }
{$NODEFINE UnicodeString} { alias of string }
{$ELSE}
{$EXTERNALSYM Char 'char' } {$OBJTYPENAME Char 'Bc'}
{$IFDEF LINUX}
{$NODEFINE WideChar 'WideChar' } {$OBJTYPENAME WideChar 'Bus'} { unsigned short }
{-OBJTYPENAME WideChar 'BCs'} { char16_t }
{$ELSE}
{$NODEFINE WideChar 'WideChar' } {$OBJTYPENAME WideChar 'Bb'} { wchar_t }
{-OBJTYPENAME WideChar 'BCs'} { char16_t }
{$ENDIF}
{$NODEFINE string 'AnsiString' } { defined in vcl/dstring.h }
{-NODEFINE string 'String' } { defined in vcl/dstring.h }
{$NODEFINE WideString } { defined in vcl/wstring.h }
{$NODEFINE UnicodeString} { defined in vcl/ustring.h }
{$NODEFINE PChar } { alias of PAnsiChar }
{$NODEFINE AnsiChar } { alias of Char }
{$NODEFINE AnsiString } { alias of string }
{$ENDIF}
uj5u.com熱心網友回復：
是否是有啥編譯開關可以設定？等武松大俠指導指導，睡覺先
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/123448.html
標籤：語言基礎/算法/系統設計