Gagiel
06-03-2007, 10:13:22
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:
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
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:
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