Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.06.13;
Скачать: CL | DM;

Вниз

HELP   Найти похожие ветки 

 
Arkan   (2002-06-03 02:32) [0]

Блин народ нифига невыходит вот значит само задание
Создать файл с информацией о жильцах дома : номер квартиры,
фамилия , кол-во членов семьи, этаж, дата переезда.
Написать программу определяющую на каком этаже живё большее кол-во жилцов, выдающую список жильцов переехавших только в этом году и спсок однофамильцев.
ВСЁ сделал кроме однофамильцев вот значит процедурка которая из
одного Stringgrid посылает в другой Stringgrid список однафамильцев

procedure TForm1.Button7Click(Sender: TObject);
var
i,j:integer;
Konec:Integer;
name: string;
i1,j1,js:Integer;
begin
dom2.RowCount:=100;
j:=2;
j1:=1;
Konec:=1;
Js:=1;
j1:=1;
Repeat
j:=1;
Repeat
if Dom.Cells[2,js]<>"" then
Name:=Dom.Cells[2,js] else exit;
if AnsiCompareText(name,dom.Cells[2,j+1])=0 then
begin
for i:=1 to 5 do
Begin
dom2.Cells[i,j1]:=dom.Cells[i,j+1];
dom.Cells[i,j+1]:="";
End;
Inc(j1);
end;
Inc(j);
Until j=dom.RowCount;
Inc(Konec);
Inc(js);
Until Konec=dom.RowCount;
End;
где dom - спсок жильов (Stringgrid) а dom2 список однафамильцев


 
Voldemar ©   (2002-06-03 06:10) [1]

А почему не сделать по человечески - хотя бы с парадоксовской таблицей?


 
Arkan   (2002-06-03 12:35) [2]

А это как?



Страницы: 1 вся ветка

Текущий архив: 2002.06.13;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.013 c
1-40106
eSKey
2002-05-24 12:35
2002.06.13
Бред с отображением кэпшнов на формах.


1-40063
DeMoN-777
2002-06-02 10:30
2002.06.13
Удаление левых символов2


6-40139
kvcomp
2002-03-21 11:51
2002.06.13
Уважаемые Мастера! Очень нужна Ваша помощь! Срочно!!!


1-40003
Сатир
2002-06-03 14:41
2002.06.13
Combobox Items


1-40085
Новеньки в Делфи
2002-06-03 00:15
2002.06.13
Прописаться в реестр