특정 문자열을 찾아내 주는 소스.

델파이 프로그래밍 할 때마다 자주 애용하는 소스이다.
 
function ( source, key: ): Integer;
var
i, j, flen, slen, klen: Integer;
begin
slen := Length( source);
klen := Length( key);
flen := slen - klen + 1;

for i := 1 to flen do
begin
   if source[i]=key[1] then
   begin
     for j := 2 to klen do
     begin
       if source[i+j-1]<>key[j] then break;
     end;

     if j>klen then
     begin
       // the key is found on the source stream
       Result := i;
       exit;
     end;
   end;
end;

Result := -1;
end;


facebook posting twit

  • 프로세스명으로 프로세스 죽이는 함수
  • 빈폴더 찾아내기
  • IE 패치에 따른 object, embed, applet 대처 방안
  • 파일에서 한줄만 읽어다 return 해주는 소스
  • 작업관리자에 프로그램 안뜨게 하기
  • Toolbar에서 Icon 없애기
  • 웹브라우져가 떠서 웹페이지 보이게 하는 소스
  • ActiveX에 다이얼로그 붙이기
  • 드라이브 문자 알아내는 소스
  • ListCtrl에서 아이템 추가하기 예제
    Tagged on:     
  • Leave a Reply