'프로그래밍 언어'에 해당되는 글 52건

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ShellAPI, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function GetFileIcon( FileName: String ): HICON;
var
   SHFileInfo: TSHFileInfo;
begin
   ShGetFileInfo( PChar( FileName ), 0, SHFileInfo, SizeOf( TSHFileInfo ), SHGFI_USEFILEATTRIBUTES or SHGFI_ICON or SHGFI_EXETYPE {or SHGFI_SMALLICON });
   Result := SHFileInfo.hIcon;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   AIcon: TIcon;
begin
   AIcon := TIcon.Create;
   try
      AIcon.Handle := GetFileIcon( 'C:\UTIL\COMM\eMule\emule.exe' );
      Image1.Picture.Assign( AIcon );
   finally
      AIcon.Free;
   end;
end;

end.

// 다중 컬럼을 오름/내림으로 소트
// $dir_sorted = SortArray($dir_contents, "is_dir", DESC, "name", ASC);
function SortArray() {
   $arguments = func_get_args();
   $array = $arguments[0];
   $code = '';
   for ($c = 1; $c < count($arguments); $c += 2) {
      if (in_array($arguments[$c + 1], array("ASC", "DESC"))) {
         $code .= 'if ($a["'.$arguments[$c].'"] != $b["'.$arguments[$c].'"]) {';
         if ($arguments[$c + 1] == "ASC") {
            $code .= 'return ($a["'.$arguments[$c].'"] < $b["'.$arguments[$c].'"] ? -1 : 1); }';
         }
         else {
            $code .= 'return ($a["'.$arguments[$c].'"] < $b["'.$arguments[$c].'"] ? 1 : -1); }';
         }
      }
   }
   $code .= 'return 0;';
   $compare = create_function('$a,$b', $code);
   usort($array, $compare);

   return $array;
}

// 컬럼으로 오름차순 소트
function columnSort($unsorted, $column) {
   $sorted = $unsorted;
   for ($i=0; $i < sizeof($sorted)-1; $i++) {
      for ($j=0; $j<sizeof($sorted)-1-$i; $j++) {
         if ($sorted[$j][$column] > $sorted[$j+1][$column]) {
            $tmp = $sorted[$j];
            $sorted[$j] = $sorted[$j+1];
            $sorted[$j+1] = $tmp;
         }
      }
   }
   return $sorted;
}

print substr_count("This is a test", "is"); // 2를 출력한다.

ShellExecute(0, 'open', 'regedit', pchar('/E ./filename.reg HKEY_CURRENT_USER'), '', SW_SHOW);

$a = "7 Feb 2006 22:47:15 +0900";
$b = strtotime($a);
$c = date("Y-m-d H:i:s", $b);
echo $a."

";
echo $b."

";
echo $c."

";

-------

7 Feb 2006 22:47:15 +0900
1139320035
2006-02-07 22:47:15

유사성 체크

$a = 뉴트리칼 32.0%";
$b = "32 뉴 트리칼";

similar_text($a, $b, $p);
echo $a."

";
echo $b."

";

echo "per : $p%";

---------------------

뉴트리칼 32.0%
32 뉴 트리칼
per : 70.5882352941%

array getdate ( [int timestamp])

---------------------

$today = getdate();
print_r($today);

---------------------

Array
(
  [seconds] => 40
  [minutes] => 58
  [hours]  => 21
  [mday]   => 17
  [wday]   => 2
  [mon]   => 6
  [year]   => 2003
  [yday]   => 167
  [weekday] => Tuesday
  [month]  => June
  [0]     => 1055901520
)