Я уже замучился с этими курсовыми, помогите плз
Код:
Qry1.SQL.Clear;
Qry1.SQL.Add('SELECT tr1, tr1.tovar, tr1.cena');
Qry1.SQL.Add('FROM tr1');
Qry1.SQL.Add('WHERE ((tr1.cena) BETWEEN (DateValue(''' + Edt1.Text +
''')) AND (DateValue(''' + Edt2.Text + ''')));');
Qry1.Active := True;
AssignFile(sqlfile,'sql_instructions.txt');
Rewrite(sqlfile);
for i := 0 to Qry1.SQL.Count-1 do
Writeln(sqlfile, Qry1.SQL.Strings[i]);
CloseFile(sqlfile);
в одной проге все работает, я взял код и переименовал под себя, все проверил и исправил, но тут застрял.