В тази статия бих искал да говоря за това как елементите на масив може да бъде отстранен чрез изместване. Много технология отстраняване се използва - чрез замяна, изтриете елементи като нули, или нещо друго, но те просто не вземат извличането на елементите на масив. Много просто написана на различен набор от елементи, които искате и след това да го отпечатате, това не е вярно, че е в действителност, ние също имаме масив, така че в него трябва да се отстранят елементите, а не да се премести в друга, а ако елементите не показват, че остава фактът, там и заемат място в паметта, което не е добро. Алгоритъмът, чрез пренасочване на много проста, просто с елементите да бъдат изтрити, например, всички "нули" започва преди края на изместването на елементите на масива, и след това цикълът започва отначало и толкова дълго, колкото не е елемент от масива, който искате да изтриете. Във формуляра Имам следните компоненти, ние ще направим всичко не това в режим на конзола, и графика

В TStringGrid Опции -goEditing сграда, разположена на True. в FixedCols. FixedRows задават на 0, в RowCount собственост, определени 1 (както ние ще работим с едномерен масив).

Следваща по Бутон събитието OnClick, аз написах следния код

Говорейки за теми за програмиране - има много среди за разработка, програмни езици, компилатори, един от най-популярните езици за програмиране в момента е Java. Ако искате да научите как да го програмирате, просто трябва да изтеглите книга Java философията. който ще ви помогне да научите повече нови техники и методи за програмиране на този език.

ако тя е по-лесно да се направи stringgrid
за х: = stringgrid1.row да stringgrid1.rowcount-1 направи
започвам
stringgrid1.rows [х] .commatext: = stringgrid1.rows [х + 1] .commatext;
приключи;
stringgrid1.rowcount: = stringgrid1.rowcount-1;

Истината е, да изтриете избраната линия в stringgride

помогнете да направим цикъл два един се добавя а вторите данни, ако стойността е нула след това изтрива ред, независимо от факта, че те не си пречат взаимно, да направя нещо подобно се получава, че кривата

Моля да ми помогне. В случай, че бъде в ComboBox бяха имената на всички дискове, с изключение на тези, които вече са в списъка с файлове ...

процедура TForm1.FormCreate (Sender: TObject);
Var
I, J, i_name, j_name: цяло число;

i_name: = 0;
j_name: = 0;

за к: = j_name да ListBox1.Items.Count-1 направи
започвам
защото: = i_name до 25 правим
започвам
ако drv_name ListBox1.Items.Strings [I] [й] И

ComboBox1.Items.Add (drv_name [Ь]);
i_name: = i_name + 1;
приключи;
приключи;
ListBox1.Refresh;
ComboBox1.Refresh;