Ayudita con un codigo

[kirios]

Hola!
Buenisimo, no sabia lo de los tags. Igual te comento que la matriz que tengo se carga al iniciar el programa, desde un archivo de texto externo, donde tengo el nombre y el precio de cada cosa. Entonces, mi idea es comparar los caption de los checkbox's, compararlos con los nombres en la matriz, y sacar el precio desde ahi. El Caption esta tomado de la misma matriz, asique la comparacion no es el problema, son la misma cosa. Pudiste encontrar algun error en el codigo que pase antes?

Gracias!

[adfa]

Hola. Hace mucho que no escribo, pero me parece que no es el lugar correcto del foro para esto.
No veo problemas en tu codigo si antes te andaba y ahora quiza pueda ser la configuración regional con los separadores decimales...

[kirios]

Hola!
No creo que ese sea el problema, pero gracias igual. Me voy a fijar lo del foro, yo tambien hace mucho que no escribo, por aho entre en otro lado.
Gracias!

[Casimiro Noteví]

Hola, además de los tags para el código, recuerda nuestra guía de estilo y también recuerda poner títulos descriptivos a tus preguntas, sirven para luego hacer búsquedas.
Además no repitas preguntas.
Ya he borrado la otra.
Ya sabemos que llevas poquito tiempo aquí y todavía no estás familiarizado, te aconsejo que leas la guía de estilo, no te llevará ni tres minutos.
Muchas gracias por tu colaboración.

[kirios]

Hola! Repetí la pregunta porque estaba en la sección equivocada, pensé que tenia que volver a escribirla, no lo hice para molestar. Por favor podes habilitarla? A menos que la primera pregunta que hice se vea desde esta seccion del foro, necesito algunas respuestas para el problema. Voy a leer la guia.

Gracias!

[Casimiro Noteví]

¿No te gusta la respuesta de ecfisa?

[ecfisa]

Hola kirios.

Ahora creo que entendí lo que buscas.

A ver... tenés un archivo de texto con el nombre de un objeto y un valor separados por un ';' . Supongamos que se llame Archivo.txt y contenga lo siguiente:

cama;1
mesa;2
silla;3
vaso;4
plato;5
banco;6
cuchillo;7
tenedor;8
cuchara;9
fuente;10

Entonces sería mucho más fácil hacerlo usando TStrings :

Código Delphi [-]
var
  TS: TStrings;

(* Cargar valores, asignar Tags *)
procedure TForm1.FormCreate(Sender: TObject);
var
  i,c: Integer;
begin
  TS:= TStringList.Create;
  TS.LoadFromFile('C:\Archivo.txt'); // leer datos del archivo
  c:=0;
  for i:= 0 to ComponentCount-1 do
    if Components[i] is TCheckBox then
    begin
      TCheckBox(Components[i]).Caption:= Copy(TS[c],1,Pos(';',TS[c])-1); // nombre del objeto
      TCheckBox(Components[i]).Tag:= c;  // índice
      Inc(c);
    end;
end;

(* Devolver total *)
function TForm1.preciobar: Double;
var
  i,c:integer;
  s: string;
begin
  Result:= 0;
  c:=0;
  for i:= 0 to ComponentCount - 1 do
    if Components[i] is TCheckBox then
      if TCheckBox(Components[i]).Checked then
      begin
        s:= TS[TCheckBox(Components[i]).Tag]; // dato
        Result:= Result + StrToFloat(Copy(s,Pos(';',s)+1, MaxInt)); // valor
        Inc(c);
      end;
end;

(* Llamada *)
procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption:= FloatToStr(preciobar);
end;

(* Liberar *)
procedure TForm1.FormDestroy(Sender: TObject);
begin
  TS.Free;
end;

Por supuesto tendrás que tener tantos CheckBoxs como datos haya en el archivo...

Saludos.