자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다.
- 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)
Delphi ClientDataSet을 XML로 저장시
2015.10.26 17:41
본 게시판 사용시 당부 사항
* 이 게시판은 누구나 자유롭게 질문을 올리고 자발적으로 답변을 공유하는 게시판입니다.
* 따라서 질문을 올리실 때에는 최대한 자세하고 정중하게 질문을 올려 주세요.
* 최대한 질문을 자세히 올려야 답변도 자세히 올라 옵니다.
* 본 질문에 답변을 주시는 여러 개발자님들께 미리 감사드립니다.
-----------------------------------------------------------------------------------------------
기존 Delphi 7에서는 ClientDataSet.SaveToFile로 Float 타입의 데이터를
XML로 저장시 소수점이 없는 경우 정수만 생성되었는데 (ex. 1024)
10 Seattle에서는 정수뒤에 점(.)이 찍혀 나옵니다. (ex. 1024.)
혹시 점(.)이 생성되지 않도록 하는 방법이 있는지 궁금합니다
댓글 1
Delphi ClientDataSet을 XML로 저장시
2015.10.26 17:41
본 게시판 사용시 당부 사항
* 이 게시판은 누구나 자유롭게 질문을 올리고 자발적으로 답변을 공유하는 게시판입니다.
* 따라서 질문을 올리실 때에는 최대한 자세하고 정중하게 질문을 올려 주세요.
* 최대한 질문을 자세히 올려야 답변도 자세히 올라 옵니다.
* 본 질문에 답변을 주시는 여러 개발자님들께 미리 감사드립니다.
-----------------------------------------------------------------------------------------------
기존 Delphi 7에서는 ClientDataSet.SaveToFile로 Float 타입의 데이터를
XML로 저장시 소수점이 없는 경우 정수만 생성되었는데 (ex. 1024)
10 Seattle에서는 정수뒤에 점(.)이 찍혀 나옵니다. (ex. 1024.)
혹시 점(.)이 생성되지 않도록 하는 방법이 있는지 궁금합니다
다음과 같이 테스트 시 점이 포함되지 않고 xml 파일이 기록됩니다.
ClientDataSetSaveXmlFile.zip
procedure TForm3.Button1Click(Sender: TObject);
begin
if SaveDialog1.Execute then
ClientDataSet1.SaveToFile(SaveDialog1.FileName, dfXML);
end;
procedure TForm3.FormCreate(Sender: TObject);
begin
With ClientDataSet1 do begin
FieldDefs.Add('sSource', ftString, 10);
FieldDefs.Add('fMoney', ftFloat);
FieldDefs.Add('iOrder', ftInteger);
CreateDataSet;
LogChanges := False;
Open;
end;
end;