Witam wszystkich forumowiczów,
Otóż mam problem, polegający na tym, że mam bazę danych, która podczas kończenia programu pyta się, czy zapisać zmiany. O tak:
Procedure TFormaGlowna.FormClose(Sender: TObject; Var Action: TCloseAction);
Var
I:Integer;
Begin
If PlikZmieniony
Then Case Application.MessageBox('Zapisać Zmiany?','Pytanie!',3) Of
mrYES: Begin
Rewrite(Plik);
For I:=0 To Ile Do Write(Plik,T[I]);
CloseFile(Plik);
End;
mrNO: Begin
End;
mrCancel: Action:=caNone;
End;
End;
Tyle, że oczywiście baza zawarta jest w jednym pliku:
AssignFile(Plik,'Film.dat');
If FileExists('Film.dat')
Then Reset(Plik)
Else Rewrite (Plik);
While Not Eof(Plik) Do Begin
Inc(Ile);
Read(Plik,T[Ile]);
End;
A ja chciałbym, aby użytkownik, sam wybrał sobie nazwę pliku, czyli coś w stylu zapisz jako. Czy ktoś mógłby mnie nakierować? Na początku myślałem, żeby w AssignFile wpisać zmienną, ale nie udaje mi się to w żaden sposób. Proszę o pomoc. Z góry dzieki...