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 [B]fichier.conf.sample[/B]
par exemple:
[CODE]adultsonly=off
audioonlyroom=off
commandsenabled=on
deafroom=off
defaultbantime=3
disablehyperlinks=on
disabletalk=off
logcommands=0
maxconnectionsacceptable=50
maxlinebreaks=10
motdpresent=off
nobotsallowed=off[/CODE]

Donc, je souhaiterais, soit par le biais d'une coche, ou l'appuis d'un button, passer un paramettre [B]on[/B] qui par defaut est à [B]off[/B]

Par exemple, [B]motdpresent=off[/B] , puis des que j'appuis sur un boutton, le OFF ce transforme en ON.
C'est possible sachant que je developpe avec [B]lazarus[/B] et que ce fichier se trouve dans [B]/etc/camfrogserverd/fichier.conf.sample[/B] ??

Merci beaucoup pour vos conseils qui je suis sûr me permetteras d'evoluer...

pfff ...

TIniFile, TFileStream, TStrings etc ...

---

Et aussi Textfile ...

Ces classes sont-elles disponibles aussi avec Lazarus ?

May Delphi be with you !

---

Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.

Réponse acceptée !
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

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 !

---

Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.