تشخیص عدد بودن inputbox در دلفی

function IsNumber(N : String) : Boolean;

var

I : Integer;

begin

   Result := True;

   if Trim(N) = '' then

   Exit(False);

   if (Length(Trim(N)) > 1) and (Trim(N)[1] = '0') then

   Exit(False);

   for I := 1 to Length(N) do

     begin

       if not (N[I] in ['0'..'9']) then

          begin

             Result := False;

             Break;

          end;

     end;

var  avalue:string;

isn:boolean;

begin

  avalue:=inputbox ('test1','test2','');

  isn:=isnumber(avalue);

 if isn=true then

   showmessage('yes')

   else

   showmessage('no');

  end;

سورت dbgrid در دلفی با کلیک بر روی تایتل

سلام

با این کد می تونید با کلیک بر روی تایتل دی بی گرید ، همون فیلد رو سورت کنید.

procedure TForm1.DBGrid1TitleClick(Column: TColumn);

var cFieldName:string;

begin

      cFieldName:= DBGrid1.Columns[Column.Index].FieldName;

      Adoquery1.Sort:=cFieldName;

end;

راه دوم

var KindSotr1:Boolean;

if KindSotr1 then

    datamodule3.customers.Sort:=Column.FieldName+' DESC'

  else

    datamodule3.customers.Sort:=Column.FieldName;

  KindSotr1:=not(KindSotr1);