자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다.
- 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)
Firemonkey string 타입 질문입니다.
2017.03.20 18:13
본 게시판 사용시 당부 사항
* 이 게시판은 자유롭게 질문을 올리고 자발적으로 답변을 공유하는 게시판입니다.
* 어느 누구도 답변을 달아야만 하는 책임은 없습니다.
* 따라서 질문을 올리실 때에는 최대한 자세하고 정중하게 질문을 올려 주세요.
* 최대한 질문을 자세히 올려야 답변도 자세히 올라 옵니다.
* 본 질문에 답변을 주시는 여러 개발자님들께 미리 감사드립니다.
-----------------------------------------------------------------------------------------------
function StrToFloatDouble(S : String; ADefault : integer) : Double;
Var
i : integer;
W : String;
begin
if S = '' then begin
Result := ADefault;
Exit;
end;
try
for i := 1 to Length(S) do begin
if S[i] in ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '.','-'] then begin
W := W + S[i];
//if i =1 then
// NamLib.ShowMsg(S[i]);
end;
end;
Result := StrToFloat(W);
except
Result := ADefault;
end;
end;
StrToFloatDouble('1',0)
VCL 폼에서 실행하면 1이 리턴됩니다
파이어몽키에서 폰으로 연결해서 실행하면 0 이 나옵니다.
for i := 0 부터 시작하면 재대로 받아옵니다.
파이어 몽키에서는 무었때문에 저렇게 나오는 건가요.?
수고하세요.
Firemonkey string 타입 질문입니다.
2017.03.20 18:13
본 게시판 사용시 당부 사항
* 이 게시판은 자유롭게 질문을 올리고 자발적으로 답변을 공유하는 게시판입니다.
* 어느 누구도 답변을 달아야만 하는 책임은 없습니다.
* 따라서 질문을 올리실 때에는 최대한 자세하고 정중하게 질문을 올려 주세요.
* 최대한 질문을 자세히 올려야 답변도 자세히 올라 옵니다.
* 본 질문에 답변을 주시는 여러 개발자님들께 미리 감사드립니다.
-----------------------------------------------------------------------------------------------
function StrToFloatDouble(S : String; ADefault : integer) : Double;
Var
i : integer;
W : String;
begin
if S = '' then begin
Result := ADefault;
Exit;
end;
try
for i := 1 to Length(S) do begin
if S[i] in ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '.','-'] then begin
W := W + S[i];
//if i =1 then
// NamLib.ShowMsg(S[i]);
end;
end;
Result := StrToFloat(W);
except
Result := ADefault;
end;
end;
StrToFloatDouble('1',0)
VCL 폼에서 실행하면 1이 리턴됩니다
파이어몽키에서 폰으로 연결해서 실행하면 0 이 나옵니다.
for i := 0 부터 시작하면 재대로 받아옵니다.
파이어 몽키에서는 무었때문에 저렇게 나오는 건가요.?
수고하세요.
파이어 몽키는 VCL과 다르게 1 based 배열은 안 되고 0 based 배열만 가능합니다.