怎么出不来或出来的是乱码？

Question

function EnumerateChildWindows(hWnd: HWND; lParam: LPARAM): BOOL;
var
    pText:array [0..255] of CHAR;
    Text:string;
begin
    Result := TRUE;    
    GetClassName(hwnd,pText,256);
    form1.Memo1.Lines.Add(StrPas(pText));
end;在WIN2000+D7的环境下

Answer 1

pText中的值为
#7, #0, #0, #0, '', '', #0, #0, #156, #244, #18, #0, #1, #0, #0, #0, #240, #246, #18, #0, #247, #176, #223, 'w', #0, #0, #19, #0, #0, #0, #0, #0, #0, #0, #0, #0, #156, #244, #18, #0, #7, #0, #0, #0, #0, #0, #0, #0, #179, #15, #1, #9, '$', #244, #18, #0, #1, #1, #1, #0, 'D', #245, #18, #0, #167, #157, #251, 'w', '8', #183, #248, 'w', '', '', '', '', 'T', #245, #18, #0, #158, #186, #252, 'w', #0, #0, #19, #0, '`', #0, #0, '@', #0, #139, #19, #0, #0, #0, #0, #0, '3', #182, #252, 'w', #0, #0, #0, #0, 'B', #0, 'u', #0, 't', #0, 't', #0, #0, #0, #19, #0, #0, #0, #19, #0, 'F', '9', 'C', #0, '0', #247, #18, #0, #1, #0, #0, #0, #0, '|', #223, 'w', #0, #245, #18, #0, #136, #1, #0, #0, #1, #0, #0, #0, #132, #0, #0, #0, '(', #0, 'e', #0, #136, #21, 'S', #0, #196, #0, #0, #0, #130, #0, #0, #0, #147, #2, #0, #0, #182, #1, #0, #0, 'p', #5, #138, #0, #6, #0, #0, #0, ' ', #129, #228, 'w', ' ', #129, #228, 'w', #236, #248, #18, #0, #217, 'f', #223, 'w', #0, #0, #0, #0, #150, #12, #16, #0, #1, #0, #0, #0, #0, #0, #0, #0, '@', #0, #0, #0, ' ', '}', #19, #0, '\', #245, #18, #0, '8', #247, #18, #0, #12, #150, 'B', #0, #156, #31, #205, #0, #0, #0, #0, #0, #5, #0, #0, #0, #140, #245, #18, #0怎么把它变成STRING？