Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.14;
Скачать: [xml.tar.bz2];




Вниз

Подскажите, очень срочно надо !! 


Yakudza   (2002-01-22 21:39) [0]

Как из Query экспортировать данные в TXT файл с разделителем табуляция, так как это делает Access !!



Фэ   (2002-01-22 22:24) [1]

Надеюсь, разберешься и транслируешь.

procedure TfmQuGrid.m_DataSetToASCII(const ADataSet: TDBISAMDataSet; const ASCIIFile: TFileName; const Delimiter: Char; const QuoteStrings: Boolean);
var tmpList: TStringList;
i,LastIndex: LongInt;
AsciiRecord: String;
begin
tmpList:= TStringList.Create;
try
with ADataSet do begin
LastIndex:= Fields.Count - 1;
First;
while not EOF do begin
AsciiRecord:= "";
for i := 0 to LastIndex do
if Fields.Fields[i].Tag = 0 then begin
if QuoteStrings and
(Fields.Fields[i].DataType in [ftString,ftMemo,ftFmtMemo,ftFixedChar,ftWideString]) then
AsciiRecord:= AsciiRecord + QuotedStr(Fields.Fields[i].AsString)
else
AsciiRecord:= AsciiRecord + Fields.Fields[i].AsString;

if i < LastIndex then
AsciiRecord:= AsciiRecord + Delimiter;
end;
tmpList.Append(AsciiRecord);
Next;
end
end;
try
tmpList.SaveToFile(ASCIIFile)
except
ShowMessage("Could not save table to specified file: " + ASCIIFile)
end;
finally
tmpList.Free;
end;
end;



Yakudza   (2002-01-22 22:35) [2]

Разберусь, куда денусь :)
Только вопрос что это - TDBISAMDataSet?
Спасибо



Yakudza   (2002-01-22 22:43) [3]

>Только вопрос что это - TDBISAMDataSet?
:))Все понял что это.
Еще раз спасибо!



Фэ   (2002-01-23 00:12) [4]

Это из моей биб-ки для работы с DBISAM DataBase.
Убираешь DBISAM и получаешь TDataSet, чьей правнучкой и является TQuery.




Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.14;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.024 c
4-42896           _Dima                 2001-12-18 12:12  2002.02.14  
В Win98 работаю с COM портом - все OK, в Win2k та же прога глючит. Почему ?


3-42693           ТеньЛуны              2002-01-22 10:57  2002.02.14  
dbExpress - поможите люди добрые!


3-42641           wicked                2002-01-18 14:08  2002.02.14  
тип TIMESTAMP


14-42870          BWG                   2001-12-24 14:47  2002.02.14  
Требуется написать терминалку


1-42772           Dimk                  2002-01-31 11:25  2002.02.14  
Как в QReport заставить таблицу печататься в несколько полос?