On 15.11.2013 02:10, John Smith wrote:
>
> Napisz jakiś _bardzo_krótki_ program i wyślij go na grupę. Może problem
> leży w braku przydzielonej pamięci? Przypomnę, że StringGrid.Cells(x,y)
> z konkretnym x i y, musi wcześniej istnieć, ustawiając np:
> StringGrid1.ColCount
> StringGrid1.RowCount
> K.

procedure TForm1.Button1Click(Sender: TObject);populacji początkowej
var
i: integer;
begin
ilosc_osobnikow:=SpinEdit1.Value;
StringGrid1.Clear;
StringGrid1.RowCount:=ilosc_osobnikow+1;
for i:=1 to ilosc_osobnikow do
begin
osobniki[i].numer:=i;
osobniki[i].genotyp:=permutacja(8);
end;
for i:=1 to ilosc_osobnikow do
begin
StringGrid1.Cells[0,i]:=Format('%d', [osobniki[i].numer]);
StringGrid1.Cells[1,i]:=Format('%s', [osobniki[i].genotyp]);
end;
end;

Kolumny stworzone we właściwościach StringGrida, tak żeby miały już
konkretne nazwy, szerokości etc. Zresztą jak wrzuce do kolumny numer 1
jakąś wartość numeryczną to ją widzę.

--
Pozdrawiam
Jakub Rakus