래채'sTory

패스트레포트 메뉴얼

FastReport_ProgrammerManual (274kb) 42P

http://delphi.borlandforum.com/impboard/attach/0000085987/FastReport_ProgrammerManual.pdf

FastReport_DeveloperManual (268kb) 43P

http://delphi.borlandforum.com/impboard/attach/0000085987/FastReport_DeveloperManual.pdf

FastReport_UserManual (3376kb) 142P

http://delphi.borlandforum.com/impboard/attach/0000085987/FastReport_UserManual.pdf

원본 링크 : http://blog.cyworld.com/gaon59/7000861

// 문자에서 숫자만 추출하는 함수

function FindNumber(Target: string): string;

var

 i, nCnt, dLen: Integer;

 dStr: string;

begin

  dLen := Length(Target);

  for i := 1 to dLen do begin

    if not(Target[i] in['0'..'9']) then Continue;

    for nCnt := i to dLen do begin

      if not(Target[nCnt] in['0'..'9']) then Continue;

      dStr := dStr + Target[nCnt];

    end;

    Result := dStr;

    Break;

  end;

end;

주민등록번호 검사 함수 ( '-' 을 제외한 숫자만 남긴 형태로 가공하여 매개변수로 넣어야 함)

function 주민번호체크(const s: String): Boolean; 

const weight='234567892345';

var 

  Sum, i: Integer;

  last, lastRes: Integer;

begin 

  Result:=False;

  if Length(Trim(s))<>13 then Exit

  else begin

    Sum:=0;

    for i:=1 to 12 do Sum:=Sum+(StrToInt(s[i])*StrToInt(weight[i]));

    last:=Sum mod 11;

    LastRes:=11 - last;

    if LastRes=10 then LastRes:=0

    else if LastRes=11 then LastRes:=1;

    if LastRes=StrToInt(s[13]) then Result:=True;

  end;

end; 

신용카드번호 검사 함수 ( '-' 을 제외한 숫자만 남긴 형태로 가공하여 매개변수로 넣어야 함)

function 카드번호체크(const s: String): Boolean; 

var

  tmpInt: array [0..15] of Integer;

  i: Integer;

  tmpStr: String;

  ResultInt, LastInt: Integer;

begin

  Result:=False;

  if Length(Trim(s))<>16 then Exit

  else begin

    for i:=0 to 14 do begin

      if (i mod 2)=0 then begin

        tmpInt[i]:=StrToInt(s[i+1])*2;

      if tmpInt[i]>9 then begin

        tmpStr:=IntToStr(tmpInt[i]);

        tmpInt[i]:=StrToInt(tmpStr[1])+StrToInt(tmpStr[2]);

      end;

      end

      else tmpInt[i]:=StrToInt(s[i+1]);

    end;

    ResultInt:=0;

    for i:=0 to 14 do ResultInt:=ResultInt+tmpInt[i];

    tmpStr:=IntToStr(ResultInt);

    LastInt:=10 - StrToInt(tmpStr[Length(tmpStr)]);

    if s[16]=IntToStr(LastInt) then Result:=True;

  end;

end;

원본 링크 : http://bloodguy.tistory.com/entry/Delphi-%EC%A3%BC%EB%AF%BC%EB%93%B1%EB%A1%9D%EB%B2%88%ED%98%B8-%EC%8B%A0%EC%9A%A9%EC%B9%B4%EB%93%9C%EB%B2%88%ED%98%B8-%EC%9C%A0%ED%9A%A8%EC%84%B1-%EA%B2%80%EC%82%AC