Re: BCB Moj ulubiony kod;) - Grupy dyskusyjne w eGospodarka.pl

eGospodarka.pl › Grupy › pl.comp.programming › BCB Moj ulubiony kod;) › Re: BCB Moj ulubiony kod;)

Path: news-archive.icm.edu.pl!news.rmf.pl!nf1.ipartners.pl!ipartners.pl!news.nask.pl!
news.nask.org.pl!newsfeed00.sul.t-online.de!t-online.de!border2.nntp.dca.gigane
ws.com!nntp.giganews.com!postnews.google.com!b2g2000yqi.googlegroups.com!not-fo
r-mail
From: bartekltg <b...@g...com>
Newsgroups: pl.comp.programming
Subject: Re: BCB Moj ulubiony kod;)
Date: Thu, 11 Feb 2010 06:15:34 -0800 (PST)
Organization: http://groups.google.com
Lines: 32
Message-ID: <a...@b...googlegroups.com>
References: <hkneu1$1se$1@mx1.internetia.pl>
<d...@1...googlegroups.com>
<hkop6l$s9s$1@news.onet.pl> <hkoq0a$gni$1@news2.ipartners.pl>
<hkq2et$gj7$1@mx1.internetia.pl> <hkqr8b$6st$1@news.onet.pl>
<hkv1ds$91t$1@news.onet.pl> <hkvcct$f6m$1@news.onet.pl>
NNTP-Posting-Host: 83.16.154.155
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-2
Content-Transfer-Encoding: quoted-printable
X-Trace: posting.google.com 1265897735 9209 127.0.0.1 (11 Feb 2010 14:15:35 GMT)
X-Complaints-To: g...@g...com
NNTP-Posting-Date: Thu, 11 Feb 2010 14:15:35 +0000 (UTC)
Complaints-To: g...@g...com
Injection-Info: b2g2000yqi.googlegroups.com; posting-host=83.16.154.155;
posting-account=CvUQzQoAAABvVQmR58QmR6N4Cev1qhAS
User-Agent: G2/1.0
X-HTTP-UserAgent: Mozilla/5.0 (Windows; U; Windows NT 5.1; pl; rv:1.9.1.7)
Gecko/20091221 Firefox/3.5.7,gzip(gfe),gzip(gfe)
Xref: news-archive.icm.edu.pl pl.comp.programming:184786
[ ukryj nagłówki ]
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