Stringgrid запись без пустых строк

← →
Иван (2012-12-12 18:52) [0]

Здравствуйте, такое дело когда ввожу 1 и 3, вторая строка чистая, ввожу 2, исчезает 3, 2 вводится, ввожу 4 появляется 3:( помогите сделать, что бы при вводе 1 и 3, 3 вставала на вторую строку, в общем не было чистых строк:( вот код
procedure TForm1.Button2Click(Sender: TObject);
var
r,e:integer;
begin
Reset(F);
r:=StrToInt(Edit2.Text);
StringGrid2.RowCount:=r;
i:=1;
while not eof(f) do
begin
Read(F,P);
mas[i]:=P;
i:=i+1;
l:=StrToInt(Edit2.Text);
end;
K:=1;
e:=1;
for j := 1 to i-1 do begin
if mas[j].Nomer=l then begin
with StringGrid2 do begin
begin
Cells[0,l]:=IntToStr(mas[j].Nomer);
Cells[1,l]:=mas[j].Familya;
Cells[2,l]:=mas[j].imya;
RowCount:=RowCount+1;
end;
k:=k+1;
e:=e+1;
begin
end;
end;
end;
end;
StringGrid2.FixedRows:=1;
end;

← →
Сергей М. © (2012-12-12 21:35) [1]

Русский не знаешь, нерусский тоже ..
Чего надо-то, Вань ? Нихрена ж непонятно...
Ты успокойся и процитируй задание препода в оригинальном виде..

← →
Иван (2012-12-13 10:01) [2]

что бы строка не пропадала я уже сделал, вот что мне надо, у меня есть список преподов, они записаны в стрингрид, когда преподы приходят, я ввожу в эдит его порядковый номер с первого стринггрида, и он переносится во второй стринггрид, допустим пришел первый, а заним третий, я их записал, а на месте вторго пустая строка, мне нужно, что бы эта строка не оставалась пустой, что бы третий вставал на место второго, а если потом пришел второй, я ввел номер два в эдит и он встал на вторую строку, а номер три сместился на строку ниже.

← →
Jeer © (2012-12-13 10:03) [3]

Ну так и сделай перекидку старого вниз, а нового на его место - это две операции.

← →
Иван (2012-12-13 18:11) [4]

напиши код, если не трудно.

> напиши код

Вань, ты не в избе-писальне кода.

Stringgrid запись без пустых строк Найти похожие ветки