Как узнать номер последней записи в StringGrid’е?

← →
Pichkarus (2002-08-01 02:09) [0]

Очень нужно! Помогите пожалуйста!

← →
Aleks1 (2002-08-01 02:55) [1]

А RowCount-1 не подойдет?

← →
Григорий Ситнин © (2002-08-01 09:06) [2]

LastRow := pred(TStringList.Count);

← →
Pichkarus (2002-08-01 12:56) [3]

> Григорий Ситнин © (01.08.02 09:06)

Нет, мне надо не StringList, а StringGrid!
Пробовал подставить – ничего не вышло…

> Aleks1 (01.08.02 02:55)

А что значит?

Вообще количество строк в StringGrid’е может быть сколько угодно, а заполненных, даже хотя бы одним символом – не все, причем заполнены они могут быть не по порядку, а скажем через одну, так вот мне надо узнать номер самой самой последней заполненной строки!
В этом та вся и сложность, прошу помочь!
Заранее благодарен!

← →
Anatoly Podgoretsky © (2002-08-01 12:59) [4]

Никакой сложности, цикл от конца в начала начала и проверка всех ячеек на заполненность

← →
Skier © (2002-08-01 13:07) [5]

>Pichkarus

Примерно так :

procedure TForm1.Button1Click(Sender: TObject); function GetLastRow(const AStringGrid : TStringGrid) : Integer; var ii, jj : Integer; begin Result := -1; if AStringGrid = nil then Exit; for ii := AStringGrid.RowCount - 1 downto 0 do begin for jj := 0 to AStringGrid.ColCount - 1 do begin if AStringGrid.Cells[jj, ii] <> EmptyStr then begin Result := ii; Exit; end; //if end; //for jj end; //for ii end; //GetLastRow begin WriteLn(GetLastRow(StringGrid1)); end;

← →
Pichkarus (2002-08-01 13:08) [6]

Ну пытался вчера – не получилось :(

← →
Pichkarus (2002-08-01 13:11) [7]

> Skier © (01.08.02 13:07)

Щас попробую!

← →
MBo © (2002-08-01 13:11) [8]

упрощение
for ii := AStringGrid.RowCount - 1 downto 0 do
if Length(AStringGrid.Rows[ii].Commatext)>0 then begin
Result:=ii;
Break;
end;

← →
Skier © (2002-08-01 13:13) [9]

>MBo
Хитро !
А это быстрее будет работать ?

Где это видно как ты пытался, тебе уже и код привели, практически рабочий, я бы обернул обращение к ячейке в функцию TRIM, что бы отсеть строки из одник пробелов и отношение изменил с <> на =

Ой отношение менять не надо, с ним все в порядке, жара

Skier © (01.08.02 13:13)
Какая разница, если сетка несколько тысяц строк, то уже не важно.

>Skier
быстрее - вряд ли

← →
Pichkarus (2002-08-01 13:17) [13]

Всем Большое Спасибо!

Как узнать номер последней записи в StringGrid’е? Найти похожие ветки