Чтото с циклами

[olololeg]

Ничего не понимаю...
переменньіе обявил...

вот аткие ошибки вьідает:

[Hint] Unit1.pas(104): Variable 'i' is declared but never used in 'TPagesDlg.N4Click'
[Error] Unit1.pas(254): ')' expected but ':=' found
[Error] Unit1.pas(255): ')' expected but ':=' found
[Fatal Error] Project1.dpr(6): Could not compile used unit 'Unit1.pas'

procedure TPagesDlg.N10Click(Sender: TObject);
var
  i,j:integer;
begin
  combobox1.sorted:=true;
    Newcombobox;
    NewEdit(combobox1);
  for (j:=1 to n-1) do
   for (i:=1 to n-j) do
    if stringgrid1.Cells[0,i]>stringgrid1.Cells[0,i+1] then
     begin
       r.prizv:=stringgrid1.Cells[0,i+1];
       r.imya:= stringgrid1.Cells[1,i+1];
       r.adresa:= stringgrid1.Cells[2,i+1];
       r.tel:=stringgrid1.Cells[3,i+1];

       stringgrid1.Cells[0,i+1]:=stringgrid1.Cells[0,i];
       stringgrid1.Cells[1,i+1]:=stringgrid1.Cells[1,i];
       stringgrid1.Cells[2,i+1]:=stringgrid1.Cells[2,i];
       stringgrid1.Cells[3,i+1]:=stringgrid1.Cells[3,i];

       stringgrid1.Cells[0,i]:=r.prizv;
       stringgrid1.Cells[1,i]:=r.imya;
       stringgrid1.Cells[2,i]:=r.adresa;
       stringgrid1.Cells[3,i]:=r.tel;
     end;

[Sciv]

Ну первая, хоть и не ошибка, а хинт, но даже не к этой процедуре относится:

TPagesDlg.N4Click

А остальные... ясно только, что они в 254 и 255 строчках, где компилятор вместо ожидаемой скобки встретил оператор присваивания. А в этой ли они процедуре или нет - Вам видней, тут вроде все нормально...

[Человек_Борща]

Неа, нифига не нормально.

procedure TPagesDlg.N10Click(Sender: TObject);
var
  i,j:integer;
begin
  combobox1.sorted:=true;
    Newcombobox;
    NewEdit(combobox1);
  for (j:=1 to n-1) do
  begin
   for (i:=1 to n-j) do
   begin
   if stringgrid1.Cells[0,i]>stringgrid1.Cells[0,i+1] then
     begin
       r.prizv:=stringgrid1.Cells[0,i+1];
       r.imya:= stringgrid1.Cells[1,i+1];
       r.adresa:= stringgrid1.Cells[2,i+1];
       r.tel:=stringgrid1.Cells[3,i+1];

       stringgrid1.Cells[0,i+1]:=stringgrid1.Cells[0,i];
       stringgrid1.Cells[1,i+1]:=stringgrid1.Cells[1,i];
       stringgrid1.Cells[2,i+1]:=stringgrid1.Cells[2,i];
       stringgrid1.Cells[3,i+1]:=stringgrid1.Cells[3,i];

       stringgrid1.Cells[0,i]:=r.prizv;
       stringgrid1.Cells[1,i]:=r.imya;
       stringgrid1.Cells[2,i]:=r.adresa;
       stringgrid1.Cells[3,i]:=r.tel;
     end;
   end;

Красное - ваши ошибки.

[olololeg]

Ну <Begin end;>-ов я понаставил питаяс решить проблему.
Изначально било без них но помоему они вообще роли не играют

а нащет := можно подробнее?
как надо?

[Человек_Борща]

ой, блин. Походу я переработал.
по поводу := все правильно у вас.

В циклах for уберите (), оно там не нужно.

[olololeg]

Спасибо так все работает!
как мне закрьіть тему?