Hogyan kerülheted el a dbgrid
Hogyan kerülheted el a DBGrid?
Kedves Mester, kérjük, válaszoljon a kérdésre.
Azt ADOQuery1 az adatbázisból veszi az adatokat, akkor az adatátvitel útján DataSource1 a DBGrid1. Van-e bármilyen módon az adatok mentési egy szöveges fájlt txt? Melyik komponens erre a célra, és milyen kódot?
Nem Comp. Standard kivitel:
miközben nem ADOQuery1.Eof csinálni
kezdődik
// mentse el a kódot az aktuális rekord egy szöveges fájl, írása eljárás (szöveges fájlok) + F1
ADOQuery1.Next;
végén;
var f: a szöveget; i: integer; Str: string;
kezdődik
# XA0; AssignFile (f, "ff.txt");
# XA0; átírási (f);
# XA0; ADOQuery1.First;
# XA0, míg nem ADOQuery1.eof csinálni
# XA0; # XA0; kezdődik
# XA0; # XA0; # XA0; Str: = "";
# XA0; # XA0; # XA0; i: = 0 ADOQuery1.FieldCount do
# XA0; # XA0; # XA0; # XA0; Str: = Str + "" „+ ADOQuery1.Fields [i] .AsString;
# XA0; # XA0; # XA0; WriteLn (f, Str);
# XA0; # XA0; # XA0; ADOQuery1.Next;
# XA0; # XA0; end;
# XA0; CloseFile (f);
végén;
Köszönöm ezt a tanácsot. De szükségem van egy párbeszéd a felhasználó. Úgy döntöttem, hogy egy szabványos komponens.
Itt a kód:
eljárás TForm1.Button6Click (Sender: TObject);
var
fname: string;
kezdődik
fname: = edit6.text;
savedialog1.filename: = fname;
ha savedialog1.Execute majd
# XA0; kezdődik
# XA0; fname: = edit6.text;
# XA0; adoquery1.SaveToFile (fname);
# XA0; end;
végén;
De van, hogy a fájl kikelt néhány kryakozyabriki. Amit nem? És mégis valamilyen oknál fogva, a fájl megmarad engedély nélkül, hogyan kell csinálni, így maradt a felbontás?
var f: a szöveget; i: integer; Str: string;
kezdődik
ha SaveDialog1.Execute majd
# XA0; AssignFile (f, SaveDialog1.FileName);
Átírása (f);
ADOQuery1.First;
miközben nem ADOQuery1.eof csinálni
# XA0; kezdődik
# XA0; # XA0; # XA0; Str: = "";
# XA0; # XA0; # XA0; i: = 0 ADOQuery1.FieldCount do
# XA0; # XA0; # XA0; # XA0; Str: = Str + "" „+ ADOQuery1.Fields [i] .AsString;
# XA0; # XA0; # XA0; WriteLn (f, Str);
# XA0; # XA0; # XA0; ADOQuery1.Next;
# XA0; végén;
CloseFile (f);
végén;
Miért nem tetszik
f: a szöveget;
[Error] Unit1.pas (802): Az állandó vagy típus azonosítót várható
Az utolsó kérdés, rájöttem magam. ))) Nem hiszem, hogy hülye vagyok, tanulok.
De aztán, amikor fordítási hibákat találtak. De amikor elkezdem a fájlt menteni magát, majd kirepül a program, mint egy hiba. Azt jelzi, itt ezen a vonalon
A hibakód itt
emelt kivétel osztály EListError üzenettel „List index a határokat (3). folyamat megállt. Használja lépés futtatása a folytatáshoz.
Aztán nem lesz képes meghatározni, hogy mi történik. Súgó.
i: = 0 ADOQuery1.FieldCount-1 do