引言: 我用 Query 下條件...如: select * from cust order by cuno,cuname 我要如何得知order by 的欄位名稱cuno,cuname ********************* * 只要用心一定成功 * *********************

var
  I, aLen, aPos: Integer;
begin
  for I := 0 to Query1.SQL.Count - 1 do
  begin
    aPos := Pos('order by ',Query1.SQL.Strings[I]);
    if aPos > 0 then
    begin
      aLen := Length(Query1.SQL.Strings[I]);
      //aPos 9：加九的意思是指Order By 的長度為9
      ShowMessage(Copy(Query1.SQL.Strings[I], aPos 9, aLen-aPos-8))
    end;
  end;
end;

var sql,token: string;
    SQLToken : TSQLToken;
    IsOrderField : boolean;
    Start : PChar;
begin
  sql:='select * from cust order by cuno,cuname';
  SQLToken := stUnknown;
  IsOrderField := False;
  Start := Pchar(sql);
  repeat
    SQLToken := NextSQLToken(Start, Token, SQLToken);
    if IsOrderField and (SQLToken=stFieldName) then showmessage(Token);
    if SQLToken = stOrderBy then IsOrderField := True;
    if IsOrderField and (SQLToken in SQLSections) and
       (SQLToken <> stOrderBy) then IsOrderField := False;
  until SQLToken = stEnd;
end;