Сохранение данных текстовый файл...

← →
SoLRoN (2005-06-06 14:17) [0]

Необходимо сохранить данные из таблицы в текстовый файл.

делаю так:
var fl: TextFile; i:integer; tmp:PAnsiChar; begin AssignFile(fl,"C:\123456.txt"); rewrite(fl); Query1.First; for i:=1 to Query1.RecordCount do begin Query1.GetFieldData(Query1.FieldByName("Family"),tmp); write(fl,tmp," "); Query1.GetFieldData(Query1.FieldByName("Name"),tmp); write(fl,tmp," "); Query1.GetFieldData(Query1.FieldByName("Patro"),tmp); writeln(fl,tmp); Query1.Next; end; closefile(fl);

но не помогает! Вылетает с ошибкой access violation ... in module "SQLMSS32.dll";

зато если вместо write сделать application.messagebox то поля выводятся

← →
Anatoly Podgoretsky © (2005-06-06 14:29) [1]

А память будет Пушкин выделять?

← →
Digitman © (2005-06-06 14:29) [2]

> не помогает

это же не касторка

← →
stone © (2005-06-06 14:31) [3]

...
S: string;
...
while not Query1.Eof do
begin
S := "";
for i := 0 to Query1.FieldCount-1 do
S := Query1.Fields[i].AsString + " ";
writeLn(fl,S);
Query1.Next;
end;

← →
SoLRoN (2005-06-06 14:31) [4]

0_0 память? Это как? И попутно вопрос - можно ли выгузить данные в кодировке ISO 8859-5?

← →
SoLRoN (2005-06-06 14:34) [5]

Вот те раз пока писал уже стольк ответов!
Спасибо stone! реально помог а не просто пофлудил...

А что насчет кодировки?

← →
Алхимик © (2005-06-06 14:40) [6]

> 4] SoLRoN (06.06.05 14:31)
> 0_0 память? Это как?

PAnsiChar - указатель.

← →
Anatoly Podgoretsky © (2005-06-06 14:45) [7]

SoLRoN (06.06.05 14:34) [5]
Для WriteLn безразницы какая кодировка.

← →
SoLRoN (2005-06-06 14:46) [8]

2Алхимик:
Я имею в виду как выделить память?
Но теперь меня интересует кодировка...

сейчас процедура выглядит так:
var fl: TextFile; i:integer; str:string; begin AssignFile(fl,"C:\123456.txt"); rewrite(fl); while not Query1.Eof do begin str:= Query1.FieldByName("Family").AsString+" "; str:= str + Query1.FieldByName("Name").AsString+" "; str:= str + Query1.FieldByName("Patro").AsString; writeln(fl,str); Query1.Next; end; closefile(fl); end;

← →
SoLRoN (2005-06-06 14:59) [9]

Да я понимаю что Для WriteLn безразницы какая кодировка но в базе она храница не в ISO кодировке, а в файле должна быть уже исо, может есть стандартные средства перекодирования? Или может быть запрос может получить данные в иной кодировке?

> SoLRoN (06.06.05 14:34) [5]
> а не просто пофлудил

а ты против факта лечебных свойств касторки ?)

которую обычно употребляют, когда что-то непонятное "не помогает" в ходе "лечения" какой-то непонятной "болезни")..

а диагноз прояснился только к [9]

SoLRoN (06.06.05 14:59) [9]
Какие еще стандартные, из неизвестной, почему то в ISO
Данные в одной кодировке преобразовываются в другую допустимую с помощью одной самописной функции весьма простого характера в одну, две или три строчки как правило.

Сохранение данных текстовый файл... Найти похожие ветки