各位大大好:
我使用DELPHI 7也安裝TntUnicodeControls元件，Unicode可輸入，因某種因素須判定資料
是否含有Unicode，要如何判斷?
謝謝!

------
mcho

非常简单！
[code]
function CheckUnicodeIn(swSou:WideString):Boolean;
Var

sString := swSou;
Result := Pos('?', sString)>0;

end;
[/code]

我也是這樣判斷，但是本身是'?'時也會被誤認為Unicode!

------
mcho

在Unicode的Component上輸入的就一定是Unicode，即使是轉失敗了，還是Unicode，
因為它的type還是WideString，即使是?
如果你是要判讀文字檔那又是另一回事了

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

如果你所指的Unicode字元是指當Ansi字元時是屬於雙位元字節的話, 這相當易辦.
因為Unicode的前256字元的值, 與單字節字元的值是相同的, 所以只要檢查WideString中每個字元的值, 當中是否有字元的值大於255, 便可判斷這是一個雙位元字節.
而程式的寫法可以參考system.UnicodeToUtf8.

UnicodeToUtf8我看過了，但我不知道如何用?可否寫個使用UnicodeToUtf8的範例!
謝謝!

------
mcho

你可以直接使用以下程式測試是否有widechar.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, TntStdCtrls;
type
TForm1 = class(TForm)
TntEdit1: TTntEdit;
TntButton1: TTntButton;
procedure TntButton1Click(Sender: TObject);
private
{ Private declarations }
function hasWideChar(WS: WideString): Boolean;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function TForm1.hasWideChar(WS: WideString): Boolean;
var I: Integer;
begin
Result := False;
for I := 1 to Length(WS) do begin
if Cardinal(WS[I]) > 255 then begin
Result := True;
Exit;
end;
end;
end;
procedure TForm1.TntButton1Click(Sender: TObject);
begin
if hasWideChar(TntEdit1.Text) then
ShowMessage('yes')
else
ShowMessage('No');
end;
end.

我試過了，好像只能判定中英字而已，也就是說只要給非Unicode的中文字也是yes
謝謝!

------
mcho

John Wong :你好!
謝謝你! 我想到一個解決方法，就是先引用你的方式判斷如是Yes時再利用Kmlsoft的方法判斷是 "?"即為Unicode，我的方法是否可行?
這問題已經懸好久，希望你能不吝賜教!

------
mcho

<textarea cols="60" rows="10" class="delphi" name="code">uses TntSysUtils;
procedure TForm1.TntButton1Click(Sender: TObject);
begin
if IsWideStringMappableToAnsi(TntEdit1.Text) then
ShowMessage('Ansi')
else
ShowMessage('Unicode');
end;
</textarea>

------
{"name":{["賈氏柏"]}}

Hi! Jasper_dale:你好!
謝謝你!本題應歸你得分!

------
mcho