젠틀캣의 블로그이야기

연달아 증권관련 인사의 자살이 일어나고 있네요. 미래에셋 지점장도, 생명보험사 직원도, 개인 투자자들의 여러가지 안타까운소식, 그리고 이번에 세빛에셋의 최성국회장까지 유서의 내용은 개인 투자자들에게 미안하고, 미국발 금융위기에 대한 압박에 대한 내용이 적혀 있다고 하는데 이게 뭘 뜻하는지.. 단순하게 한사람의 안타까운 자살 사연으로만 볼수 있을까? 故최성국 회장은 우리 일반인 보다 훨씬 더 많은 양과질의 정보가 있엇을 것입니다. 그리고 투자에 관해서는 누구못지 않게 노련함을 가지고 있었을테구요.. 그럼에도 불구하고, 이런 극단적인 선택을 했다는 것은 다시 일어설수 있는 가능성이 전혀 보이지 않았기 때문이 아닐까? 라는 생각을 해봅니다. 지금 윗대가리에 앉아 있는 2mb 이하 강만수, 한승수 이것들은 도데..

제가 자주 눈팅을 하는 사이트는 SLRCLUB에서 오늘 해프닝이 있었지요. 간단한 내용은.. 등산을 마치고 내려오던중 식당에 들러 안주를 곁들여 기분좋게 한잔 하고 나왔는데 나오고 보니 가지고 갔던 카메라를 식당에 두고 나왔는데.. 찾으러 갔더니 수고비로 2만원을 달라더라는.. 그런 내용입니다. 뭐 물론 나중에 돌려받았다고는 하는데, 그냥 순순히 준것도 아니고, 주변 사람들의 항의에 못이겨서 줬다는 뭐 그런 내용입니다. 이 일을 당한 SLRCLUB 회원님이 클럽에 포스팅을 하고 일이 커지게 되자 그 식당 주인이 다음아고라에 "사죄의 말씀드립니다" 라는 글을 포스팅을 하게 되었네요.. 그 자리에 있어본게 아니라 옳고 그름을 이야기 할수는 없지만.. 정황상 식당주인이 크던작던간에 금액을 요구한건 사실인듯 하..

정말 오래전 부터 기다리고 기다리던 모델인데.. 참 여러모로 사람 감질나게 합니다. 3년이 넘도록 후속 발표가 없다가.. 겨우 발표가 되고 나서 발매까지 두달? 다른 나라는 죄다 예판 가격이라도 나오는데 국내는 아직 오리무중... 뭐 대충 300만원~350만원 사이가 될거라는 이야기가 유력한데.. 정말 몇달전만 하더라도 질렀을텐데.. 돈이 있고 없고를 떠나서 요즘 분위기에 이런걸 사도 되나 싶은 생각이 드는것도 사실입니다. 그냥 50d 로 갈지 5D Mark2로 갈지는 좀더 숙고 해보아야 겠습니다. 첨부파일은 일명 오두막의 한국어 카다로그 PDF 파일입니다.

짧다면 짧고 길다면 길다고 할 수 있는 10년동안의 경험을 가지고 이제 앞으로 인터넷에 홈페이지를 만들고 쇼핑몰을 만들어서 인터넷 사업을 하고자 하는 분들과 의견을 나누고 도움을 드릴 수 있으면 드리고 받을수 있으면 하는 취지에서 강좌 같지 않은 강좌를 해보고자 합니다. 본 카테고리에서는 제작방법에 대해서는 설명하지 않고, 용어, 개념, 프로세스등에 대해서 설명합니다. 즉, 제작을 하는 실무자의 입장이 아닌, 매출에 대해서 고민하고, 운영방법에 대해서 고민하는 기획자, 오너등을 그 대상으로 하고 습니다. 난이도는 초급부터 중급 정도 까지를 예상하고 있습니다. ----------------------------------------------------------------------------------..

Component -> Install Packages 메뉴에서 Bin 디렉토리에 dclqrt70.bpl 파일을 Add

자동업데이트 기능등을 강제로 넣어야 할때 실행파일에 파라미터를 넣어주어야 반드시 업데이트를 거쳐야 할수 있도록 해줄수 있다. 본프로그램 procedure TfrmIndex.FormCreate(Sender: TObject); var path : string; begin Application.Initialize; if (System.ParamStr(1) '/first') then //파라미터 값은 first로 지정해주었다. begin ShowMessage('다른 경로로 프로그램을 실행했습니다. 프로그램을 종료합니다.'); Application.Terminate; end; Application.Run; end; 업데이트부 procedure TUpdateForm.ExitProg ; Var BRoot : Stri..

1. 쿼리카운트를 해서 스트링그리드에 뿌려질만큼 1컬럼에 체크박스를 넣어줌 if SVdm.QryMember.RecordCount > 0 then begin Grid.AddCheckBox(1,i,false,false); Grid.SetCheckBoxState(1,i,false); end; 2. TadvStringGird.option 프로퍼티의 goEditing := true; 3. 상단에 전체선택 체크박스 하나 놓고 클릭시 전체선택 및 해제 코드 추가 procedure TformMember.suiCheckBox1Click(Sender: TObject); var i : integer; begin if (suiCheckBox1.Checked = true) then begin for i := 1 to SVdm...

Procedure SleepProc(milisecond : DWORD); var maxloop : Integer; iindex : integer; begin maxloop := (milisecond div 50)+(milisecond mod 50); for iindex := 1 to maxloop do begin if Application.Terminated then begin Break; Exit; Application.Terminate; end; Sleep(50); Application.ProcessMessages; end; end; 사용예 : SleepProc(50);

oriName : string destname : string CopyFile(PChar(oriName),PChar(destName),false);

//* 파일 삭제 함수 - uses절에 ShellApi추가 //* 사용법 MinDeleteFile(ExtractFilePath(Application.exeName)+'tmp\*.jpg',true); function MinDeleteFile(const DirName : string; const UseRecycleBin: Boolean): Boolean; var SHFileOpStruct: TSHFileOpStruct; DirBuf: array [0..255] of char; Directory: string; begin try Directory := ExcludeTrailingPathDelimiter(DirName); Fillchar(SHFileOpStruct, sizeof(SHFileOpStruct), 0..