Eltávolítása string stringgrid
HI ALL.
mint egy egyszerű módja nibolee realizovt alá?
> AHT
Be kell, hogy fizikailag rekordot törölni, vagy elég lesz, hogy elrejti a szemét?
elfogultság információt, és csökkenti a sorok számát:
eljárás TForm1.Button1Click (Sender: TObject);
var
# XA0; i: integer;
kezdődik
# XA0; i: = StringGrid1.Row + 1 StringGrid1.RowCount - 1 do
# XA0; # XA0; StringGrid1.Rows [i - 1] .Assign (StringGrid1.Rows [i]);
# XA0; StringGrid1.RowCount: = StringGrid1.RowCount - 1;
végén;
> AHT
eljárás TForm1.Button1Click (Sender: TObject);
var
i: integer;
kezdődik
StringGrid1.Row: = 0;
i: = 0;
míg a (I<=StringGrid1.RowCount - 1)and( StringGrid1.Row
ha i> = 2, akkor kezdődik
# XA0; StringGrid1.Rows [i] .Assign (StringGrid1.Rows [i + 1]);
véget mást
# XA0; StringGrid1.Row: = StringGrid1.Row + 1;
# XA0; Inc (i);
végén;
# XA0; // StringGrid1.RowCount: = StringGrid1.RowCount - 1;
végén;
Amennyiben 2 - kívánt sor számát törölni (kód nedves)
ok, nagy pasibo
Stringrida Nincs rekord. Ez csak azokat a sorokat. És ez nem ugyanaz a dolog - lásd az információt a húr, és TStrings az MSDN-en.
„Nem tudok egyetérteni veled. A frissesség soha másodfokú. Ez csak az első, hanem az utolsó. Miért, ha úgy tetszik, akkor nem kell próbálni.” (MIM)
„Írja csak a legvégső esetben, ha nem írok nem” (Anton Chekhov)
> MsGuns
Ne írjon - gesztus, hanem enyhíti igényeinek. (Nos, mindent. Most fogjuk törölje moderátorok)
Helen azt képzelni bluzonchik vásárolt új. Vagy a kávézó mentek csodálója - nem minden feszítse az agyban.
Sory az fotop de defchonka van;))
> MsGuns
Opa szponzorok. URA. Saját szeszély a groshiki; D
Például távolítsa szám húr 2 gomb megnyomásával Button1.
típus
# XA0; THStringGrid = osztály (TStringGrid)
végén;
eljárás TForm1.Button1Click (Sender: TObject);
kezdődik
# XA0; THStringGrid (StringGrid1) .DeleteRow (2);
végén;
Az emberek azt mondják, hogy miért egy ilyen végrehajtás
típus
THStringGrid = osztály (TStringGrid)
végén;
eljárás TForm1.Button1Click (Sender: TObject);
kezdődik
THStringGrid (StringGrid1) .DeleteRow (2);
végén;
eltávolítása után, hogy
Vylaziet véglemezek, hogy a vonal, amely eltávolítja a jelenlegi, hogy. (
Azt hiszem, ez tárolja valahol, és kell, hogy kaparja le a boltba.
mondja meg, hol.
> Azt hiszem, valahol tárolni kell és kaparjuk le a boltba.
>.
> Mondd meg, hol.
>
ingatlan sorok [Index: Integer]: TStrings;
Már világossá tette, hogy rows [i], a törlés előtt. így amikor be egy új sort, akkor automatikusan üres.
Most egy újabb kérdés merül, hogyan lehet megjelölni a különböző vonalak különböző színekben?
Úgy értem, hagyja azokat, akik hajlandóak eltávolítani a vörös, mások még mindig néhány téma.
color tulajdonság priminitelno a sorok [i], amit én nem találtam. (
Egy egyszerű színt a rács - festeni az egész hálózatra.
plz mondja meg.
„Paint”, persze, meg kell, hogy OnDrawCell, összefüggésben Canvas.Font.Color
és Canvas.Brush.Color, Canvas.Pen.Color