Помогите найти ошибку в коде

[Jora_Kornev]

Доброго времени суток, уважаемые товарищи программисты!
Есть следующий код:

{...}
var
 f : TextFile;
 x, y, z, i : integer;
 s : string;
 massiv : array [1..28, 1..15, 1..25] of string;
begin
 AssignFile(f, 'mas.txt');
 {$I-}
 Reset(f);
 {$I+}
 for z:=1 to 28 do
  for x:=1 to 15 do
   for y:=1 to 25 do
    begin
     readln(f, massiv[z, x, y]);
     if x<>1 then
      begin
       s:=massiv[z,x,y];
       s[pos('.', s)]:=',';
       massiv[z,x,y]:=s;
      end;
    end;
 CloseFile(f);
end;
{...}

Данный код позволяет прочитать массив из файла

'mas.txt'

и заменить символ

'.'

на

','

.
Но, к сожалению, не работает почемуто... Может я где-то что-то упустил? Подскажите, пожалуйста.

[dadaye]

Вообще странный код какой-то...
откуда эти цифры 1..28, 1..15, 1..2 ??

[DelDev]

dadaye, вообще-то это многомерный массив

Jora_Kornev, а покажи файл который пытаешься обработать?

[ViktorXP]

:D этот код работать не будет 100%
Для этого нужно почитать про тип String. А там сказано что переменная этого типа является ссылкой на масив бай. Посему масив massiv является масивом Pointer-ов. так что либо зделай более совершенную загрузку выгрузку либо переделай масив под другой тип.
например

massiv : array [1..28, 1..15, 1..25, 0..300] of Char;
massiv : array [1..28, 1..15, 1..25] of String[255]; //ShortString

пс. программисты считают от нуля а не от еденицы

[ViktorXP]

Забираю слова обратно. я чето не заметил что это через AssignFile

[Levhik]

Jora_Kornev! А ты точно знаешь, что у тебя в файле 'mas.txt' будет столько строк, сколько у тебя элементов в массиве: 28*15*25? Это в твоем файле должно быть 10500 строк

[Jora_Kornev]

Levhik Да, я этот файл создаю другой процедурой (если быть точным - там 28 файлов, но не важно).

ViktorXP Дело, я так полагаю, не в типе String, да и алгоритм кажись правильный... но тем не менее...

DelDev А зачем Вам файл? В нем просто куча символов, среди которых встречаются '.' которые нужно заменить на ','


Да, забыл уточнить: проблема именно в замене, остальное все работает.

[DelDev]

Ладно, не надо файл - просто лень создавать было самому

Если кратко - ошибка тут:

s[pos('.', s)]:=',';

Подробнее, ViktorXP отчасти был прав, в том, что надо почитать про тип string.

Дело в том , что если символа для замены нет, то pos вернет 0, a s[0] - это не первый символ как в массиве, а длинна строки, отсюда и ошибка нарушения доступа к памяти. Исправляем так и все работает:

tmp := pos('.', s);
if tmp > 0 then
  s[tmp]:=',';

[Jora_Kornev]

Спасибо, разобрался! Впредь буду более внимателен!

[mihali4]

Вот эту строчку:
s[pos('.', s)]:=',';
поменяйте на:

while pos('.', s)>0 do
s[pos('.', s)]:=',';