SaveDialog [Résolu]

boitas 6 Messages postés mercredi 30 novembre 2005Date d'inscription 1 janvier 2007 Dernière intervention - 29 déc. 2006 à 17:16 - Dernière réponse : boitas 6 Messages postés mercredi 30 novembre 2005Date d'inscription 1 janvier 2007 Dernière intervention
- 29 déc. 2006 à 18:44
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!
Afficher la suite 

Votre réponse

2 réponses

ThWilliam 424 Messages postés mardi 3 janvier 2006Date d'inscription 26 novembre 2013 Dernière intervention - 29 déc. 2006 à 18:07
+3
Utile
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
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de ThWilliam
boitas 6 Messages postés mercredi 30 novembre 2005Date d'inscription 1 janvier 2007 Dernière intervention - 29 déc. 2006 à 18:44
0
Utile
merci,
Commenter la réponse de boitas

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.