Search options (Page 9 of 10)

procedure Form1_OnShow (Sender: string; Action: string);
begin
    Form1.TableGrid1.Columns.InsertcheckboxColumn(0);
    Form1.TableGrid1.Columns[0].Header.Caption  := 'checkbox' ;
    Form1.TableGrid1.Options := Form1.TableGrid1.Options + goMultiSelect ;
    Form1.TableGrid1.OnChange := @Grid1_onChange_onClick;
    Form1.TableGrid1.OnCellClick := @Grid1_onChange_onClick;
end;

procedure Grid1_onChange_onClick(Sender: TObject; ACol, ARow: Integer);
var
    i : integer ;
begin
    for i := 0 to   Form1.TableGrid1.RowCount - 1 do
        if Form1.TableGrid1.Cell[0,i].AsBoolean then
            Form1.TableGrid1.Selected[i]:=True
        else
            Form1.TableGrid1.Selected[i]:=False;
end;

begin

end.

function NumberToWords(Number: real): string;
var
    Billion: real;
    Million: real;
    Thousand: real;
    Hundred: real;
    Tens : Array[2..9] of string = ['','','Twenty','Thirty','Forty','Fifty','Sixty','Seventy','Eighty','Ninety'];
    Units: array[1..9] of string = ['','One','Two','Three','Four','Five','Six','Seven','Eight','Nine'];
    Teens: array[10..19] of string = ['Ten','Eleven','Twelve','Thirteen','Fourteen','Fifteen','Sixteen','Seventeen','Eighteen','Nineteen'];
begin                 
    Billion := 1000000000;
    Million := 1000000;
    Thousand := 1000;
    Hundred := 100;
    if (Number < 0) then Result := 'minus ' else Result := '';
    Number := Abs(Number);
    if (Number >= Billion) then
    begin
        Result := Result + NumberToWords(Number div Billion) + ' billion, ';
        Number := Number mod Billion;
    end;
    if (Number >= Million) then
    begin
        Result:= Result + NumberToWords(Number div Million) + ' million, ';
        Number:= Number mod Million;
    end;
    if (Number >= Thousand) then
    begin
        Result:= Result + NumberToWords(Number div Thousand) + ' thousand, ';
        Number:= Number mod Thousand;
    end;
    if (Number >= Hundred) then
    begin
        Result:= Result + NumberToWords(Number div Hundred) + ' hundred, ';
        Number:= Number mod Hundred;
    end;
    if (Number > 0) and (Result <> '') then
    begin
        Result := Trim(Result);
        if(Result[Length(Result)] = ',') then Delete(Result, Length(Result), 1);
        Result := Result + ' and ';
    end;
    if (Number >= 20) then
    begin
        Result := Result + Tens[StrToInt(FloatToStr(Number)) div 10] + ' ';
        Number := Number mod 10;
    end;
    if(Number >= 10) then
    begin
        Result :=Result + Teens[StrToInt(FloatToStr(Number mod 10))];
        Number := 0;
    end;
    if (Number >= 1) then Result := Result + Units[StrToInt(FloatToStr(Number))];
    Result := Trim(Result);
    if (Result = '') then Result := 'zero'
    else
    if (Result[Length(Result)] = ',') then Delete(Result, Length(Result), 1);
end;

procedure btnMoneyToWord(Sender: string; var Cancel: boolean);
var
    s: string;
    begin
        s:=NumberToWords(Form1.edAmount.Value);
        ShowMessage(s);
    end;

begin
end.

<?php
//echo convert_number(645647);
function convert_number($number){
    if(($number<0)||($number>9999999999)){
        throw new Exception("Number is out of range");
    }
    $Mn=floor($number/1000000);/*millions(giga)*/
    $number-=$Mn*1000000;
    $Gn=floor($number/100000);/*millions(giga)*/
    $number-=$Gn*100000;
    $kn=floor($number/1000);/*Thousands(hecto)*/
    $number-=$kn*1000;
    $Hn=floor($number/100);/*hundreds(hecto)*/
    $number-=$Hn*100;
    $Dn=floor($number/10);/*Tens(deca)*/
    $n=$number%10;/*ones*/
    $res="";
    $z="";
    if($Mn){
        $res.=convert_number($Mn)." Million ";
        $z="mil";//$res.=convert_number($Gn)." Hundred and";
    }
    if($Gn && ($z=="mil")){
      $res.=convert_number($Gn)." Hundred and";
    }
    else if($Gn && ($z=="")){
      $res.=convert_number($Gn)." Hundred ";
    }
    
    if($kn){
        $res.=(empty($res)?"":" ").convert_number($kn)." Thousand ";
    }
    if($Hn){
        $res.=(empty($res)?"":" ").convert_number($Hn)." Hundred ";
    }
    $ones=array("","One","Two","Three","Four","Five","Six","Seven","Eight","Nine","Ten","Eleven","Twelve","Thirteen","Fourteen","Fifteen","Sixteen","Seventeen","Eighteen","Nineteen");
    $tens=array("","","Twenty","Thirty","Forty","Fifty","Sixty","Seventy","Eighty","Ninety");
    
    if($Dn||$n){
        if(!empty($res)){
            $res.=" and ";
        }
        if($Dn<2){
            $res.=$ones[$Dn*10+$n];
        }else{
            $res.=$tens[$Dn];
            if($n){
                $res.="-".$ones[$n];
            }
        }
    }
if(empty($res)){
    $res="Zero";
}
return $res;
}
?>