Списки в StringGride

[Fox-II]

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

В общем я создал список ,сделал чтобы он выводил по стажу и он все выводит, а вот когда добавляешь условие со специальностью, то начинаются проблемы

procedure TForm1.Button3Click(Sender: TObject);
var i:integer;
    dop:spisok;
begin
dop:=Head;
i:=0 ;
StringGrid2.RowCount:=2;
StringGrid2.Rows[1].Clear;
  begin
    StringGrid2.Cells[0,0]:='номер';
    StringGrid2.Cells[1,0]:='ФИО;
    StringGrid2.Cells[2,0]:='СТАЖ';
    StringGrid2.Cells[3,0]:='ОКЛАД';
    StringGrid2.Cells[4,0]:='Специальность';

 while dop<>nil do
    begin

  /if (Edit8.text) = (dop^.spec)  then
if (Strtoint(edit6.Text) <= (Dop^.stag)) and (Strtoint(edit7.Text) >= (Dop^.stag)) then
  begin
    inc(i);
      if StringGrid2.RowCount-1<i then
       StringGrid2.RowCount:=StringGrid2.RowCount+1;
        StringGrid2.Cells[0,i]:=IntToStr(dop^.nom);
        StringGrid2.Cells[1,i]:=dop^.fam;
        StringGrid2.Cells[2,i]:=IntToStr(dop^.stag);
        StringGrid2.Cells[3,i]:=IntToStr(dop^.okl);
        StringGrid2.Cells[4,i]:=dop^.spec;
     end;
        dop:=dop^.next;
      end;
    end;
end;

[Serge_Bliznykov]

очень "грязный" код.. опечатки такие, которые банально даже скомпилировать его не дадут (см., например, присвоение заголовка ФИО - так нет закрывающей кавычки..),
какой то странный одиночный флеш, форматирование ужасное.. Вы что, код на форуме руками набирали? Скопировать не пробовали?!

Вы, вероятно, так написать хотели?

procedure TForm1.Button3Click(Sender: TObject);
var i: integer;
  dop: spisok;
begin
  dop := Head;
  i := 0;
  StringGrid2.RowCount := 2;
  StringGrid2.Rows[1].Clear;
  StringGrid2.Cells[0, 0] := 'номер';
  StringGrid2.Cells[1, 0] := 'ФИО';
  StringGrid2.Cells[2, 0] := 'СТАЖ';
  StringGrid2.Cells[3, 0] := 'ОКЛАД';
  StringGrid2.Cells[4, 0] := 'Специальность';

  while dop <> nil do
  begin
    if (Strtoint(edit6.Text) <= Dop^.stag) and (Dop^.stag >= Strtoint(edit7.Text)) then
    begin
      inc(i);
      if StringGrid2.RowCount - 1 < i then
        StringGrid2.RowCount := StringGrid2.RowCount + 1;
      StringGrid2.Cells[0, i] := IntToStr(dop^.nom);
      StringGrid2.Cells[1, i] := dop^.fam;
      StringGrid2.Cells[2, i] := IntToStr(dop^.stag);
      StringGrid2.Cells[3, i] := IntToStr(dop^.okl);
      StringGrid2.Cells[4, i] := dop^.spec;
    end;
    dop := dop^.next;
  end;
end;

[Fox-II]

Сообщение от Serge_Bliznykov

очень "грязный" код.. опечатки такие, которые банально даже скомпилировать его не дадут (см., например, присвоение заголовка ФИО - так нет закрывающей кавычки..),
какой то странный одиночный флеш, форматирование ужасное.. Вы что, код на форуме руками набирали? Скопировать не пробовали?!

Вы, вероятно, так написать хотели?

Извините за "грязь", не просмотрел
Ну да все так и должно было быть, но там когда я завожу условие поиска в пределах стажа, все работает, а вот когда добавляю еще одно условие то она вообще перестает работать....
Просматривал пошагово, она проверив условия по специальности, выходит на

dop := dop^.next;

и не выводит ни одного значения...

Если сможете, помогите пожалуйста)


_______________
НЕ злоупотребляйте излишним цитированием!
Это нарушение называется overquoting (оверквотинг)
Удаляйте из цитаты лишний текст!

Модератор.

[Serge_Bliznykov]

Просматривал пошагово, она проверив условия по специальности, выходит на

ну, очевидно, что написанные вами условия НЕ ВЫПОЛНЯЮТСЯ! (нет таких записей в списке).

[Fox-II]

Сообщение от Serge_Bliznykov

нет таких записей в списке.

В том то и дело, что такие элементы присутствуют, а вот условие просто не выполняется...
Может нужно как то по другому написать?
Вот у меня в Edit8 заводится специальность, и она должна найти ее Dop^.spec.А она почему то просто проскакивает мимо нее. Я вот и думаю , что возможно неправильно задаются условия поиска по специальности :
if (edit8.Text) = (dop^.spec) then

[Serge_Bliznykov]

Вот у меня в Edit8 заводится специальность, и она должна найти ее Dop^.spec.А она почему то просто проскакивает мимо нее. Я вот и думаю , что возможно неправильно задаются условия поиска по специальности :
if (edit8.Text) = (dop^.spec) then

в вашем коде должный совпасть с точностью ДО БУКВЫ и пробела то, что находится в dop^.spec и то, что Вы занесли в edit8
чтобы игнорировать пробелы, можно использовать функцию Trim()
чтобы игнорировать регистр (чтобы сравнению было всё равно - большие, маленькие буквы) можно использовать функцию AnsiUpperCase

вот так:

if (AnsiUpperCase(Trim(edit8.Text)) = AnsiUpperCase(Trim(dop^.spec))) then

но, разумеется, Вы должны понимать, что ПОВАР в любом случае не будет равен ПOBAP (выделенные буквы - латинские! o b a p)

[Fox-II]

Спасибо большое, теперь все работает, без вас бы не разобрался