Hola, seré un poco más conciso. El hecho es que quiero borrar el Valor de una array TRecord sabiendo un valor del TRecor (
como lo explico??). Un poco de código me ayudará a explicarlo. El Array Trecord.
Cita:
type
TDades = Record
Dia: String[10];
Horari: String[10];
Hora: String[10];
Activa: Boolean;
Numero: integer;
end;
|
Los datos se graban en el array mediante un checbox, por medio de la función omple.
Cita:
if cb8a9.Checked=True then
Begin
botopremut[filas]:=cb8a9.Caption;
omple;
dibuixa;
end
else
Begin
filas:=filas-1;
dibuixa;
end;
end;
|
Y el procedimiento omple:
Cita:
begin
setlength(Dades,Length(Dades)+1);
Dades[High(Dades)].Dia:=rgDies.Items[rgDies.ItemIndex];
Dades[High(Dades)].Horari:=rgThorari.Items[rgThorari.ItemIndex];
Dades[High(Dades)].Hora:=botopremut[high(Dades)];
Dades[High(Dades)].Activa:=True;
Dades[High(Dades)].Numero:=filas;
filas:=filas+1;
end;
|
Se trata de borrar el valor del array si coincide con el valor del Checkbox (si está False) y añadirlo si está True (eso ya lo hace).
Muchas gracias por vuestro ayuda. Gracias.