[[The]Unknown_Master]

Решаю задачу по программированию и вылезает такая вот ошибка.
Собственно код:

Код:

begin
 assign(input,'lookandsay.in');
 readln(n);
 setlength(str,n);
 for i:=1 to n do
  begin
  readln(st);
  m:=length(st);
  for y:=1 to m-1 do
   begin
    if st[y]=st[y+1] then k:= k+1
       else
        begin
         str[i]:=str[i]+inttostr(k)+st[y];
         k:=1;
        end;//else
   end;// for y
   end;//for i
 assign(output,'lookandsay.out');
  for i:=1 to n do writeln(str[i]);
end.

Вылезает ошибка+ в выходной файл записывается коряво.
Подскажите, где ошибка.
Заранее спасибо.

[Drozh]

Во первых укажи типы переменных, а во второх кто файлы открывать/закрывать будет?

[[The]Unknown_Master]

Код:

var i,y,n,k,m:integer;
     st:string;
     str: array of string;

Если закрыть - ничего не меняется.

[Act]

файл на запись/дозапись открой.

[[The]Unknown_Master]

Всмысле reset,rewrite? Пробовал- не помогает.

[Alexo]

Ошибка означает доступ к обьекту которого не существует (обычно). Делаем точну остановки на начале функции и далее трасировкой нах=одим ошибку.

[Drozh]

Вот как типы указал, сразу стало ясно

Код:

var
 i, y, n, k, m: Integer;
 st: String;
 str: array of String; // массив динамический!!! Начинается с нуля!
 Input, Output: TextFile;
begin
 AssignFile(Input,'lookandsay.in'); // инициализация

 Reset(Input);// окрытие

 Readln(Input, n); // читается так

 Setlength(Str, n);

  for i := 0 to n-1 do // здесь у тебя была ошибка
  begin
   Readln(Input, st);
   m := length(st);
   k := 1;
    for y := 1 to m-1 do
    begin
     if st[y]=st[y+1] then
      Inc(k)
     else
     begin
      str[i] := str[i]+ IntToStr(k) + st[y];
      k := 1;
     end;
   end;
  end;
 
 CloseFile(Input); // закрываешь

 AssignFile(Output, 'lookandsay.out'); // все аналогично
 ReWrite(Output);

  for i:=0 to n-1 do
   Writeln(Output, str[i]);
 CloseFile(Output);

[[The]Unknown_Master]

Возникает на end. т.е. при завершении программы.
Drozh, если сделать, как ты показал, возникает другая ошибка - Access violation at adress такой-то in module 'coriede70.bpl'.

[Drozh]

Хм... У меня все работало... У тебя файлы в дирректории с программой присутствуют? Или просто приведи код полностью

[Alexo]

Сообщение от [The]Unknown_Master

Возникает на end. т.е. при завершении программы.

Видимо дебагер в семерке как то плохо работает, первая ошибка должна была словиться в конце цикла.

[[The]Unknown_Master]

Drozh, файлы присутствуют.Пробовал исправить свой, пробовал скопировать и вставить твой код.Ноль эффекта.Хотя нет - стала вылезать другая ошибка(((

[Drozh]

Ты чтото не так используешь, приведи свой код полностью

[[The]Unknown_Master]

Сегодня нашёл ошбку- она заключалась в использовании Delphi 7 под
висту.Перенёс на XP - всё заработало(((

[lmikle]

Гм... я свои програмки проверял на висте - все работает.
Единственное, что отказалось работать - одна штука, которая пользует SQLite, но об этом и так известно, что на висте работать не будет (хотя я слышал, что какими-то шаманскими танцами можно и ее заставить работать).

[devais]

Дело в том, что элементы массива String могут быть разные по длине. А Дельфи обращается к этим самым элементам по адресу в памяти и крайне редко (100% случаев) сбивается.

Я где-то читал, что надо обязательно ограничивать длину строки, когда создаешь динамический массив.