|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Создание текстовых файлов с заранее неопределенным именем
Есть такая беда
DBCombobox1 (студенты) и combobox1 (№л/р) необходимо из их значений создать файл txt, а в этот тхт необходимо записать все из edit, а если есть файл то загрузить его в Edit1 для просмотра Суть работы что-то типа контроль сданных лабораторок |
#2
|
|||
|
|||
Цитата:
Ну и в чем проблема? Код:
var FileName : String; begin FileName := DBCombobox1.Text + Combobox1.Text + '.txt'; If FileExists(FleName) Then LoadData(FileName) // LoadData сам напишешь. Else SaveData(FileName); // SaveData сам напишешь. Загрузка и сохранение данных - через TStringList или через файловые операции (AssignFile/Reset/Rewrite/CloseFile) по выбору. |
Этот пользователь сказал Спасибо lmikle за это полезное сообщение: | ||
egorval (04.06.2013)
|
#3
|
|||
|
|||
Я уже лет 5 не занимался всем этим что-то помню, а вот с файлами есть проблемка
Код:
var procedure loaddata(); procedure savedata(); procedure loaddata(); var f:TextFile; FileName : String; begin AssignFile(f,Filename); Rewrite(f); readln(f, Edit1.Text); CloseFile(f); end; procedure savedata(); var f:TextFile; FileName : String; begin AssignFile(f,Filename); Rewrite(f); writeln(f, Edit1.Text); CloseFile(f); end; lmikle: 1. Пользуемся тегами. 2. Так работать не будет. Дело в том, что Text - это property. С ним так поступать не рекомендуется. Ниже написал сами функции. Последний раз редактировалось lmikle, 04.06.2013 в 08:43. |
#4
|
|||
|
|||
Цитата:
И какая? Вызови справку по AssignFile - там должен быть пример... Цитата:
В твоем случае: Код:
function LoadData(AFileName : String) : String; var F: TextFile; begin If Not FileExists(AFileName) Then Result := '' Else Begin AssignFile(F, AFileName); Reset(F); Readln(F, Result); CloseFile(F); End; end; procedure SaveData(AFileName : String; S : String); begin AssignFile(F, AFileName); Rewrite(F); WriteLn(F, S); CloseFile(F); end; Использование: Код:
Edit1.Text := LoadData(AFileName); SaveData(AFileName,Edit1.Text); // Вот так можно :) Последний раз редактировалось lmikle, 04.06.2013 в 08:44. |
#5
|
|||
|
|||
ЧТо я делаю не так? Form3
|
#6
|
|||
|
|||
Цитата:
Добавил кое-что и поправил кое-что. Кстати, сделай проверку, что в списках ничего не выбрано... |
Этот пользователь сказал Спасибо lmikle за это полезное сообщение: | ||
egorval (04.06.2013)
|
#7
|
|||
|
|||
Проверку сделаю.
Все это сделал с мемо. Остался один момент. Как в DBGrid связать то что есть этот соответствующий файл +\-? (Form2) Последний раз редактировалось egorval, 04.06.2013 в 09:42. |