본문 바로가기

삽질/Delphi40

[Delphi] 전화번호 형식으로 바꾸기 function TelNoAutoMata(vTelNo: string): string; var tTelNo: string; FLocal, FSeoul: Boolean; begin tTelNo := StringReplace(vTelNo, '-', '', [rfReplaceAll, rfIgnoreCase]); if (Length(tTelNo) 12) then begin // Edit MaxLength : 13 result := copy(vTelNo, 1, 13); exit; end; FLocal := False; FSeoul := False; if tTelNo[1] = '0' then FLocal := True; if (FLocal) and (tTelNo[2] = '2') then FSeoul := True;.. 2011. 4. 5.
[Delphi] 문자 사이에서 숫자 추출 / 숫자 사이에서 문자 추출 { 문자 사이에서 숫자 추출하기 } function ExtractInt(AString: string): string; var I: Integer; TempString: string; begin TempString := ''; AString := Trim(AString); if AString '' then for I := 1 to Length(AString) do if (AString[I] in ['0'..'9']) then TempString := TempString + AString[I]; Result := Trim(TempString); end; { 숫자 사이에서 문자 추출하기 } function ExtractString(AString: string): string; var I: Integer; Te.. 2011. 4. 5.
[Delphi] 바탕화면 강제 새로고침 procedure UpdateDesktop; var hDesktop: HWND; begin hDesktop := FindWindowEx(FindWindowEx (FindWindow('Progman', 'Program Manager'), 0, 'SHELLDLL_DefView', nil), 0, 'SysListView32', nil); PostMessage(hDesktop, WM_KEYDOWN, VK_F5, 0); PostMessage(hDesktop, WM_KEYUP, VK_F5, 1 shl 31); end; 단점)) 새로고침 되면서 깜빡임!! 2011. 4. 5.
[Delphi] 문자수, 바이트수 문자수 ByteToCharLen(str, Length(str)) 바이트수 Length(str) 2011. 4. 5.
[Delphi] URL에서 파일이름 추출하기 ExtractFileName(StringReplace(url, '/', '\', [rfReplaceAll])); 2011. 4. 5.
[Delphi] uJSON 라이브러리 ex) JSONObject.getJSONObject('test').getJSONArray('list').getJSONObject(0).keys.Strings[0] JSONObject.getJSONObject('test').getJSONArray('list').getJSONObject(I).get('name').toString =========================================================================================== procedure TForm1.Test; var JSONObject: TJSONObject; begin JSONObject := TJSONObject.create('json데이타내용'); for i := 0 to JSON.. 2011. 4. 5.
[Delphi] 파일 다운로드 - TFileStream var dStream: TFileStream; begin dStream := TFileStream.Create('파일위치및이름', fmCreate or fmShareExclusive); try try IdHTTP.Get(URL_DOWN, dStream); // 설치파일 다운 except on E: EIdException do ; on E: Exception do ; end; finally dStream.Free; end; end; 2011. 4. 5.
[Delphi] TStringStream을 TStringList에 담기 var StringStream: TStringStream; StringList: TStringList; begin StringList:= TStringList.Create; StringStream := TStringStream.Create(''); StringStream.Position := 0; // Reset to the beginning of the stream IdHTTP.Get('주소', StringStream); StringList.Text := StringStream.DataString; end; 2011. 4. 5.
[Delphi] 폼에 에니메이션 효과주기 AnimateWindow(handle, 1000, AW_HOR_POSITIVE); // 왼쪽->오른쪽 AnimateWindow(handle, 1000, AW_HOR_NEGATIVE); // 오른쪽->왼쪽 AnimateWindow(handle, 1000, AW_VER_POSITIVE); // 위->아래 AnimateWindow(handle, 1000, AW_VER_NEGATIVE); // 아래->위 AnimateWindow(handle, 1000, AW_CENTER); // 내부적으로 축소 혹은 외부적으로 확장 AnimateWindow(handle, 1000, AW_HIDE); // 윈도우를 숨기는 효과 AnimateWindow(handle, 1000, AW_ACTIVATE); // 윈도우 활성화시키는 효.. 2011. 4. 1.
[Delphi] 작업표시줄을 제외한 작업영역 구하기 오른쪽 하단에 팝업처럼 띄우기 var Rect: TRect; begin // 작업표시줄을 제외 한 영역 구하기 SystemParametersInfo(SPI_GETWORKAREA, 0, Pointer(@Rect), 0); Fm_Banner := TFm_Banner.Create(Self); Fm_Banner.Left := Rect.Right - Fm_Banner.Width; Fm_Banner.Top := Rect.Bottom - Fm_Banner.Height; end; 2011. 4. 1.

티스토리툴바