Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Иван © (2012-12-12 18:52:00)
Здравствуйте, такое дело когда ввожу 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-13 20:18:00) [1]

> напиши код

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

Иван (2012-12-13 18:11:00) [2]
напиши код, если не трудно.

Jeer (2012-12-13 10:03:00) [3]
Ну так и сделай перекидку старого вниз, а нового на его место - это две операции.

Иван (2012-12-13 10:01:00) [4]
что бы строка не пропадала я уже сделал, вот что мне надо, у меня есть список преподов, они записаны в стрингрид, когда преподы приходят, я ввожу в эдит его порядковый номер с первого стринггрида, и он переносится во второй стринггрид, допустим пришел первый, а заним третий, я их записал, а на месте вторго пустая строка, мне нужно, что бы эта строка не оставалась пустой, что бы третий вставал на место второго, а если потом пришел второй, я ввел номер два в эдит и он встал на вторую строку, а номер три сместился на строку ниже.

Сергей М. (2012-12-12 21:35:00) [5]
Русский не знаешь, нерусский тоже ..
Чего надо-то, Вань ? Нихрена ж непонятно...
Ты успокойся и процитируй задание препода в оригинальномвиде..

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »