Delphi считать слова из файла в стрингрид и число повторений

[salmon172]

Сделал прогу, но не могу понять толком в чем ошибка, при запуске прога виснет, помогите разобраться, пожалуйста,

procedure TForm1.Button2Click(Sender: TObject);

var   i,j,k,n:integer;
      s,s2,leks:string;
      razd,ch:set of char;
        words:TEXTfile;

begin
razd:=['.' , ';' , ',' , ':' , '=' , '(' , ')' , '+' , '-' , '*' , '/' , '^' , '=' , '<', '>', ' '];

stringgrid2.cells[0,0]:='Слова';
  stringgrid2.cells[1,0]:='повторения';
  stringgrid2.rowcount:=2;
  Memo1.Lines.LoadFromFile('123.txt');
  AssignFile(words,'слова.txt');
  Reset(words);
  while not Eof(words) do
  begin
     Readln(words, leks);
      stringgrid2.Cells[0,StringGrid2.RowCount-1]:=UpperCase(leks); //  ñèìâîëû 
    stringgrid2.Cells[1,StringGrid2.RowCount-1]:='0';
    StringGrid2.RowCount:=StringGrid2.RowCount+1;
  end;
  CloseFile(words);
     for i:=0 to Memo1.lines.Count-1 do
       begin
         j:=1;
         s:=Memo1.Lines[j];
          while j<=length(s) do  begin
           if  not (s[j] in razd) then s2:=s2+s[j];
           if (s[j] in razd) or (j=length(s)) then

              begin
              for  n:=1 to  (StringGrid2.RowCount+1)   do begin
                if UpperCase(leks)=stringgrid2.Cells[1,n] then
                  stringgrid2.Cells[1,n]:=inttostr(strtoint(stringgrid2.Cells[1,n])+1);
                     end;
                     end;
                delete(leks,1,j);
                end; end;
             inc(j);
             end;

    //StringGrid2.RowCount:=StringGrid2.RowCount-1;

end.

[Ghost of Night]

В режиме отладки не пробовали посмотреть на какой строке и с какими данными прога зависает?

[salmon172]

да, пробовал, ничего не выходит(((

[Serge_Bliznykov]

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

                delete(leks,1,j);

что это Вы из переменной leks удаляете, если а) вы туда ничего не писали b) это никак на цикл не влияет. вот while j<=length(s) do begin и крутится бесконечно..


p.s. я бы на вашем месте начал с того, чтобы определил, что Вы хотите своей программой сделать,
потом расписал подробный алгоритм (хоть в виде блок-схемы, хоть в виде описания последовательности на псевдо-языке, хоть просто по русски). и уже только после этого писал (и отлаживал) реализацию на Delphi...