CheckListBox1.ItemsRésolu

Question

Bonjour à tous, 

j'aimerai enregistrer mon CheckListBox dans un fichier

CheckListBox1.Items.Strings = 
A
B
C
D
j'aimerais l'enregistrer dans mon fichier de cette façon: A B C D
Mais, malgré mes recherches, c'est toujours de cette façon: 
A
B
C
D

procedure TForm1.Button2Click(Sender: TObject);
var
f: TextFile;
 str: string;
 i:integer;
begin
for I := 0 to CheckListBox1.Items.Count - 1 do
 begin
 if CheckListBox1.Checked[i] = True then
  begin
   AssignFile(f,'Mon Fichier.txt');
   Append(f);
   str:= CheckListBox1.Items[i];
   StringReplace((CheckListBox1.Items[i]),'#9 ',' ',[rfReplaceAll]);
   Writeln(f, str);
   CloseFile(f);
  end;
 end;
end;
j'ai essayé delete, Concat, ..., 
mais, rien à faire 
Quelqu'un pourrait-il m'aider ??.
je n'arrive pas à résoudre mon problème.
En vous remercient  d'avance,
Sincères salutations et bon codding à tous,
Dugueclin.

korgis · Accepted Answer

Salut,

je ne suis pas sûr d'avoir bien compris le problème, mais ceci y répondra peut-être :

procedure TForm1.Button2Click(Sender: TObject);
var
  sl: TStringList;
  str: string;
  i: integer;
begin
  sl := TStringList.Create;
  try
    for i := 0 to CheckListBox1.Items.Count - 1 do
    begin
      if CheckListBox1.Checked[i] then
      begin
        str:= StringReplace((CheckListBox1.Items[i]), '#9 ', ' ', [rfReplaceAll]);
        sl.Add(str);
      end;
    end;
    sl.SaveToFile('Mon Fichier.txt');
  finally
    sl.Free;
  end;
end;

Plusieurs remarques :

- il est plus commode d'utiliser les propriétés et méthodes de TStringList pour manipuler des lignes de texte, les enregistrer ou les ouvrir depuis un fichier ;
- StringReplace est une fonction qui retourne donc un résultat de type string, et tu n'affectes ce résultat à rien ;
- quand tu joins un bout de code, n'oublie pas d'utiliser la mise en forme (les petite icones au-dessus de la box, tu déroules la 4ème à partir de la droite), c'est plus pratique à lire.

Bon coding.

cs_dugueclin · Answer

bonjour Korgis,
merci de m'avoir répondu, mais c'est pareil dans le fichier
j'aimerais enregistrer de cette façon: A B C D
merci encore et bon codding
Dugueclin

korgis · Answer

C'est mieux comme ça ?

procedure TForm1.Button2Click(Sender: TObject);
var
  sl: TStringList;
  str: string;
  i: integer;
begin
  str := '';
  sl := TStringList.Create;
  try
    sl.Text := '';
    for i := 0 to CheckListBox1.Items.Count - 1 do
    begin
      if CheckListBox1.Checked[i] then
      begin
        str := str + StringReplace((CheckListBox1.Items[i]), '#9 ', ' ', [rfReplaceAll]);
      end;
    end;
    sl.Text := str;
    sl.SaveToFile('Mon Fichier.txt');
  finally
    sl.Free;
  end;
end;

cs_dugueclin · Answer

Merci Korgis !!! 
J'avais bien essayé lors de mes premiers essais, avec un TStirngList, 
mais il me manquait:
str:= str + ...
sinon, ça ne fonctionne pas !!!
Un grand merci à toi !!!
Sincères salutations et bon codding
Dugueclin

cs_walidlam · Answer

salut!!
 var 
f: TextFile;
str: string;
i:integer;
begin
 try
    AssignFile(f,'mon fichier.txt');
    Rewrite(f); //pour ouvrir le fichier en écriture et écrase le contenu
  except
    on e: exception do
      raise Exception.Create('Erreur pendant la création du fichier :' + 'mon fichier.txt' +
                             sLineBreak + e.message);
//on cas d&#8217;erreur pendant la création
  end;
  try
  with  CheckListBox1 do begin
for I := 0 to Items.Count - 1 do
begin
if Checked[i]  then
begin
Append(f);
str:= CheckListBox1.Items[i]+' ';
Write(f, str);
end;
end;
end;
finally
CloseFile(f);
end; 
@+

cs_dugueclin · Answer

salut Walidam,
Merci de m'avoir répondu et merci pour le code , félicitations
Sincères salutations et bon codding  à toi
Dugueclin.

CheckListBox1.Items

6 réponses

Votre réponse

Discussions similaires