[egorval]

Есть такая беда
DBCombobox1 (студенты) и combobox1 (№л/р) необходимо из их значений создать файл txt, а в этот тхт необходимо записать все из edit, а если есть файл то загрузить его в Edit1 для просмотра
Суть работы что-то типа контроль сданных лабораторок

[lmikle]

Сообщение от egorval

Есть такая беда
DBCombobox1 (студенты) и combobox1 (№л/р) необходимо из их значений создать файл txt, а в этот тхт необходимо записать все из edit, а если есть файл то загрузить его в Edit1 для просмотра
Суть работы что-то типа контроль сданных лабораторок

Ну и в чем проблема?

Код:

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) по выбору.

[egorval]

Я уже лет 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]

Сообщение от egorval

Я уже лет 5 не занимался всем этим что-то помню, а вот с файлами есть проблемка

И какая? Вызови справку по AssignFile - там должен быть пример...

Сообщение от Help

Код:

var 
  F: TextFile;
  S: string;
begin
  if OpenDialog1.Execute then            { Display Open dialog box }
  begin
    AssignFile(F, OpenDialog1.FileName); { File selected in dialog }
    Reset(F);
    Readln(F, S);                        { Read first line of file }
    Edit1.Text := S;                     { Put string in a TEdit control }
    CloseFile(F);
  end;
end;

В твоем случае:

Код:

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); // Вот так можно :)

[egorval]

ЧТо я делаю не так? Form3

[lmikle]

Сообщение от egorval

ЧТо я делаю не так? Form3

Добавил кое-что и поправил кое-что.
Кстати, сделай проверку, что в списках ничего не выбрано...

[egorval]

Проверку сделаю.
Все это сделал с мемо.
Остался один момент.
Как в DBGrid связать то что есть этот соответствующий файл +\-? (Form2)