Cita:
Empezado por zvf
Hola!!
Yo nunca he utilizado un string grid, y no puedo llenarlo de datos, siempre me aparece un access violation.
Tengo lo siguiente:
Código Delphi [-] var i, j:Integer; Str:String; TS:TStrings; begin //LLENO STRING GRID Form1.StringGrid1.Cells[0,0]:='1'; Form1.StringGrid1.Cells[1,0]:='1'; Form1.StringGrid1.Cells[2,0]:='1'; Form1.StringGrid1.Cells[3,0]:='1'; Form1.StringGrid1.Cells[4,0]:='1'; // Inicializamos // initialize Str := ''; // Para cada línea de las selecciondas // for selected lines for i := (Form1.StringGrid1.Selection.Top) to (Form1.StringGrid1.Selection.Bottom) do begin /////y comienza el codigo para realizar lo que se tiene que hacer con las filas seleccionadas del StringGrid1
GRACIAS!!
|
Hola zvh, creo que el error de access violation puede deberse a lo siguiente:
Has creado los objetos por ejmeplo
Segundo para poder agregar datos a tu StringGrid tienes que aumentar la propiedad RowCount Ejemplo:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
StringGrid1.ColCount:=4;
StringGrid1.RowCount:=2;
StringGrid1.FixedRows:=1; StringGrid1.FixedCols:=0;
StringGrid1.Cells[0,0]:= 'Nombre';
StringGrid1.Cells[1,0]:= 'Apellido';
StringGrid1.Cells[2,0]:= 'Edad';
StringGrid1.Cells[3,0]:= 'Telefono';
for i:=1 to 10 do
begin
StringGrid1.Cells[0,i]:= 'dato1'; StringGrid1.Cells[1,i]:= 'dato2';
StringGrid1.Cells[2,i]:= 'dato3';
StringGrid1.Cells[3,i]:= 'dato4';
StringGrid1.RowCount:=StringGrid1.RowCount+1; end;
end;
Saludos.