::: µ¨ÆÄÀÌ Tip&Trick :::

µ¨ÆÄÀÌ Tip&Trick ¼º°Ý¿¡ ¸ÂÁö ¾Ê´Â ±¤°í,ºñ¹æ,Áú¹®ÀÇ ±ÛÀº Áï½Ã »èÁ¦Çϸç
³»¿ëÀ» º¹»çÇÏ¿© »ç¿ëÇÒ °æ¿ì ¹Ýµå½Ã À̰÷(http://www.howto.pe.kr)À» Ãâó·Î ¸í½ÃÇÏ¿© ÁÖ¼¼¿ä


Category

  ±è¿µ´ë(2003-03-07 10:31:13, Hit : 4244, Vote : 890
 ¼ýÀÚ¸¦ ¿µ¹® Ç¥±â·Î ¹Ù²Ù±â

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
{$R *.DFM}

function Amount(N: Longint): String;
const
  Units: array[0..9] of String = ('', 'One', 'Two', 'Three', 'Four',
                                  'Five', 'Six', 'Seven', 'Eight', 'Nine');
  Teens: array[0..9] of String = ('Ten', 'Eleven', 'Twelve', 'Thirteen', 'Fourteen', 'Fifteen',
                                  'Sixteen', 'Seventeen', 'Eighteen', 'Nineteen');
  Tens: array[0..9] of String = ('', 'Ten', 'Twenty', 'Thirty', 'Forty',
                                 'Fifty', 'Sixty', 'Seventy', 'Eighty', 'Ninety');
  Higher: array[0..3] of String = ('', 'Thousand', 'Million', 'Billion');
  Level: Integer = 0;
begin
  case N of
    0..9 : Result := Result + Units[N];
    10..19 : Result := Result + Teens[N - 10];
    20..99 : Result := Result + Tens[N div 10] + Amount(N mod 10);
    100..999 : Result := Result + Units[N div 100] + ' Hundred' + Amount(N mod 100);
    else
    begin
      inc(Level);
      Result := Result + Amount(N div 1000) + Higher[Level] + Amount(N mod 1000);
      dec(Level);
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    Label1.caption := Amount(Trunc(StrToFloat(Edit1.Text)));
  except
    on EConvertError do
      Label1.caption := 'Á¤È®ÇÑ ¼ýÀÚ¸¦ ÀÔ·ÂÇϼ¼¿ä';
  end;
end;

end.





491   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ¼ýÀÚ¸¦ ÇÑ±Û Ç¥±â·Î ¹Ù²Ù±â  ±è¿µ´ë 2003/03/07 3610 927
  [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ¼ýÀÚ¸¦ ¿µ¹® Ç¥±â·Î ¹Ù²Ù±â  ±è¿µ´ë 2003/03/07 4244 890
489   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ÁÖ¾îÁø ¿µ¿ªÀÇ È­¸é ĸó  ±è¿µ´ë 2003/03/07 3558 1008
488   [³×Æ®¿÷/ÀÎÅͳÝ] RS232 Åë½Å  ±è¿µ´ë 2003/03/07 6918 1855
487   [½Ã½ºÅÛ] À©µµ¿ìÁî ½Ã½ºÅÛ Ç¥ÁØ ÆùÆ® ±¸ÇÏ±â  ±è¿µ´ë 2003/03/07 3019 850
486   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ¾ÆÀÌÄÜ »çÀÌÆ®  ±è¿µ´ë 2003/03/07 3614 1067
485   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] À©µµ¿ìÁî Á¾·á¿Í °°Àº ±×´ÃÁø È­¸é ¸¸µé±â  ±è¿µ´ë 2003/03/07 3138 840
484   [³×Æ®¿÷/ÀÎÅͳÝ] ÇÁ·Î±×·¥À¸·Î ³×Æ®¿öÅ© µå¶óÀÌºê ¿¬°á/ÇØÁ¦  ±è¿µ´ë 2003/03/07 6717 1250
483   [½Ã½ºÅÛ] »ç¿îµåÆÄÀÏ ¾øÀÌ PC ½ºÇÇÄ¿·Î À½¾Ç¿¬ÁÖ  ±è¿µ´ë 2003/03/07 4638 923
482   [½Ã½ºÅÛ] CPU Á¾·ù ±¸ÇÏ±â  ±è¿µ´ë 2003/03/07 4802 1194
481   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] TRichEdit ÀÇ ¼±ÅÃµÈ ¿µ¿ª¸¸ ÀμâÇÏ±â  ±è¿µ´ë 2003/03/07 4473 725
480   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] TRichEdit ÀÇ 64K ÇÑ°è  ±è¿µ´ë 2003/03/07 4027 1097
479   [½Ã½ºÅÛ] ¼³Ä¡µÈ ÇÁ¸°ÅÍ µå¶óÀ̹ö Á¤º¸ ±¸ÇÏ±â  ±è¿µ´ë 2003/03/07 3083 814
478   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] PASCAL Æ÷ÀÎÅÍ ¿¬»ê  ±è¿µ´ë 2003/03/07 2828 789
477   [½Ã½ºÅÛ] Time Zone Á¤º¸¸¦ ½ÃºÐÀ¸·Î Àоî¿À±â  ±è¿µ´ë 2003/03/07 2909 790
476   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] {$I-} and {$I+} do not work under NT4.0  ±è¿µ´ë 2003/03/07 2315 591
475   [½Ã½ºÅÛ] Thread »ç¿ëÇÏ±â  ±è¿µ´ë 2003/03/07 4216 1153
474   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ¿­°ÅÇü(Enumerated) »ó¼ö¸¦ ¹®ÀÚ¿­·Î ¹Ù²Ù±â  ±è¿µ´ë 2003/03/07 4338 1277
473   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ÆûÀÇ ÃÖ¼ÒÈ­½Ã ¿¡´Ï¸ÅÀÌ¼Ç ¾ÆÀÌÄÜ º¸¿©ÁÖ±â  ±è¿µ´ë 2003/03/07 3177 888
472   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] À©µµ¿ìÁî Á¦¾îÆÇ È­¸é ¶ç¿ì±â  ±è¿µ´ë 2003/03/07 4568 1246
471   [µ¥ÀÌÅͺ£À̽º] TDBGrid - Boolean CheckBox  ±è¿µ´ë 2003/03/07 3249 807
470   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ÆÄÀÏÀÇ ¹öÀüÁ¤º¸ Àоî¿À±â  ±è¿µ´ë 2003/03/07 3431 891
469   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] MS-OutLook À¸·Î ¸Þ½ÃÁö º¸³»±â  ±è¿µ´ë 2003/03/07 5132 1175
468   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] MessageDlg()ÀÇ default ¹öư ¼±ÅÃÇØ¼­ ¶ç¿ì±â  ±è¿µ´ë 2003/03/07 3471 993
467   [³×Æ®¿÷/ÀÎÅͳÝ] ±âº» ÀÎÅÍ³Ý À¬ºê¶ó¿ìÀúÀÇ ÆÄÀÏ¸í ±¸ÇÏ±â  ±è¿µ´ë 2003/03/07 2861 783
466   [³×Æ®¿÷/ÀÎÅͳÝ] TCP/IP °¡ ¼³Ä¡µÇ¾î ÀÖ´ÂÁö °Ë»çÇÏ±â  ±è¿µ´ë 2003/03/07 3345 999
465   [½Ã½ºÅÛ] Message Queue¿¡ ƯÁ¤ ¸Þ½ÃÁö°¡ ÀÖ´ÂÁö °Ë»ç  ±è¿µ´ë 2003/03/07 3199 892
464   [À©µµ¿ìÁî API] EXCEL Á¾·á½ÃŰ±â  ±è¿µ´ë 2003/03/07 4673 1180
463   [½Ã½ºÅÛ] È­¸éº¸È£±â°¡ ¼³Ä¡µÇ¾î ÀÖ´ÂÁö °Ë»çÇÏ±â  ±è¿µ´ë 2003/03/07 3979 1153
462   [À©µµ¿ìÁî API] TreeViewÀÇ hint popup ¾ø¾Ö±â  ±è¿µ´ë 2003/03/07 5669 1811
461   [À©µµ¿ìÁî API] NT Server or NT Workstation ±¸ºÐÇÏ±â  ±è¿µ´ë 2003/03/07 3690 1094
460   [¾Ë°í¸®Áò] Bubble, Selection, Quick Sort algorithm  ±è¿µ´ë 2003/03/07 3155 927
459   [½Ã½ºÅÛ] µÎ°³ÀÇ ÆÄÀÏÀÌ ¿ÏÀüÈ÷ µ¿ÀÏÇÑÁö °Ë»çÇϱâ2  ±è¿µ´ë 2003/03/07 3376 973
458   [À©µµ¿ìÁî API] ½ÇÇàµÈ Tray Icon º¯°æÇÏ±â  ±è¿µ´ë 2003/03/07 6409 1912
457   [½Ã½ºÅÛ] BIOS ÇÔ¼ö¸¦ »ç¿ëÇÑ drive Á¢±Ù¹æ¹ý  ±è¿µ´ë 2003/03/07 3142 905
456   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] TCanvas or TBitmap -> TGIFImage  ±è¿µ´ë 2003/03/07 4862 1150
455   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] Memo, RichEdit ¼±ÅÃÇàÀÇ µé¿©¾²±â/³»¿©¾²±â  ±è¿µ´ë 2003/03/07 3236 709
454   [ÀϹÝ/ÄÄÆ÷³ÍÆ®] ¼ýÀÚ¾ÕÀÇ ¹«È¿ÇÑ 0 Á¦°ÅÇÏ±â  ±è¿µ´ë 2003/03/07 4050 1099
453   [½Ã½ºÅÛ] À©µµ¿ìÁî¿¡ ¼³Ä¡µÈ ÇÁ¸°ÅÍ ¸®½ºÆ® ±¸ÇÏ±â  ±è¿µ´ë 2003/03/07 4254 1120
452   [½Ã½ºÅÛ] PC ½ºÇÇÄ¿ ¿ï¸®±â(Sound, NoSound)  ±è¿µ´ë 2003/03/07 4426 1204

[ÀÌÀü 10°³] [1]..[11][12] 13 [14][15][16][17][18][19][20]..[25] [´ÙÀ½ 10°³]
 

Copyright 1999-2022 Zeroboard / skin by zero