Eliminarea șir în stringgrid
HI ALL.
ca un mod simplu nibolee realizovt subiect?
> AHT
Ai nevoie pentru a șterge fizic o înregistrare sau va fi suficient pentru a-l ascunde de ochi?
informații prejudecată și de a reduce numărul de rânduri:
Procedura TForm1.Button1Click (Expeditor: TObject);
var
# XA0; i: integer;
începe
# XA0; pentru i: = StringGrid1.Row + 1 la StringGrid1.RowCount - 1 do
# XA0; # XA0; StringGrid1.Rows [i - 1] .Assign (StringGrid1.Rows [i]);
# XA0; StringGrid1.RowCount: = StringGrid1.RowCount - 1;
se încheie;
> AHT
Procedura TForm1.Button1Click (Expeditor: TObject);
var
i: integer;
începe
StringGrid1.Row: = 0;
i: = 0;
în timp ce (i<=StringGrid1.RowCount - 1)and( StringGrid1.Row
dacă i> = 2 începe apoi
# XA0; StringGrid1.Rows [i] .Assign (StringGrid1.Rows [i + 1]);
încheie altceva
# XA0; StringGrid1.Row: = StringGrid1.Row + 1;
# XA0; inc (i);
se încheie;
# XA0; // StringGrid1.RowCount: = StringGrid1.RowCount - 1;
se încheie;
În cazul în care 2 - numărul liniei pe care doriți să-l ștergeți (cod umed)
OK, mare pasibo
Stringrida nu au înregistrări. Ea are doar linii. Și nu e același lucru - a se vedea informația de pe șirul și TStrings în MSDN.
„Nu pot fi de acord cu tine. Prospețimea nu este de gradul doi. Acesta este doar primul, acesta este, de asemenea, ultima. De ce, dacă te rog, nu va trebuie să încerci.“ (MIM)
„Scrieți doar în ultimă instanță, dacă nu scrie, nu se poate“ (Anton Chekhov)
> MsGuns
Nu scrie - un gest, mai degrabă decât alinarea nevoilor. (Ei bine, totul. Chiar acum, vom șterge moderatori)
Helen, v-ar imagina bluzonchik cumparat nou. Sau în cafenea aveau admirator - nu toate sunt la tulpina creierului.
Sory pentru fotop dar defchonka luat;))
> MsGuns
sponsori OPA. URA. capriciu meu pentru groshiki ta; D
De exemplu, eliminați șir de numărul 2 apăsând butonul Button1.
tip
# XA0; THStringGrid = clasă (TStringGrid)
se încheie;
Procedura TForm1.Button1Click (Expeditor: TObject);
începe
# XA0; THStringGrid (StringGrid1) .DeleteRow (2);
se încheie;
Oamenii îmi spun că de aceea, la o astfel de punere în aplicare
tip
THStringGrid = class (TStringGrid)
se încheie;
Procedura TForm1.Button1Click (Expeditor: TObject);
începe
THStringGrid (StringGrid1) .DeleteRow (2);
se încheie;
după demachiere
plăci de capăt Vylaziet acea linie, ceea ce va elimina curentul care. (
Presupun că este stocat undeva și trebuie să razuiti magazin.
spune-mi unde.
> Presupun că stocate undeva și trebuie să razuiti magazin.
>.
> Spune-mi unde.
>
Rândurile de proprietate [Index: Integer]: TStrings;
Am făcut deja rânduri clar ca [i], înainte de a le șterge. așa că atunci când am insera o nouă linie, goală în mod automat.
Acum, o altă întrebare ia naștere, cum pentru a marca linii diferite în culori diferite?
Adică, să cei care sunt dispuși să elimine roșu, altele sunt încă unele fire.
Culoare proprietate priminitelno la rânduri [i] ceva ce nu am găsit. (
O culoare simplu din grila - vopsea întreaga rețea.
plz spune-mi.
„Paint“, desigur, va trebui să, în OnDrawCell, în contextul Canvas.Font.Color
și Canvas.Brush.Color, Canvas.Pen.Color