Voilà mon souci c'est que je souhaite enregistrer comme précédement avec ce code :
en y utilisant cette fois ci le SaveDialog :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24 var tsl:tstringlist ; s:string ; y,x:integer; begin if edit1.text='' then ShowMessage('Veuillez saisir un Nom pour votre fichier texte!') else begin if FileExists(edit1.text+'.Txt') then if MessageDlg('Voulez Vous Ecraser le Fichier déjà Existant '+edit1.text+'.txt ?'+chr(13)+chr(10),mtWarning ,[mbYes,mbNo],0)=mrNo then exit; tsl:=tstringlist.create ; for y:=0 to stringgrid1.RowCount-1 do begin s:='' ; for x:=0 to stringgrid1.ColCount-1 do s:=s+stringgrid1.cells[x,y]+';' ; tsl.add(s) ; end ; tsl.savetofile(edit1.text+'.txt') ; tsl.free ; ShowMessage('Transfert Données Effectué!!!'); end;
mais il me fait l'erreur :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18 var tsl:tstringlist ; s:string ; y,x:integer; begin tsl:=tstringlist.create ; for y:=0 to stringgrid1.RowCount-1 do begin s:='' ; for x:=0 to stringgrid1.ColCount-1 do s:=s+stringgrid1.cells[x,y]+';' ; tsl.add(s) ; end ; tsl.savetofile(SaveDialog1.FileName) ; tsl.free ; ShowMessage('Transfert Données Effectué!!!'); end;
Project IEPS.exe raised exception class EFCreateError with message 'Cannot create file'. Process stopped. Use Step or Run to continue.
Voila si on peut m'aider ca serait cool et je me doute que cela vient de moi mais bon![]()
Partager