Q&A
- 또 올렸습니다. 지송지송
라벨폭과 너비 정해주는것두 미미하고
년, 월, 일 불러낸다음 copy함수로 달만 잘라낼려고 하는데 잘안되는 군요
도와 주세여
소스동봉...
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
OBject Label1: TLabel
Left = 200
Top = 230
Width = 250
Height = 198
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text := FormatDateTime( '오늘은 yyyy년 mm월 dd일 입니다.', Now );
end;
var S: string;
begin
S := '오늘은 yyyy년 mm월 dd일 입니다.';
S := Copy(S, 9, 10, 11); { 'mm월' }
end;
begin
FormatDateTime( 'yyyy년mm월', Now );
end;
년, 월, 일 불러낸다음 copy함수로 달만 잘라낼려고 하는데 잘안되는 군요
도와 주세여
소스동봉...
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
OBject Label1: TLabel
Left = 200
Top = 230
Width = 250
Height = 198
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text := FormatDateTime( '오늘은 yyyy년 mm월 dd일 입니다.', Now );
end;
var S: string;
begin
S := '오늘은 yyyy년 mm월 dd일 입니다.';
S := Copy(S, 9, 10, 11); { 'mm월' }
end;
begin
FormatDateTime( 'yyyy년mm월', Now );
end;
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
-
- 진땀
- •
- 2000.09.22 16:01
- 3 COMMENTS
- /
- 0 LIKES
-
bassmania•2000.09.22 20:03진땀 wrote: > 안녕하세요. > 이 글을 읽어 주시는 모든 고수분들에게 많은 도움을 바랍니다. 부디 무...
-
진땀•2000.09.23 09:25bassmania wrote: > 진땀 wrote: > > 안녕하세요. > > 이 글을 읽어 주시는 모든 고수분들에게 많은 ...
-
이경수•2000.10.09 08:12질문이 넘 길어서 읽고 나서도 정리가 안되는 군여.. 암뜬 님께 도움이 될지 몰라서 몇자 적어 봅니다. ...
-
- 이용
- •
- 2000.09.22 12:16
- 1 COMMENTS
- /
- 0 LIKES
-
성더기•2000.09.22 14:02이용 wrote: > 매일 질문만 하네요..죄송 합니다. > > var > Sql_Update: string; > Bun_su_int: i...
-
- MAXIST
- 2000.09.22 11:51
- 0 COMMENTS
- /
- 0 LIKES
-
- 레오..^^
- •
- 2000.09.22 11:07
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.09.22 19:56안녕하세요. 델파이세상(http://www.freechal.com/delphiworld)의 최용일입니다. 문장을 잘 살피세요. ...
-
- 김봉기
- 2000.09.22 09:24
- 0 COMMENTS
- /
- 0 LIKES
-
- 바보
- •
- 2000.09.22 06:48
- 2 COMMENTS
- /
- 0 LIKES
-
돌머리•2000.09.22 11:25안녕하세요 김동원입니다. 문법만 델파이 형대로 바꾸면 되겠네요... function DewPointCal(Temperat...
-
김선호•2000.09.22 08:38> float DewPointCal(float Temperature,float Humidity) > { > if(temperature double E = Humi...
-
- 니케
- •
- 2000.09.22 06:16
- 3 COMMENTS
- /
- 0 LIKES
-
남기석•2000.09.22 09:59이렇게 하세요.... if memo1.lines.TEXT = '' then if memo1.lines = '' then > Memo1.Lines.Inser...
-
김선호•2000.09.22 08:28procedure TForm1.Button1Click(Sender: TObject); var MyStrigList : TStringList; begin MyStrig...
-
forever•2000.09.22 06:26니케 wrote: > if memo1.lines = '' then > Memo1.Lines.Insert(0,'안녕하세요'); > Memo1.Lines.Insert...
-
-
- 이승현
- 2000.09.22 05:14
- 0 COMMENTS
- /
- 0 LIKES
-
- 강진호
- 2000.09.22 04:08
- 0 COMMENTS
- /
- 0 LIKES
-
- 정동우
- 2000.09.22 03:40
- 0 COMMENTS
- /
- 0 LIKES
-
- 웹페이지
- •
- 2000.09.22 03:30
- 2 COMMENTS
- /
- 0 LIKES
-
이미•2000.09.23 02:35단지 숫자증감이라면 sample package의 TSpinEdit를 사용하심이 어떤지요...^*^! 웹페이지 wrote: ...
-
델피언•2000.09.22 03:41안녕하세요~ 델피언입니다. 음~ UpDown과 Edit box는 연결만 되면 정상작동 하므로 연결 하는걸 알려 드...
-
- 궁금이
- •
- 2000.09.22 03:28
- 1 COMMENTS
- /
- 0 LIKES
-
이경문•2000.09.22 05:37SMTP 컴포넌트를 사용하시면 됩니다. 하지만 Delphi4까지는 해당 컴포넌트가 OCX(ActiveX)이기 때문에 배...
-
- 왕초보
- 2000.09.22 03:16
- 0 COMMENTS
- /
- 0 LIKES
-
-
김재억•2000.09.22 02:53안녕하세요 wrote: > 애플리케이션에서 종료키를 누르면 '프로그램을 종료할까요?' 라고 물어 > 봅니다....
-
-
-
- 콩이지
- •
- 2000.09.22 02:32
- 1 COMMENTS
- /
- 0 LIKES
-
GaDiAn K•2000.09.22 04:10안녕하세요? 12205 번 게시물을 참고 하시면 될것 같군요. 즐코~ 콩이지 wrote: > 루프문 f...
-
- mickyblue
- •
- 2000.09.22 02:14
- 1 COMMENTS
- /
- 0 LIKES
라벨폭과 너비 정해주는것두 미미하고 년, 월, 일 불러낸다음 copy함수로 달만 잘라낼려고 하는데 잘안되는 군요 도와 주세여 소스동봉... unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,...-
델피언•2000.09.22 02:33안녕하세요..델피언 입니다. 제가 아까 멜로 소스 포함해서 드렸습니다. 그걸 참고 하세요.. 행복하세요...
-
- 김치열
- 2000.09.23 00:03
- 0 COMMENTS
- /
- 0 LIKES
제가 아까 멜로 소스 포함해서 드렸습니다.
그걸 참고 하세요..
행복하세요~
mickyblue wrote:
> 라벨폭과 너비 정해주는것두 미미하고
> 년, 월, 일 불러낸다음 copy함수로 달만 잘라낼려고 하는데 잘안되는 군요
> 도와 주세여
> 소스동봉...
>
> unit Unit1;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> StdCtrls;
>
> type
> TForm1 = class(TForm)
> Button1: TButton;
> Label1: TLabel;
> procedure Button1Click(Sender: TObject);
> private
> { Private declarations }
> public
> { Public declarations }
> end;
>
> var
> Form1: TForm1;
>
> implementation
>
> {$R *.DFM}
>
> OBject Label1: TLabel
> Left = 200
> Top = 230
> Width = 250
> Height = 198
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> Edit1.Text := FormatDateTime( '오늘은 yyyy년 mm월 dd일 입니다.', Now );
>
> end;
>
> var S: string;
>
> begin
> S := '오늘은 yyyy년 mm월 dd일 입니다.';
> S := Copy(S, 9, 10, 11); { 'mm월' }
> end;
> begin
> FormatDateTime( 'yyyy년mm월', Now );
>
> end;
>