Как да се предпази от DBGrid?
Уважаеми Учителю, моля отговорете на въпроса ми.
Аз ADOQuery1 от базата данни приема данните, след това данните се предават чрез DataSource1 в DBGrid1. Има ли някакъв начин тази информация се записва на текстов файл TXT а? Кой компонент за тази цел, и това, което код?
Не Comp. Стандартен дизайн:
докато не се направи ADOQuery1.Eof
започвам
// запишете кода на текущия запис в текстов файл, Напиши процедура (за текстови файлове) + F1
ADOQuery1.Next;
приключи;
Var е: текст; аз: цяло число; ул: низ;
започвам
# XA0; AssignFile (е "ff.txt");
# XA0; Rewrite (е);
# XA0; ADOQuery1.First;
# XA0, докато не се направи ADOQuery1.eof
# XA0; # XA0; започне
# XA0; # XA0; # XA0; Ул: = "";
# XA0; # XA0; # XA0; защото: = 0 до ADOQuery1.FieldCount направи
# XA0; # XA0; # XA0; # XA0; Ул: = ул + "" "+ ADOQuery1.Fields [Ь] .AsString;
# XA0; # XA0; # XA0; WriteLn (е, ул);
# XA0; # XA0; # XA0; ADOQuery1.Next;
# XA0; # XA0; край;
# XA0; CloseFile (е);
приключи;
Благодаря ви за този съвет. Но имам нужда от диалог с потребителя. Реших да се използва стандартен компонент.
Това е кода:
процедура TForm1.Button6Click (Sender: TObject);
Var
fname: низ;
започвам
fname: = edit6.text;
savedialog1.filename: = fname;
ако savedialog1.Execute след това
# XA0; започне
# XA0; fname: = edit6.text;
# XA0; adoquery1.SaveToFile (fname);
# XA0; край;
приключи;
Но аз трябва да подаде излюпени някои kryakozyabriki. Това, което не е нужно? И все пак по някаква причина, файлът се запазва без разрешение, как да се направи, така че той остава с резолюцията?
Var е: текст; аз: цяло число; ул: низ;
започвам
ако SaveDialog1.Execute след това
# XA0; AssignFile (е, SaveDialog1.FileName);
Препишете (е);
ADOQuery1.First;
докато не се направи ADOQuery1.eof
# XA0; започвам
# XA0; # XA0; # XA0; ул: = "";
# XA0; # XA0; # XA0, защото: = 0 до ADOQuery1.FieldCount направи
# XA0; # XA0; # XA0; # XA0; ул: = ул + "" "+ ADOQuery1.Fields [I] .AsString;
# XA0; # XA0; # XA0; WriteLn (е, ул);
# XA0; # XA0; # XA0; ADOQuery1.Next;
# XA0; приключи;
CloseFile (е);
приключи;
Защо не харесва
е: текст;
[Грешка] Unit1.pas (802): Постоянно или типа на идентификатора очаква
На последния въпрос, си помислих, себе си. ))) Не си мисли, че аз съм глупав, аз съм живот.
Но тогава, когато се намират несъставящи грешки. Но когато започна да спаси самия файл, а след това излита на програмата, както е грешка. Показва, тук по тази линия
Неизправността код тук
повдигнат изключение клас EListError със съобщение "Списък Невалиден индекс (3). Процес спрени. Използвайте Стъпка или Изпълни, за да продължите.
Тогава няма да може да се определи какво се случва. Help.
защото: = 0 до ADOQuery1.FieldCount-1 направи
Свързани статии