6 replies to this topic

[enecumene]

Hola amigos, estoy tratando de guardar un grupo de items seleccionados de un listbox en archivo .ini, hasta ahí todo bien, el problema es el siguiente, necesito guardar ese grupo de items de la siguiente forma:

delphi

Items=Uno,Dos,Tres,Cuatro

Así debería quedar en el INI, sin un coma al final, tengo el siguiente code:

delphi

for i := 0 to aftExtList.Count -1 do begin
      if aftExtList.Selected[i] = True then begin
         if aftExtList.SelCount > 1 then
          Extensiones := Extensiones + aftExtList.Items[i]+','
         else
          Extensiones := Extensiones + aftExtList.Items[i];
      end;
    end;
 
    Config.WriteString('EXPLORER','Files_associated',Extensiones);

Pero me lo guarda así:

delphi

Items=Uno,Dos,Tres,Cuatro,

Con el coma al final, ¿qué hago mal?

Saludos.

[egostar]

Intenta con esto...

delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  extensiones: string;
  contador: integer;
begin
  Contador := 0;
  for i := 0 to aftExtList.Items.Count -1 do 
  begin
      if aftExtList.Selected[i] = True then begin
         if aftExtList.SelCount > 1 then
         begin
            if contador = aftExtList.SelCount - 1 then
               Extensiones := Extensiones + aftExtList.Items[i]
            else begin
               Extensiones := Extensiones + aftExtList.Items[i]+',';
               inc(Contador);
            end;
         end
         else
            Extensiones := Extensiones + aftExtList.Items[i]
      end;
  end;
  Config.WriteString('EXPLORER','Files_associated',Extensiones);
end;

Salud OS

[enecumene]

Gracias bro, ahora sí queda, funciona de perlas

[egostar]

Gracias bro, ahora sí queda, funciona de perlas

Que bien, solo sigo con la duda porqué te molesta esa coma al final

Salud OS

[enecumene]

Que bien, solo sigo con la duda porqué te molesta esa coma al final

Salud OS

Porque más adelante estará relacionado con el registro de windows y sé que me dará cierto pedos ese coma

[Rolphy Reyes]

Saludos.

Un poco tarde pero esta es otra solución de menos código:

delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  extensiones: string;
begin
  Extensiones := NullAsStringValue;
  for i := 0 to aftExtList.Items.Count -1 do 
  begin
    if aftExtList.Selected[i] = True then 
       Extensiones := Extensiones + aftExtList.Items[i]+',';
  end;
  if Extensiones[Length(Extensiones)] = ',' then
    SetLength(Extensiones, Length(Extensiones) -1);
  Config.WriteString('EXPLORER','Files_associated',Extensiones);
end;

[enecumene]

Muchas gracias Rolphy