[Kaktuz]

Мне вот интересно. Хоть кто-то пробует код в действии перед тем как его выложить?

Код:

Temp.Strings[i]:='a';
Temp[i]:='a';

Перезаписывает строку полностью.

Код:

Temp.Strings[j]:='a';
Temp.[j]:='a';

Тут вообще ошибка.

[angvelem]

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

Мне вот интересно. Хоть кто-то пробует код в действии перед тем как его выложить?

Мне вот интересно, ТС понимает, что он делает или нет. Судя по его предыдущему ответу:

...стандартной справкой не пользуюсь.

не понимает.

Код:

Temp.Strings[i]:='a';
Temp[i]:='a';

этот код обязан перезаписать всю строку

Код:

Temp.Strings[j]:='a';
Temp.[j]:='a';

как и этот, а то, что у ТС в J сидит какая хрень, так нужно голову на плечах иметь и инициализировать переменную верными данными.
Когда используешь код:

Код:

Temp.Strings[i][j]:='a';

нужно понимать, что строка I - номер строки, а J - смещение в строке. Строка начинается с 1, соответственно J не может быть меньше 1 и не может быть больше чем длина исправляемой строки, иначе результат непредсказуем.

[Kaktuz]

Я все так и делаю. Но у меня выдает ошибку на строку

Код:

Temp.Strings[i][j]:='a';

как не крути.

Уже в отдельном проекте тестирую и ни как

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
Box := TStringList.Create;
Box.Add('123');
Box.Add('456');
Box.Add('789');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Box.Strings[1][2]:='A'; // Ошибка
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
ShowMessage(Box.Text); // Показывает все содержимое
ShowMessage(Box.Strings[1][2]); // Показывает центр, цифру "5"
end;

[angvelem]

Напиши так:

Код:

var
  box : TStringList;
  st  : String;
begin
  ...
  Box := TStringList.Create;
  Box.Add('123');
  Box.Add('456');
  Box.Add('789');

  st := Box.Strings[1];
  st[2] := 'A';
  Box.Strings[1] := st;

[Kaktuz]

Работает. Благодарю