Как сохранить таблицу

← →
Newman © (2003-10-26 16:56) [0]

Здравствуйте Мастера!

Как сохранить таблицу DBGrid т.е. сохранить в txt файле.

Спасибо

← →
jack128 © (2003-10-26 17:08) [1]

with MyDataSet do
begin
First;
while not Eof do
begin
for i := 0 to Fields.Count - 1 do
s := s + #9 + Fileds[i].AsString;
s[Length(s)] := #0;
Append(MyTextFile, s);
s := ""
Next;
end;
end;
Примерно так..

P.S. f : Text; s: string;

← →
jack128 © (2003-10-26 17:12) [2]

еще замечания MyDataSet := MyDbGrid.DataSource.DataSet;

> s[Length(s)] := #0;
читать как s[Length(s)-1] := #0;

← →
jack128 © (2003-10-26 17:19) [3]

я глючу- прозьба не обращать внимания на код выше..

Влезу я со своим EhLib"ом, можно? ;)
DbGridEh умеет сам себя сохранять в txt,html,xls и csv.

Как сохранить таблицу Найти похожие ветки