csv파일을 불러와 메모리 테이블에 저장을 하여
그 정보를 수정하고
다시 재저장 하고 싶습니다.
with dm.RxMemoryData1 do
begin
Edit;
FieldByName('LDist').Asinteger := strtoint(dist.text);
FieldByName('Lx').Asinteger := strtoint(xvalue.text);
FieldByName('Ly').Asinteger := strtoint(yvalue.text);
FieldByName('Lz').Asinteger := strtoint(zvalue.text);
FieldByName('Lcomment').AsString := Disc.text;
Post;
end;
이런식으로 내용을 메모리 테이블에 저장은 했는데..;;
csv 파일의 내용이 바뀌어야하는데..
어떻게 하는 지 모르겟네요..
도와주세요 ㅠㅠㅠㅠ
var
List: TStringList;
Contents: string;
begin
List := TStringList.Create;
dm.RxMemoryData1.First
while not dm.RxMemoryData1.EoF do
begin
Contents := IntToStr(FieldByName('LDist').Asinteger) + ',' +
IntToStr(FieldByName('Lx').Asinteger) + ',' +
IntToStr(FieldByName('Ly').Asinteger) + ',' +
IntToStr(FieldByName('Lz').Asinteger) + ',' +
FieldByName('Lcomment').AsString;
List.Add(Contents);
dm.RxMemoryData1.Next
end;
List.SaveToFile('c:\list.csv');
List.Free;
end;