ecriture dans un fichier sous linuxRésolu

Question

Bonjour, 

Je ne sais pas si je suis dans la bonne rubrique, donc si un modérateur peut modifier si erreur!

Je souhaite crée une interface graphique d'un logiciel camfrogserver pour configurer les parametres necessaire au bon fonctionnement de celui-ci, qui nativement se configure à la main dans des fichiers de type fichier.conf.sample
par exemple:
adultsonly= off
audioonlyroom=off
commandsenabled=on
deafroom=off
defaultbantime=3
disablehyperlinks=on
disabletalk=off
logcommands=0
maxconnectionsacceptable=50
maxlinebreaks=10
motdpresent=off
nobotsallowed=off

Donc, je souhaiterais, soit par le biais d'une coche, ou l'appuis d'un button, passer un paramettre  on  qui par defaut est à off

Par exemple, motdpresent =off , puis des que j'appuis sur un boutton, le OFF ce transforme en ON.
C'est possible sachant que je developpe avec lazarus et que ce fichier se trouve dans /etc/camfrogserverd/fichier.conf.sample ??

Merci beaucoup pour vos conseils qui je suis sûr me permetteras d'evoluer...

yannfrance · Accepted Answer

Re bonjour,
pfff ...
TIniFile, TFileStream, TStrings etc ...

Oui, merci de me recevoir avec un minimum de respect, Parce que le pfff, je prefere encore ne recevoir aucune reponse que de me faire prendre pour un petit.

Je classe ce post résolu car j'ai trouvé.

procedure TForm1.Button1Click(Sender: TObject);
 var T:TextFile;
begin
  AssignFile(T, Edit1.text);
     Rewrite(T);
        WriteLn(T, 'premiere');

         CloseFile(T);

end;

procedure TForm1.Button2Click(Sender: TObject);

  var T:TextFile;
begin
  AssignFile(T, Edit1.text);
        Append(T);
writeLn(T,'deuxieme');

         CloseFile(T);
end;

procedure TForm1.Button3Click(Sender: TObject);
  var T:TextFile;
begin
  AssignFile(T, Edit1.text);
        Append(T);
writeLn(T, Edit2.text);

         CloseFile(T);

end;

procedure TForm1.Button4Click(Sender: TObject);

  var T:TextFile;
begin
  AssignFile(T, Edit1.text);
        Append(T);
writeLn(T,'troisieme'+ Edit3.text);

         CloseFile(T)
end;

Voilà, merci quand même

f0xi · Answer

pfff ...

TIniFile, TFileStream, TStrings etc ...

<hr size="2" width="100%" />
http://deefaze.gnomz.com

cs_MAURICIO · Answer

Et aussi Textfile ...

cs_Delphiprog · Answer

Ces classes sont-elles disponibles aussi avec Lazarus ?

May Delphi be with you !
<hr color="#008000" />Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.
http://www.furisdead.com/feat/ChineseFurFarms/

cs_Delphiprog · Answer

La question de yannfrance n'était pas si anodine que cela car le détail qui vous a échappé était "comment faire avec Lazarus ?".
Or, les réponses données ne concernent que Delphi.
Je comprends que yannfrance soit un peu dépité d'avoir reçu un tel accueil...

May Delphi be with you !
<hr color="#008000" />
Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.

Ecriture dans un fichier sous linux

5 réponses

Votre réponse

Discussions similaires