Не могу понять. str2[i]:=str[i] не работает!

[Arkuz]

Здравствуйте, форумчане.

Давненько я здесь не был. Попросили помочь сделать простенькую задачку.
Ну думал справлюсь за 10 минут. Пока вспомню что такое Паскаль и как там с файлами работать. И затянулось всё это у меня часа на 2,5.

Обратите внимание на выделенный фрагмент кода и объясните мне, пожалуйста, в чём проблема? Почему способ str2[i]:=str[i] не работает? Пробовал и в Delphi в консольном приложении и во FreePascal. По брейкпоинтам после этой строки сразу идёт в конец кода.

Вот код:

program f2g;
uses
  SysUtils;
var
 f,g:text;
 str,str2:string;
 i:integer;
begin
  assign(f,'f.txt');
  reset(f);
  writeln('File "f.txt" is OPEN');
  rewrite(g,'g.txt');
  writeln('File "g.txt" is CREATE / OPEN');
  writeln;
  while not eof(f) do
  begin
    readln(f,str);
    str2:='';
    for i:=1 to length(str) do
    begin
    //if (i mod 3) <> 0 then str2[i]:=str[i]; // так НЕ работает
      if (i mod 3) <> 0 then str2:=str2+str[i]; // так работает
    end;
    writeln(g,str2);
    writeln('Old string: ',str);
    writeln('New string: ',str2);
  end;
  writeln;
  writeln('File "g.txt" is WRITED');
  close(f);
  writeln('File "f.txt" is CLOSED');
  close(g);
  writeln('File "g.txt" is CLOSED');
  writeln;
  write('Press ENTER to exit');
  readln;
end.

[Arkuz]

Понял )))

По запарке... Надо так, тогда работает.

while not eof(f) do
  begin
    readln(f,str);
 // str2:='';
    str2:='0';// любой один символ, так как в цикле i=1
    for i:=1 to length(str) do
    begin
    if (i mod 3) <> 0 then str2[i]:=str[i]; // так ТОЖЕ работает
   // if (i mod 3) <> 0 then str2:=str2+str[i]; // так работает
    end;
    writeln(g,str2);
    writeln('Old string: ',str);
    writeln('New string: ',str2);
  end;

[Poma][a]

str

Дак это ж процедурка!
А Вы еще как имечко переменной используете? Наверное, не очень хорошо..

[Arkuz]

Сообщение от Poma][a

Дак это ж процедурка!
А Вы еще как имечко переменной используете? Наверное, не очень хорошо..

Сколько писал мелкие лабораторки и прочее, всегда называл переменные str, никогда проблем не было.

[Poma][a]

Сколько писал мелкие лабораторки и прочее, всегда называл переменные str, никогда проблем не было.

А я всегда программу так начинаю :

program PorovozLetitNaSever;

И тож проблем нет
И пользовательские процедуры\функции называю Ugadai, и тож проблем нет

[Arkuz]

Сообщение от Poma][a

А я всегда программу так начинаю :

program PorovozLetitNaSever;

И тож проблем нет
И пользовательские процедуры\функции называю Ugadai, и тож проблем нет

Не понял Вашей иронии

А что касается процедуры или переменной str.

Если нет резервированного слова str, то его вполне можно использовать.

Лексический анализатор определит сам по наличию или отсутствию параметров переменная это или процедура.

[whatever]

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

Сколько писал мелкие лабораторки и прочее, всегда называл переменные str, никогда проблем не было.

Такая же фигня, проблем и не будет. Однако переназначать ни есть хорошо, теперь стараюсь такое имя переменной не использовать

[Sciv]

всегда называл переменные str, никогда проблем не было.

Ну это скорее проблемы несовершенства компилятора

[Serge_Bliznykov]

А что касается процедуры или переменной str.
Если нет резервированного слова str, то его вполне можно использовать.

слова то нет, а вот системная процедура с таким именем - есть.

var i: integer;
  s : string;
begin
  i := 3578;
  str(i,s);
  WriteLn(s);
  Readln
end.

Зачем переопределять имя системной процедуры? Назвовите хоть одну вескую причину, пожалуйста.

Вам приятно и понятно будет читать такой код?

var 
   Readln : string;
begin
  Readln := 'ddddd';
  WriteLn(ReadLn);
end.

он тоже компилируется и работает нормально...

[Arkuz]

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

Зачем переопределять имя системной процедуры? Назвовите хоть одну вескую причину, пожалуйста.

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

просто я так привык на аналогиях str от string - сразу понятно, что строковая переменная. обычно я даю нормальные имена переменным, а str это что-то типа tmp переменной.

Вот и всё.