Italian community of Lazarus and Free Pascal

Programmazione => Generale => Topic aperto da: Stefano - Luglio 26, 2012, 07:30:40 pm

Titolo: TStringGrid - Larghezza colonne
Inserito da: Stefano - Luglio 26, 2012, 07:30:40 pm

nessuna delle istruzioni viene eseguita,
compila, ma quando la esegue solleva eccezione di classe ElistError List Index (0) out of bonds

Codice: [Seleziona]

if StringGrid1.CoCount > 0 then
 begin
  StringGrid1.Columns[0].Width := 100;
  StringGrid1.Columns[0].Title.Caption := 'Colonna';
 end;

Titolo: Re:TStringGrid - Larghezza colonne
Inserito da: Stilgar - Luglio 27, 2012, 02:59:36 am

Codice: [Seleziona]

if StringGrid1.CoCount > 0 then

Codice: [Seleziona]

  if StringGrid1.Columns.Count > 0 then
 begin
  StringGrid1.Columns[0].Width := 100;
  StringGrid1.Columns[0].Title.Caption := 'Colonna';
 end;  

Questo non esplode a runtime

Titolo: Re:TStringGrid - Larghezza colonne
Inserito da: Stilgar - Luglio 27, 2012, 03:01:03 am

Forse è questo quello che volevi fare:

Codice: [Seleziona]

if StringGrid1.ColCount > 0 then
 begin
  StringGrid1.ColWidths[0] := 100;
  StringGrid1.Cells[0,0] := 'Colonna';
 end;  

EDIT:
o in alternativa:

Codice: [Seleziona]

  StringGrid1.Columns.Add;
  if StringGrid1.Columns.Count > 0 then
 begin
  StringGrid1.Columns[0].Width := 100;
  StringGrid1.Columns[0].Title.Caption := 'Colonna';
 end;