question pour enregistrer sous

Question

Bonjour,
Je réalise un prog créant un fichier (cue). Mais lors de "l'enregistrement sous" du fichier en question je souhaiterais définir son nom suivant le texte contenu dans un edit.
Voici l'extrait du source:

var z:string;
 begin
z:=edit1.text;
if sauver.execute then memo1.Lines.Savetofile (sauver.filename);

Si quelqu'un peut m'aider à faire en sorte que le fichier sauvegardé porte le nom contenu dans Z.

merci d'avance

Loulibier · Answer

Si j'ai bien compris ton besoin, tu souhaites simplement choisir ton repertoire de desination de ton fichier et le completer avec le nom saisit dans edit1.text.

utilise cette méthode, si c'est le cas :

uses FileCtrl;

var
  sPath : String;
 z         : string;
begin
  sPath := 'c:\';
  z:=edit1.text;

  if SelectDirectory('Chemin de destination :','',sPath ) = True then
  begin
    memo1.Lines.Savetofile (IncludeTrailingPathDelimiter(sPath) + z);
  end;


Bonne Prog,  ;) 

Olivier

PS : Lorsqu'une réponse vous convient, n'oubliez pas de la validée.

cs_Kenavo · Answer

Salut,

Dis Olivier, c'est quoi IncludeTrailingPathDelimiter(sPath), je suis pas sûr d'avoir ça dans Delphi 4 !

J'aurais proposé :
  Sauver.FileName := Edit1.Text;
  if sauver.execute then
    memo1.Lines.Savetofile (sauver.filename);
mais faut faire gaffe à pas cliquer sur un ficher existant !

ou

  Sauver.FileName := Edit1.Text;
  if sauver.execute then
  begin  
    Nom := ExtractFilePath(Sauver.FileName)+Edit1.Text;
    memo1.Lines.Savetofile (nom);
  end;
Pour être plus sûr

Ken@vo
____________________
Code, Code, Codec !

Loulibier · Answer

IncludeTrailingPathDelimiter permet de mettre le '\' à la fin du string definissant le répertoire s'il n'y ai pas.

Je ne sais pas si il depuis quand delphi l'a implémenté.

Bonne Prog,  ;) 

Olivier

PS : Lorsqu'une réponse vous convient, n'oubliez pas de la validée.

cs_corpse · Answer

Merci à vous deux pour vos contributions respectives...
Les deux méthodes marchent, mais reste un problème le fichier enregistrer porte l'extension *.bin (comme le fichier initalement chargé dont le nom est repris das l'edittext) ce qui a pour effet de remplacer le fichier bin (2 images de perdu lol ).
Je cherche un moyen de reprendre le nom  du fichier sans son extension...

Loulibier · Answer

il te suffit de changer son extension.

exemple :

//Extraction du nom du fichier avec extension.
sFileName := ExtractFileName('c:	oto	iti.txt');

// Extraction du nom sans l'extension.
sFileName  := ChangeFileExt(sFileName ,'');


Bonne Prog,  ;) 

Olivier

PS : Lorsqu'une réponse vous convient, n'oubliez pas de la validée.

Question pour enregistrer sous

5 réponses

Votre réponse

Discussions similaires