SaveDialogRésolu

Question

Bonjour,

J'utilise un SaveDialog, pour enregistrer un memo.
Mais le probleme est que quand je modifie le memo, et que j'enregistre apres la premiere sauvegarde, le SaveDialog ne renvoie encore la fenetre "enregistrer sous" alors que je veux juste "enregistrer" dans le meme endroit.

En vous remerciant, de votre attention!

ThWilliam · Accepted Answer

Salut,

Tu ne dois plus utiliser le SaveDialog après la première sauvegarde.

var
   TextFileName: string;

Tu initialises TextFileName:= '' (par exemple dans l'événement OnCreate de form1)

procedure TForm1.EnregistrerSous;
begin
  if SaveDialog1.Execute then
  begin
     TextFileName:= SaveDialog1.FileName;
     Memo1.Lines.SaveToFile(TextFileName);
  end;
end;

procedure TForm1.Enregistrer;
begin
   if TextFileName  = '' then EnregistrerSous
   else
       Memo1.Lines.SaveToFile(TextFileName);
end;

Ainsi, si l'utilisateur clique sur bouton (ou menu) enregistrer, Savedialog s'ouvrira la 1° fois, mais pas après.

A +
Thierry

boitas · Answer

merci,

SaveDialog

2 réponses

Votre réponse

Discussions similaires