Avatar billede betatron Nybegynder
21. april 2002 - 14:15 Der er 13 kommentarer og
1 løsning

at lukke eller ikke at lukke!!!

Jeg har det windows-baserede Delphi 6.0 Personal.

1.)
Jeg har alle mulige gamle word-filer på hele mit C-drev i mange forskellige mapper, som bare ligger og fylder.
Jeg ved at man kan slette alle filer i en mappe ved at skrive følgende kode:

DeleteFilesInFolder('C:\gamle word-filer', '*.doc');
(plus en masse andre koder),
men hvad skal jeg skrive i
stedet for "C:\gamle word-filer" hvis jeg vil slette alle word dokumenter på mit C-drev?
(Jeg har prøvet bare at skrive: "C:\",men så sletter den ikke word-filer inde i C-drevets mapper)

2.)
I Object Inspector'en under fanebladet "Events" fides der en kommando der hedder "OnClose".
Hvis jeg nu gerne vil have at mit program ikke kan lukkes ned, hvad skal jeg så skrive??
Skal jeg skrive:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin
form1.don't close; (eller hvad??)
end;

(Det sidste var bare en joke!!)
Avatar billede dkn Nybegynder
21. april 2002 - 14:18 #1
2: Action := canone;
Avatar billede dkn Nybegynder
21. april 2002 - 14:19 #2
Eller brug closeQuery, den er lidt nemmere at forstå
Avatar billede hermandsen Juniormester
21. april 2002 - 14:20 #3
2) Hvis du ikke vil have at programmet skal lukke ned skal du bruge OnCloseQuery og bare sætte CanClose til False.

Eksempel fra hjælpen:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin
  if MessageDlg('Close the form?', mtConfirmation,
    [mbOk, mbCancel], 0) = mrCancel then
    CanClose := False;
end;
Avatar billede mr.meincke Nybegynder
21. april 2002 - 14:21 #4
hermandsens svar er det rigtige
Avatar billede dkn Nybegynder
21. april 2002 - 14:24 #5
dkn's svar er det rigtige
Avatar billede mr.meincke Nybegynder
21. april 2002 - 14:26 #6
hehe
Avatar billede mr.meincke Nybegynder
21. april 2002 - 14:27 #7
nåååå....forstod ikke hvorfor du skrev 2: Action..osv....
DKN's og Hermandsen's svar er rigtige
Avatar billede hermandsen Juniormester
21. april 2002 - 14:30 #8
Hehe...

Det første spørgsmål kan jeg nok desværre ikke hjælpe dig dem, da jeg kører Delphi 5, og jeg kan ikke finde noget der hedder DeleteFilesInFolder... Hverken i hjælpen eller hvis jeg skriver den i Delphi... Såh, det er nok noget nyt i Delphi 6 skal du se!
Avatar billede dkn Nybegynder
21. april 2002 - 14:32 #9
hermandsen -> han skriver jo at der er en masse andet kode, hvilket nok betyder at det er en procedure han selv har lavet....
Avatar billede dkn Nybegynder
21. april 2002 - 14:33 #10
betatron -> Skal jeg lave et eksempel ang spørgsmål 1 ?
Avatar billede hermandsen Juniormester
21. april 2002 - 14:40 #11
Arh... :)

Jeg tænkte bare at det var en ny procedure i Delphi 6! :)
Avatar billede dkn Nybegynder
21. april 2002 - 14:44 #12
hehe okay :)
Avatar billede betatron Nybegynder
21. april 2002 - 14:49 #13
dkn har ret, det er en procedure jeg selv har lavet (jeg gad bare ikke skrive hele koden, for den er lang).

Ja tak dkn, et eksempel ville være rart. :)
Avatar billede dkn Nybegynder
21. april 2002 - 15:37 #14
www.asdev.dk/Files/eks201166.zip

Det er helt på eget ansvar hvis der sker noget....

dkn
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester