Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   mmm !!! Vaciar un StringGrid ? (https://www.clubdelphi.com/foros/showthread.php?t=19236)

!3d1@n 08-03-2005 20:07:57

mmm !!! Vaciar un StringGrid ?
 
Holasss:
Si alguién me pudiera decir como podría limpiar todas las celdas de un StringGrid.
Es que tengo una aplicación donde lleno por programación todas las celdas. El StringGrid no tiene un # fijo de Columna ni de Filas ya que se los paso por programación según las necesidades en ese momento.

Agradeceré cualquier opinión al respecto.

marcoszorrilla 08-03-2005 20:13:08

Si entiendo bien lo que quieres te podría servir esto:
Código Delphi [-]
 procedure TForm1.Button2Click(Sender: TObject);
 var
   I, J, K : Integer;
 begin
   K := 0;
   with StringGrid1 do
     for I := 0 to ColCount - 1 do
       for J:= 0 to RowCount - 1 do
         begin
           K := K + 1;
           Cells[I,J] := '';
         end;
 end;

Un Saludo

!3d1@n 08-03-2005 20:36:59

K ???
 
Gracias Marco. Eso era justamente lo que queria, de veras que se lo agradezco. Pero una pregunta ¿ Para que esa K ? ¿ En que se utiliza ? ¿ Acaso cuanta las veces que has limpiado ?

marcoszorrilla 08-03-2005 21:39:41

En este caso sobra, lo tome de un ejemplo en que si se utilizaba para rellenar con números:
Código Delphi [-]
Cells[I,J] := IntToStr(k);

Un Saludo.

Neftali [Germán.Estévez] 09-03-2005 08:56:28

Cita:

Empezado por marcoszorrilla
Si entiendo bien lo que quieres te podría servir esto:
[/delphi]

O puesto que las Rows son TStrings, también puede utilizar ésta más corta:

Código Delphi [-]
 procedure TForm1.Button2Click(Sender: TObject);
 var
  I: Integer;
 begin
   for I := 0 to StringGrid1.RowCount - 1 do begin
     StringGrid1.Rows[i].Clear;
   end;
 end;


La franja horaria es GMT +2. Ahora son las 11:20:10.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi