| Gagiel |
06-03-2007 10:13:22 |
Mover Tabla?
Hola,
Estoy usando una tabla TStringGrid, para una visualizar IP's en tiempo real.
El tema está en que cuando quiero borrar alguna dirección y subir la tabla (para no dejar campos vacios) no hay forma de substituir los campos.
Pongo el código:
Código:
i:=1;
while (i<tcpprincipal.gridclients.RowCount) do
begin
if (tcpprincipal.gridclients.cells[1,i]=TCPServer.CLientList[ID].Host) then begin
tcpprincipal.gridclients.cells[0,i] := tcpprincipal.gridclients.cells[0,i+1];
tcpprincipal.gridclients.cells[1,i] := tcpprincipal.gridclients.cells[1,i+1];
tcpprincipal.gridclients.cells[2,i] := tcpprincipal.gridclients.cells[2,i+1];
i:=i+1;
while (i<tcpprincipal.gridclients.RowCount) do
begin
tcpprincipal.gridclients.cells[0,i] := tcpprincipal.gridclients.cells[0,i+1];
tcpprincipal.gridclients.cells[1,i] := tcpprincipal.gridclients.cells[1,i+1];
tcpprincipal.gridclients.cells[2,i] := tcpprincipal.gridclients.cells[2,i+1];
i:=i+1;
end;
tcpprincipal.gridclients.RowCount := tcpprincipal.gridclients.RowCount-1;
end;
i:=i+1;
end;
Lo que pasa es que al poner el "tcpprincipal.gridclients.cells[2,i+1];" no me coje el valor que tiene esa celda :s
Qual es la forma correcta de reodrenar la tabla?
Gracias.
Saludos |
