Hola tiammat,
Por cierto, te va lo sumerio y esas cosas? lo digo por tu nick
Bueno, tienes razon, pero mi nivel en delphi es bajito bajito, y hay soluciones que no se me ocurren como a otros con mas experiencia. Por ejemplo, ya me estoy peleando otra vez con la lista, por que ahora si elimino un elemento listado, lo normal es que se reste tambien del total a pagar, pues bien, ya me esta jorobando otra vez, con access violation y "list items out of bouns" o algo así
Código Delphi
[-]
procedure TrForm.Eliminarseleccionado1Click(Sender: TObject);
var
i: integer;
begin
for i:= 0 to lista.Items.Count -1 do
if lista.Items.Item[i].Selected then
begin
lista.Items.Item[i].Delete;
plista.Items.Item[i].Delete;
label35.Caption:= FloatToStr(StrToFloat(label35.Caption)-(StrToFloat(lista.Items.Item[i].SubItems[Lista.Columns.Count-3]))); end;
end;
Y bueno, en eso estoy ahora.
Un saludo.