안녕하세요?
DB가 RDB이면 DB차원에서 위의 기능을 지원할거구요.
지원안한다면 코딩으로 해결해야겠죠.
아래를 참고해서 해결해 보세요.
proceure DB2Txt(Query: TQuery; FileName:string; Delimeter:char);
var
F: TextFile;
i: Integer;
s: string;
begin
AssignFile(F, FileName);
try
with Query do
begin
DisableControls;
First;
while not EOF do
begin
s:= '';
for i:=0 to FieldCount-1 do
s:= s + Delimeter + Fields[i].AsString;
System.Delete(s, 1, 1);
WriteLn(F, s);
Next;
end;
EnableControls;
end;
팁을 올리신 분은 윤병진 님이시더군요