Скачать: CL | DM;

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

← →
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 кодировке, а в файле должна быть уже исо, может есть стандартные средства перекодирования? Или может быть запрос может получить данные в иной кодировке?

---

← →
Digitman ©   (2005-06-06 15:09) [10]

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


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

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

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

---

← →
Anatoly Podgoretsky ©   (2005-06-06 16:18) [11]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.027 c