[air_erik]

Hola, resulta q quiero editar los datos de una tabla de base de datos, y bueno quiero hacerlos dinamicamente, cuando creo los TList de TLabels y de TEdit, me muestra todo bien, pero cuando quiero guardar las modificaciones, me saca un error q dice "List index out of bound (0)".
Pero eso no es todo, cuando vuelvo a ejecutar y logra guardar, me guarda valores q imagino quedaron residentes en memoria, q son distintos a los q modifique en los edit creados.

Finalmente cuando cierro el form, quiero destruir las listas y me saca error de acceso o violación.

Este es el codigo:
por favor ayudenme con sugerencias.

Código Delphi [-]
unit ventana_ver_refrigerio;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, DBTables;
type
Twindow_ver_refrigerio = class(TForm)
Label5: TLabel;
sql01: TQuery;
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
Button2: TButton;
Label3: TLabel;
procedure FormShow(Sender: TObject);
procedure crear_listas(lista_etiquetas, lista_ed_cantidades, lista_ed_costos, lista_codigos: TList);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
window_ver_refrigerio: Twindow_ver_refrigerio;
FLabelList2, FeditList, FeditList2, FLabelList: TList;
implementation
{$R *.dfm}
procedure Twindow_ver_refrigerio.FormShow(Sender: TObject);
begin
FLabelList:=TList.Create;
FLabelList2:=TList.Create;
FEditList:=TList.Create;
FEditList2:=TList.Create;
crear_listas(FLabelList, FEditList, FEditList, FLabelList2); // Crea etiquetas y cuadros de edición y los guarda en listas
Button1.Enabled:=TRUE;
end;
procedure Twindow_ver_refrigerio.crear_listas(lista_etiquetas, lista_ed_cantidades, lista_ed_costos, lista_codigos: TList);
var
codigos, etiquetas: TLabel;
edit_cant: TEdit;
edit_costo: TEdit;
i: Integer;
begin
i:=1;
sql01.Close;
sql01.SQL.Clear;
sql01.SQL.Add('SELECT * FROM Insumos;');
sql01.Open;
sql01.First;
While not sql01.Eof do
begin
etiquetas:=TLabel.Create(Self);
etiquetas.Caption:=Format(sql01.FieldByName('detalle').asString, [i]);
etiquetas.Parent:=Self;
etiquetas.Font.Charset:=DEFAULT_CHARSET;
etiquetas.Font.Color:=clWhite;
etiquetas.Font.Height:=-13;
etiquetas.Font.Name:='MS Sans Serif';
etiquetas.Font.Pitch:=fpDefault;
etiquetas.Font.Size:=10;
etiquetas.Font.Style:=[fsBold];
etiquetas.Left:=8;
etiquetas.Top:=50+i*20;
lista_etiquetas.Add(etiquetas);
edit_cant:=TEdit.Create(Self);
edit_cant.Text:=sql01.FieldByName('cantidad_stock').asString;
edit_cant.Parent:=Self;
edit_cant.Left:=310;
edit_cant.Width:=33;
edit_cant.Top:=50+i*20;
lista_ed_cantidades.Add(edit_cant);
edit_costo:=TEdit.Create(Self);
edit_costo.Text:=Format(sql01.FieldByName('costo').asString, [i]);
edit_costo.Parent:=Self;
edit_costo.Left:=235;
edit_costo.Width:=33;
edit_costo.Top:=50+i*20;
lista_ed_costos.Add(edit_costo);
codigos:=TLabel.Create(Self);
codigos.Caption:=Format(sql01.FieldByName('cod_ins').asString, [i]);
codigos.Parent:=Self;
codigos.Visible:=FALSE;
lista_codigos.Add(codigos);
i:=i+1;
sql01.next;
end;
end;
procedure Twindow_ver_refrigerio.Button2Click(Sender: TObject);
begin
window_ver_refrigerio.Close;
FlabelList:=nil;
FLabelList.Free;
FLabelList2:=nil;
FLabelList2.Free;
FEditList:=nil;
FEditList.Free;
FEditList2:=nil;
FEditList2.Free;
FLabelList.Destroy;
FLabelList2.Destroy;
FEditList.Destroy;
FEditList2.Destroy;
end;
procedure Twindow_ver_refrigerio.Button1Click(Sender: TObject); //Boton para guardar las modificaciones realizadas en los cuadros de edición
var
cod_ins: TLabel;
cantidad, costo: TEdit;
i, j, k: Pointer;
ban, h: Integer;
begin
ban:=0;
if Application.MessageBox('Está Seguro que desea Guardar las modificaciones?','Modificación de Refrigerios',1+Mb_IconInformation)=1 then
begin
ShowMessage(IntToStr(FEditList.Count));
for h:=0 to FLabelList.Count-1 do
begin
i:=FLabelList2.First;
j:=FEditList.First;
k:=FEditList2.First;
cod_ins:=FLabelList2.Extract(i);
cantidad:=FEditList.Extract(j);
costo:=FEditList2.Extract(k);
if ((cantidad.Text<>'') and (costo.Text<>'')) then //verificamos q ningun campo de edición esté vacio
begin
sql01.Close;
sql01.SQL.Clear;
sql01.SQL.Add('UPDATE Insumos SET costo='+costo.Text+', cantidad_stock='+cantidad.Text+' WHERE cod_ins='''+cod_ins.Caption+''';');
sql01.ExecSQL;
Button1.Enabled:=FALSE;
end
else
begin
ban:=1;
end;
end;
if ban=1 then ShowMessage('Ningún Campo debe estar vacío, el valor mínimo es CERO');
if ban=0 then ShowMessage('Sus datos fueron guardados con éxito');
end;
end;
procedure Twindow_ver_refrigerio.FormClose(Sender: TObject; var Action: TCloseAction);
begin
FlabelList:=nil;
FLabelList.Free;
FLabelList2:=nil;
FLabelList2.Free;
FEditList:=nil;
FEditList.Free;
FEditList2:=nil;
FEditList2.Free;
FLabelList.Destroy;
FLabelList2.Destroy;
FEditList.Destroy;
FEditList2.Destroy;
end;
end.

Un Saludo Erik

PD: perdon por colocar todo el Unit, pero no quiero q se pierda detalles