Премахване на низ в stringgrid
Здравейте всички.
като прост начин nibolee realizovt тема?
> AHT
Трябва да сте физически изтриете запис или това ще бъде достатъчно, за да го скрие от очите?
информация пристрастия и да се намали броя на редовете:
процедура TForm1.Button1Click (Sender: TObject);
Var
# XA0; и: цяло число;
започвам
# XA0, защото: = StringGrid1.Row + 1 до StringGrid1.RowCount - 1 направи
# XA0; # XA0; StringGrid1.Rows [I - 1] .Assign (StringGrid1.Rows [Ь]);
# XA0; StringGrid1.RowCount: = StringGrid1.RowCount - 1;
приключи;
> AHT
процедура TForm1.Button1Click (Sender: TObject);
Var
I: цяло число;
започвам
StringGrid1.Row: = 0;
I: = 0;
докато (I<=StringGrid1.RowCount - 1)and( StringGrid1.Row
ако аз> = 2 след това започва
# XA0; StringGrid1.Rows [I] .Assign (StringGrid1.Rows [Ь + 1]);
сложи край на друг
# XA0; StringGrid1.Row: = StringGrid1.Row + 1;
# XA0; Inc (I);
приключи;
# XA0; // StringGrid1.RowCount: = StringGrid1.RowCount - 1;
приключи;
Къде 2 - линия номер, който искате да изтриете (код влажна)
Добре, чудесно pasibo
Stringrida нямам записи. Той има само линии. И това не е едно и също нещо - виж информацията на низа и TStrings в MSDN.
"Не мога да се съглася с вас. Свежестта никога не е от втора степен. Това е само първата, тя е и за последен. Защо, ако обичате, няма да ви се наложи да се опита." (МИМ)
"Пишете само в краен случай, ако не пиша не мога" (Антон Чехов)
> MsGuns
Не пишете - жест, отколкото облекчаване нужди. (Е, всичко. Точно сега, ние ще изтрие модераторите)
Хелън, можете да си представите bluzonchik купих нов. Или в кафенето щяха почитател - не всички са за опъване на мозъка.
Sory за fotop но defchonka имам;))
> MsGuns
Opa спонсори. ЕАП. Моят каприз за вашия groshiki; D
Например премахнете цифра низ 2 натискане на бутона Button1.
тип
# XA0; THStringGrid = клас (TStringGrid)
приключи;
процедура TForm1.Button1Click (Sender: TObject);
започвам
# XA0; THStringGrid (StringGrid1) .DeleteRow (2);
приключи;
Хората ми казват, че е защо при такова изпълнение
тип
THStringGrid = клас (TStringGrid)
приключи;
процедура TForm1.Button1Click (Sender: TObject);
започвам
THStringGrid (StringGrid1) .DeleteRow (2);
приключи;
след сваляне на грим
Vylaziet край на плочата, че линията, която ще премахнете текущата това. (
Предполагам, че тя се съхранява някъде и трябва да се изстърже надолу магазина.
ми каже къде.
> Предполагам, че това се съхранява някъде и трябва да се изстърже надолу магазина.
>.
> Кажи ми къде.
>
Редове собственост [индекс: Integer]: TStrings;
Аз вече са направили ясни го редове [в], преди да ги изтриете. така че, когато се добавя нов ред, той автоматично празен.
Сега друг възниква въпросът, как да маркирате различни линии в различни цветове?
Искам да кажа, нека тези, които са готови да се отстранят на червено, други са все още някои нишка.
Цвят на имот priminitelno да редове [в] нещо, което аз не съм намерил. (
А просто цвят от мрежата - боя на цялата мрежа.
PLZ ми кажете.
"Paint", разбира се, ще трябва да, в OnDrawCell, в контекста на Canvas.Font.Color
и Canvas.Brush.Color, Canvas.Pen.Color