Hallo Jürgen,
ich hab mir mal folgendes zurecht geschrieben:
Delphi-Quellcode:
function TForm1.Backup: Boolean;
var Year, Month, Day: Word;
Vergleich: TDateTime;
begin
Vergleich := Now;
DecodeDate(Vergleich, Year, Month, Day);
Result := Day = 1;
end;
procedure Backup_DB;
var clear_DB:Boolean ;
begin
if TForm1.Backup.Result := 1
then begin
Dateiname := '
c:\test\backup\daten' + datetostr(now) + '
.mdb';
copyFileTo('
c:\test\db\daten.mdb' , Dateiname );
clear_DB := 1;
end;
if clear_DB := 1
then begin
DataModule6.ADOTable1.Close;
DataModule6.ADOTable1.Open;
DataModule6.ADOCommand1.Execute;
DataModule6.ADOTable1.Close;
DataModule6.ADOTable1.Open;
clear_DB := 0;
end;
end;
Ich bekomme in der Zeile
if TForm1.Backup.Result := 1 then begin
einen Fehler beim Übersetzen, woran könnte das Liegen?
Könnt ihr sonst noch einen Denkfehler entdecken?