FS: TStream; I: Integer; begin Table1.Open; Table1.First; if not Table1.Eof then begin FS:=TFileStream.Create('DB.txt', fmCreate); try while not Table1.Eof do begin S:=''; for I:=0 to Table1.FieldCount-1 do S:=S+format('%s ; ',[Table1.Fields[I].AsString]); S:=S+#13#10; FS.WriteBuffer(S[1], Length(S)); Table1.Next; end; finally FS.Free; end; end; end;
begin
Table1.Open;
Table1.First;
if not Table1.Eof
then begin
FS:=TFileStream.Create('DB.txt', fmCreate);
try
while not Table1.Eof
do begin
S:='';
for I:=0 to Table1.FieldCount-1
do S:=S+format('%s ; ',[Table1.Fields[I].AsString]);
S:=S+#13#10;
FS.WriteBuffer(S[1], Length(S));
Table1.Next;
end;
finally
FS.Free;
end;
end;
end;