請教各位前輩：
原新在Delphi7運作的很好的DBGRID Tiltle Click Sort 最近用Delphi XE2嘗試要要改寫看看
發現在這一行：
[code delphi]
if (Pos(Column.Field.FieldName, Sort) = 1) and (Pos(' DESC', Sort) = 0)
[/code]

會有如下訊息錯誤：
[DCC Error] Unit1.pas(85): E2251 Ambiguous overloaded call to 'Pos'
System.pas(25050): Related method: function Pos(const string; const string): Integer;
System.pas(25154): Related method: function Pos(const WideString; const WideString): Integer;
不知道要怎麼改寫，知道是XE2改成WideString的緣故，但要怎麼下手呢？懇請前輩指引一下方向，謝謝!

------
「人們所以覺得寂寞，是因為他們會築牆，卻不會搭橋。」
程式寫的越久，卻發現自己越來越不會寫程式！

自己試出答案了
[code delphi]
if (Pos(WideString(Column.Field.FieldName), Sort) = 1) and (Pos(WideString(' DESC'), Sort) = 0)
[/code]

------
「人們所以覺得寂寞，是因為他們會築牆，卻不會搭橋。」
程式寫的越久，卻發現自己越來越不會寫程式！

[code delphi]
function WidePos(const F: WideString; const S: WideString; const StartIndex: Integer = 1): Integer;
var
P: PWideChar;
I, L: Integer;
begin
L := Length(S);
if (StartIndex > L) or (StartIndex < 1) then
begin
Result := 0;
Exit;
end;
P := Pointer(S);
Inc(P, StartIndex - 1);
for I := StartIndex to L do
if WidePMatch(F, P) then
begin
Result := I;
Exit;
end else
Inc(P);
Result := 0;
end;
[/code]





===================引 用 g9221712 文 章===================
自己試出答案了
[code delphi]
if (Pos(WideString(Column.Field.FieldName), Sort) = 1) and (Pos(WideString(' DESC'), Sort) = 0)
[/code]

編輯記錄

WidePMatch 這是那個函式呢??

===================引 用 GrandRURU 文 章===================

[code delphi]
function WidePos(const F: WideString; const S: WideString; const StartIndex: Integer = 1): Integer;
var
P: PWideChar;
I, L: Integer;
begin
L := Length(S);
if (StartIndex > L) or (StartIndex < 1) then
begin
Result := 0;
Exit;
end;
P := Pointer(S);
Inc(P, StartIndex - 1);
for I := StartIndex to L do
if WidePMatch(F, P) then
begin
Result := I;
Exit;
end else
Inc(P);
Result := 0;
end;
[/code]





===================引 用 g9221712 文 章===================
自己試出答案了
[code delphi]
if (Pos(WideString(Column.Field.FieldName), Sort) = 1) and (Pos(WideString(' DESC'), Sort) = 0)
[/code]

------
xinjier禮品贈品