delphi - Save (Ikke save as..) - Udvikleren.dk - Programmering, webdesign og grafik

Tags: delphi

Bruger #2779 @ 29.03.04 11:30

Hej udviklere

(Note : Hvis antallet af points er unfair, så fortæl det venligst. Jeg kender endnu ikke værdien af dem

Jeg sidder og arbejder på en kode-editor. Hertil er der naturligvis tilknyttet en 'Save as..'-funktion, og den virker perfekt.

Mit problem består i, at lave en 'Save'-funktion. Dvs. en funktion, som overskriver den allerede gemte funktion.

Jeg havde forestillet mig en variabel, der blev true, når jeg allerede havde gemt filen vha. 'Save as..'. Dermed kan jeg tjekke, om den skal frembringe en 'Save as..'-dialog, eller blot overskrive, når brugeren vælger 'Save' i min menu.

Men hvordan overskriver jeg den aktuelle fil ?

På forhånd tak for svar :-)

8 svar postet i denne tråd vises herunder
3 indlæg har modtaget i alt 3 karma

Sorter efter stemmer Sorter efter dato

Bruger #3470 @ 29.03.04 17:16

247

Bare Memo1.Lines.SaveToFile eller hvad du nu bruger...
den overskriver selv den gamle fil...
_______________________________________
-----------------------{ nife}------------------------_______________________________________

Bruger #4468 @ 29.03.04 19:48

221

Hmm tror du skal bruge Memo1.lines.savetofile(memo1.caption); for at det virker.
Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------

Bruger #4737 @ 07.04.04 15:21

Her har du et eksempel, som jeg selv bruger til min teksteditor:

Kode
procedure TForm1.Gem1Click(Sender: TObject);
begin
  if Filnavn = '' then
  begin
    SaveDialog1.Execute;
    Filnavn := SaveDialog1.FileName;
  end;
  if Filnavn = '' then else  Memo1.Lines.Savetofile(Filnavn);
end;
Håber det kan bruges

Øhh.. Har du glemt denne tråd??!

Det lader til at du har glemt tråden, eller bare ikke gider at uddele point, efter du har fået svaret! Hmm..

Bruger #1474 @ 29.03.04 12:29

470

På samme måde som når du gemmer en ny fil!
Nu ved jeg ikke hvilken form for fil du gemmer! Er det en ASCII fil eller en binær fil? Er det på den gode gamle måde eller den nye måde i Delphi du gemmer filen?

Bruger #4737 @ 29.03.04 23:27

Her har du et eksempel, som jeg selv bruger til min teksteditor:

Kode

procedure TForm1.Gem1Click(Sender: TObject);
begin
  if Filnavn = '' then
  begin
    SaveDialog1.Execute;
    Filnavn := SaveDialog1.FileName;
  end;
  if Filnavn = '' then else  Memo1.Lines.Savetofile(Filnavn);
end;

Håber det kan bruges

Bruger #4737 @ 02.04.04 19:50

Her har du et eksempel, som jeg selv bruger til min teksteditor:

Kode

procedure TForm1.Gem1Click(Sender: TObject);
begin
  if Filnavn = '' then
  begin
    SaveDialog1.Execute;
    Filnavn := SaveDialog1.FileName;
  end;
  if Filnavn = '' then else  Memo1.Lines.Savetofile(Filnavn);
end;

Håber det kan bruges

Øhh.. Har du glemt denne tråd??!

Bruger #4575 @ 20.04.04 15:14

218

Her har du et eksempel, som jeg selv bruger til min teksteditor:

Kode
procedure TForm1.Gem1Click(Sender: TObject);
begin
  if Filnavn = '' then
  begin
    SaveDialog1.Execute;
    Filnavn := SaveDialog1.FileName;
  end;
  if Filnavn = '' then else  Memo1.Lines.Savetofile(Filnavn);
end;
Håber det kan bruges

Øhh.. Har du glemt denne tråd??!

Det lader til at du har glemt tråden, eller bare ikke gider at uddele point, efter du har fået svaret! Hmm..

Det er jo slet ikke sikkert at han kan bruge dit svar... Måske skulle du spørge om det før du bliver sur over, at han ikke giver points

/Mads

Bruger #4737 @ 21.04.04 14:32

Så ville det nok være en idé at skrive, om han kan bruge det eller ej.. Og jeg sagde ikke noget om, at det var mig, der skulle have pointene, det kunne ligeså godt være alle andre!!

Save (Ikke save as..)

Karma barometer (30 dage)

Modtaget

Givet

Favorit hos
Forum tråde
Artikler