Function StrTonumber(cStr : String):string;
var nPos : integer;
cResult : String;
Begin
cResult := '';
For nPos := 1 To Length(cStr) do
begin
if (cStr[nPos] >= '0') and (cStr[nPos] <= '9') then
cResult := cResult + cStr[nPos];
end;
Result := cResult;
End;
밑의 Function 써보세요... 잘돌아갑니다...
var
S_DAT, S_Result : String;
begin
S_DAT <-=== '2002-12-12 13:11:13'
S_Result := StrTonumber(S_DAT);
End;
Function StrTonumber(cStr : String):string;
var nPos : integer;
cResult : String;
Begin
cResult := '';
For nPos := 1 To Length(cStr) do
begin
if (cStr[nPos] >= '0') and (cStr[nPos] <= '9') then
cResult := cResult + cStr[nPos];
end;
Result := cResult;
End;
그럼 즐프하세요....