Форум: "Основная";
Текущий архив: 2002.06.13;
Скачать: [xml.tar.bz2];
ВнизСортировка Найти похожие ветки
← →
Arkan (2002-06-01 21:34) [0]Народ help me срочно нужно зделать следуюшее
есть список фамилий нужно из этого списка в другой список
поместить фамилии однафамильцев а тех кто к ним неотноситься
непомещать туда
заранее Спасибо!
← →
Новеньки в Делфи (2002-06-01 22:55) [1]тебу нужен код, или теория?
в теории, брать каждую фамилию и сравнивать с фамилиями которые находятся ниже выбранной. Если есть совпадение, сравнить есть ли такая фамилия в новом списке, если нету, тогда записать.
← →
Agent Smith (2002-06-02 07:54) [2]Берем ВСЕГДА первую фамилию из списка, сравниваем ее с нижними, как только находим однофамильца, то копируем его в другой список, а в первом удаляем. И так пока не закончится первый список. Затем копируем и удаляем первую фамилию. Если совпадений нет, то удаляем первую фамилию. И так далее, пока первый список не кончится. Рекомендую запихать все это в repeat...until, так как For в данном случае не универсален из-за изменчивости размера списка за счет однофамильцев.
← →
Arkan (2002-06-02 08:09) [3]Мне нужен код а за теорию спасиба
← →
Song (2002-06-02 09:56) [4]Поместите в TStringList. Дальше используем свойство Sorted. На этом этапе фамилии уже отсортированы. Дальше выбираем те фамии что нужны (все однофамильцы будут стоять в списке рядом).
← →
Arkan (2002-06-02 14:23) [5]Блин народ нифига невыходит вот значит само задание
Создать файл с информацией о жильцах дома : номер квартиры,
фамилия , кол-во членов семьи, этаж, дата переезда.
Написать программу определяющую на каком этаже живё большее кол-во жилцов, выдающую список жильцов переехавших только в этом году и спсок однофамильцев.
ВСЁ сделал кроме однофамильцев вот значит процедурка которая из
одного 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 список однафамильцев
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.06.13;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.005 c