Ошибка в коде!

[sokolik-117845]

procedure TForm1.Button1Click(Sender: TObject);
var ts:TStringList;
   i : integer;
   s : string;
begin
  ts := TStringList.Create;
  try
    ts.LoadFromFile('Исходный.txt');
    for i:=0 to ts.Count-1 do begin
      if copy(ts.Strings[i],1,2)='11' then
       begin 
        Delete(ts.Strings[i],1,2);
        with TFileStream.Create('Имяфайла.txt',fmCreate or fmOpenWrite or fmShareDenyWrite) do
         begin
          Seek(Size,soBeginning);
          Write(PChar(ts.Strings[i])[0],Length(ts.Strings[i]));
          Free;
         end;
       end;
     end;
     ts.SaveToFile('1.txt');
  finally
     ts.Free;
end;
end;

Delete(ts.Strings[i],1,2);

^^^ компилятор ругается на эту строчку!
Constant object cannot be passed as var parameter
Не могу найти ошибку!

[Serge_Bliznykov]

а Вы АБСОЛЮТНО зря не читаете то, что Вам отвечают!


Ваша тема с таким же неадекватным названием, как и данная:
Delphi! Где ошибка в коде?

пост #2 от RinatV

там не только дан откорректированный исходник, но сказано, почему так, как Вы написали - нельзя писать!


Кроме того,
Кросспостинг (создание одинаковых тем и сообщений) запрещён правилами форума!


ТЕМА ЗАКРЫТА!