파란크리스마스

type TDatabaseType = (dbtMSSQL, dbtOracle, dbtCUBRID, dbtSybase, dbtNone); TDatabaseSet = set of TDatabaseType; const StrDatabaseNames : array[TDatabaseType] of String = ('MSSQL', 'Oracle', 'CUBRID', 'Sybase', 'None'); 함수 내용 Typeinfo 열거형의 형정보(TypeInfo)에 대한 포인터 반환 GetEnumName 열거형의 각 멤버를 문자열로 반환 GetEnumValue Ord Pred Succ Dec Inc Low procedure TForm1.Button1Click(Sender: TObject); var DatabaseType..

SQLGate2010 For MySQL을 통해서 SSH 터널링을 통해 MySQL 연결하기 1. [SSH 터널링] 체크를 선택하여 SSH 텝을 활성화 시킨다. 2. SSH 접속 정보를 입력한다. 3. [SSH 연결 테스트] 버튼을 선택하여 SSH 연결이 접근이 되는지 확인한다. (옵션) 4. 처음 SSH 서버에 접근시 확인창에서 [OK] 버튼을 선택한다. 5. SSH 연결을 확인 한다. 6. [로그인] 텝으로 이동한다. 7. 로그인 정보를 입력한다. 8. [연결 테스트] 버튼을 선택하여 연결이 잘 되는지 테스트 해본다. (옵션) 9. [연결하기] 버튼을 선택하여 데이터베이스엔 연결한다.

원본 사이트 : http://www.experts-exchange.com/Programming/Languages/Pascal/Delphi/Q_10231553.html procedure TForm1.Button1Click(Sender: TObject); function GetLocale(ALcid: Integer): string; var s: string; begin Result := '[Unknown]'; SetLength(s, 128); if GetLocaleInfo(ALcid, LOCALE_SENGLANGUAGE, PChar(s), 128) > 0 then begin Result := StrPas(PChar(s)); if GetLocaleInfo(ALcid, LOCALE_SENGCOUNTRY, PCh..

출처 http://ask.nate.com/qna/view.html?n=4636134 MySQL 4.1.21 설치후 접속 오류 해결 해당오류 - ERROR 1045 (28000): Access denied for user 'root'@'localhost' (using password: NO) - ERROR 2003 :Can't connect to Mysql server on 'localhost' - mysqladmin: connect to server at 'localhost' failed - error: 'Can't connect to MySQL server on 'localhost' (10061)' Enter password: ****** Welcome to the MySQL monitor. Comma..

참고 : http://spowner.com/3 - Visual SVN Server 최신버전 받기 (Version 2.0.8) http://www.visualsvn.com/server/download/ - 설치 과정 -- Repository -end

- Query 실행후 동적으로 컬럼 추가 (cxGridDBTableView1.DataController as IcxCustomGridDataController).DeleteAllItems; (cxGridDBTableView1.DataController as IcxCustomGridDataController).CreateAllItems(true); cxGridDBTableView1.ApplyBestFit(); - [Enter] 키로 Cell 이동 cxGrid1TableView1.OptionsBehavior.FocusCellOnCycle := true; cxGrid1TableView1.OptionsBehavior.FocusCellOnTab := true; cxGrid1TableView1.OptionsBeha..

참조 http://delphigeist.blogspot.com/2009/11/saveload-controls-from-inifile-using.html uses inifiles; procedure TForm1.FormCreate(Sender: TObject); var IniFile : TiniFile; begin // IniFile := TiniFile.Create(ChangeFileExt(Application.ExeName,'.ini')); try isDEBUG := IniFile.ReadBool('INFO', 'DEBUG', false); finally IniFile.Free; end; end; procedure TForm1.FormDestroy(Sender: TObject); var IniFile ..