Routine d'entrée et sortie

Version imprimable

bonsoir,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
begin
{$I-}
mkdir(rep+'Dossiers\'+edit1.text);
if IOResult <>0then
showmessage('Impossible de créer le répertoire')
else begin
showMessage('Nouveau Dossier créé');
 
If  FindFirst(rep+'Dossiers'+edit1.text,faAnyFile,Info)<>0 Then
begin
Attributs := FileGetAttr(rep+'Dossiers'+'\Doss.txt');
if Attributs and faReadOnly = faReadOnly then begin
FileSetAttr(rep+'Dossiers'+'\Doss.txt', Attributs and not faReadOnly);
assignfile(fs,rep+'Dossiers'+'\Doss.txt');
//reset(fs);
ligne:=edit1.text;
append(fs);
writeln(fs,ligne);
end;
closefile(fs);
Attributs := FileGetAttr(rep+'Dossiers'+'\Doss.txt');
if Attributs and faReadOnly = 0   then FileSetAttr(rep+'Dossiers'+'\Doss.txt', Attributs + faReadOnly);
close;

je ne s'est pas pourquoi le fichier texte ne s’écrie pas correctement

14/05/2017, 19h04
Charly910

Bonjour,

que veux tu faire exactement ?

Créer un dossier s'il n'existe pas et créer un fichier texte dans ce dossier ?

A+
Charly
14/05/2017, 19h36
mamiF

Bonsoir,
oui exactement mais quand j’écris au fichier texte les répertoire créer ne sont pas organiser ligne par ligne
rep1 rep2 dans un fichier texte
la résultat souhaiter est:
rep1
rep2

Bonjour,

Essaye ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
procedure TForm1.Button4Click(Sender: TObject);
Var
  Rep, Rep1 : String ;
  fs : TextFile ;
  aFileName : String ;
  Ligne : String ;
begin
  Rep :=  ExtractFilePath(Application.ExeName) ;
  Rep := Rep + 'Dossier\' ;
  Rep1 := Rep +Edit1.text ;
  If Not ForceDirectories(Rep1) Then
    Begin
      ShowMessage('Impossible de créer le répertoire '+ Rep1) ;
      Exit ;
    End
  Else
    Begin
      ShowMessage('Nouveau Dossier créé : '+Rep1);
      aFileName := Rep+'Doss.txt' ;
      Assignfile(fs,aFileName);
      If FileExists(aFileName) Then
        Append(fs)
      Else
        Rewrite(fs) ;
      Ligne:=Edit1.text;
      Writeln(fs,Ligne);
      Closefile(fs);
    End ;
End;

Ce code crée des sous dossiers du répertoire ...\dossiers et stocke le nom des sous dossiers dans me fichier ...\dossiers\Doss.txt :

Rep1
Rep2
...

A+
Charly