On 10 Lut, 23:36, "Bastion" <b...@m...pl> wrote:
> Użytkownik "Wojciech "Spook" Sura" <s...@s...op.pl> napisał w
wiadomościnews:hkv1ds$91t$1@news.onet.pl...
>
> > Jeśli ktoś pisze kod w taki sposób, to nie tyle uczył się od kogoś piszącego w
Pascalu, co od kogoś, kto również nie umie
> > projektować programów.
>
> Kolego, ja tak nie pisze tylko przedstawiam rozwiazanie pewnego problemu.
> Laskawie pochyl glowe i zastanow sie jak w 5 linijkach kodu
> lepiej mozna zwizualizowac rozwiazanie. Czekam na kod...

Wolasz o kod ktorys raz. Podalem go dawno temu, a dalej wolasz:

void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
float bla=4000;

StringGrid1->Cells[1][0]=FloatToStr(bla);

for(int i=1; i<21;i++)
{
StringGrid1->Cells[0][i]=FloatToStr(2010+i);
bla*=1.1;
StringGrid1->Cells[1][i]=FloatToStr (bla);
}
}

Tez brzydkie, ale nie az tak.

pozdrawiam
bartekltg