Eltávolítása a tömb mozgatásával a blog Delphi-programozó

Ebben a cikkben szeretnék beszélni, hogy a tömb elemeit lehet eltávolítani elmozdulás. Sok eltávolítása technológiát alkalmazzák - helyettesítésével, törölje tételek, mint a nulla, vagy valami más, de egyszerűen nem veszik levezetését a tömb elemeit. Sok most írt egy másik tömb a kívánt elemeket, majd nyomtassa ki, ez nem helyes, hogy van, sőt, mi is van egy tömb, hogy benne van, hogy távolítsa elemeket, hogy ne menjen egy másik, és ha az elemek nem mutatnak, ezek az a tény is ott, és vegye fel memóriának, ami nem jó. Az algoritmus eltolásával nagyon egyszerű, csak az elemeket kell hagyni, például az összes „nulla” kezdődik vége előtt az elmozdulás a tömb elemei, majd a ciklus kezdődik elölről, és amíg nincs elem a tömbben a törölni kívánt. A forma már a következő komponenseket, akkor mindezt nem konzolos módban, és a grafika

A TStringGrid Options -goEditing tulajdonság True. A FixedCols. FixedRows 0, a rowcount ingatlan 1 készlet (például fogunk dolgozni egydimenziós tömb).

Tovább az onclick esemény gomb, írtam az alábbi kódot

Apropó programozási témák - sok fejlesztési környezetek, programozási nyelvek, fordítóprogramok, az egyik legnépszerűbb programozási nyelv jelenleg a Java. Ha azt szeretnénk, hogy megtanulják, hogyan kell programozni, akkor csak le kell tölteni a könyvet Java filozófia. amely segít megtanulni, több új technikákat és módszereket programozás ezen a nyelven.

ha ez könnyebb stringgrid
X: = stringgrid1.row a stringgrid1.rowcount-1 do
kezdődik
stringgrid1.rows [x] .commatext: = stringgrid1.rows [x + 1] .commatext;
végén;
stringgrid1.rowcount: = stringgrid1.rowcount-1;

Az igazság az, hogy törölje a kiválasztott vonal stringgride

segíteni abban, hogy a két ciklusban adunk hozzá, és a második adatokat, ha az érték nulla, akkor törli a sort, annak ellenére, hogy nem zavarják egymást, én ilyet görbét kapunk

Kérem, segítsen. Legyen ez a legördülő menüből voltak a nevét minden lemez esetén, kivéve azokat, amelyek már a ListBox ...

eljárás TForm1.FormCreate (Sender: TObject);
var
i, j, i_name, j_name: integer;

i_name: = 0;
j_name: = 0;

j: = j_name a ListBox1.Items.Count-1 do
kezdődik
i: = i_name 25 do
kezdődik
ha drv_name [i] ListBox1.Items.Strings [j], majd

ComboBox1.Items.Add (drv_name [i]);
i_name: = i_name + 1;
végén;
végén;
ListBox1.Refresh;
ComboBox1.Refresh;