^^
다름이 아니오라 내공이 부족하여 간단한 것 같은데 헤메고 있네요
DBGrid(Query)의 내용을 Text파일로 저장하려고 하는데요.
저장하고 나서 확인해 보니 한글이 깨져 있네여...
어찌해야 하는가요?
고수님들 도움을 부탁드립니다.
try
Query2.first;
for i := 1 to Query2.RecordCount do
begin
for j := 1 to Query2.FieldCount do
begin
dum := dum + Query2.Fields[j-1].AsString + ' ';
end;
dum := dum + #13#10;
Query2.Next;
end;
FStream.Write(dum, Length(dum)) <== 아마 이게 이상한것 같아요.
finally
FStream.Free;
end;
Text : TextFile;
dum:String;
begin
AssignFile(Text, 'c:data.txt');
Rewrite(Text);
Query2.first;
while not Query2.eof do
begin
for j := 1 to Query2.FieldCount do
begin
dum := dum + Query2.Fields[j-1].AsString + ' ';
end;
Writeln(Text, dum);
Query2.Next;
end;
Close(Text);
end;