/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
Advarelse af overskrivning af file
Fra : Monie Jacobsen


Dato : 10-07-02 12:21

Hej

Kan du hjælpe mig med, at få denne SavDialog til, at advarer om en ligende
fil skal overskrives?
Gerne med en ny MessageDlg hvor en sådan handling kan standses.


with SaveDialog1 do

if Execute then

begin



CASE DefMessageDlg('Ønskes filen?','GemSom: '+ FileName +'.TXT ',

mtConfirmation, mbYesNoCancel, mryes, 0) of

idYes: ListBox1.Items.SaveToFile(SaveDialog1.FileName +'.txt');

idNo: close;

idCancel: exit;

end;

end;





Med venlig hilsen

Monie






 
 
Juno (10-07-2002)
Kommentar
Fra : Juno


Dato : 10-07-02 13:01

"Monie Jacobsen" <monie@tdcadsl.dk> skrev i en meddelelse
news:3d2c187c$0$13961$edfadb0f@dspool01.news.tele.dk
> Hej
>
> Kan du hjælpe mig med, at få denne SavDialog til, at advarer om en
> ligende fil skal overskrives?
> Gerne med en ny MessageDlg hvor en sådan handling kan standses.

SaveDialog har en "property" der hedder "options". Kan sættes i
ObjectInspector.
ofOverwritePrompt
Generates a warning message if the user tries to select a file name that
is already in use, asking whether to overwrite the existing file. (Use
with TSaveDialog and TSavePictureDialog.)

ofCreatePrompt
Generates a warning message if the user tries to select a nonexistent
file, asking whether to create a new file with the specified name.

Der er flere end de 2... kig evt i hjælpen under TOpendialog options.
De options du vil slå til, sætter du til True;

Så kan du lave noget á la

if not SaveDialog1.Execute then Exit;
ListBox1.Items.SaveToFile(SaveDialog1.FileName);

ikke noget med ..FileName+'.txt',
dels må det må være op til brugeren, dels kan dialogen selv sætte det
ind, så du ender med en "filnavn.txt.txt"
Du kan sætte SaveDialog1.Filter inden Execute:
SaveDialog1.Filter := 'Tekst filer [*.txt]|*.txt';

--
*/*
jUno
spamfilter: Fjern din bh



Monie Jacobsen (11-07-2002)
Kommentar
Fra : Monie Jacobsen


Dato : 11-07-02 06:12

Tak for tipet Uno!

Med venlig hilsen

Monie




Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408849
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste