大家好, 在DBGrid上遇到一個問題請教, 因為DBGrid秀出某些欄位時為memo, 所以我搜尋了網路上的方法
利用GetText, 使該欄位可正常秀出, 不過原本在mysql裡面是utf8的編碼, 輸出後中文都變成亂碼...
請問大哥們該如何解決^^"

[code delphi]
procedure TForm7.ADOTable1componentGetText(Sender: TField; var Text: string;
DisplayText: Boolean);
begin
text:=trim(Sender.asstring);
displaytext:=true;
end;
[/code]

 試試看
例:
WideStringToString(cText, 950);

謝謝大大回答, 改成這樣依然還是亂碼
[code delphi]
function WideStringToString(const WS: WideString; CodePage: Word): string;
var
InputLength, OutputLength: Integer;
begin
InputLength := Length(WS);
OutputLength := WideCharToMultiByte(CodePage, 0, PWideChar(WS), InputLength, nil, 0, nil, nil);
SetLength(Result, OutputLength);
WideCharToMultiByte(CodePage, 0, PWideChar(WS), InputLength, PAnsiChar(string(Result)), OutputLength, nil, nil);
end;

procedure TForm5.Table1descriptionGetText(Sender: TField; var Text: string;
DisplayText: Boolean);
begin
text := WideStringToString(Sender.AsString,950);
displaytext:=true;
end;
[/code]

編輯記錄