tstrings

Question

var 
TempDat:tstrings;
S:string;
begin
  TempDat:=TStringlist.Create;
  TempDat.LoadFromFile('文本');
  s:=string(tempdat[2]);
  Delete(S,1,40);
  TempDat.SaveToFile('文本');
  TempDat.Free;
end;Delete后保存 但是打开后没有删除呀.和原来的一样...
那里写错了....

Answer 1

begin 
  TempDat:=TStringlist.Create; 
  TempDat.LoadFromFile('文本'); 
  s:=string(tempdat[2]); 
  Delete(S,1,40); 
  string(tempdat[2]):=s; //要写回去,你上面附值是复制,不是指针
  TempDat.SaveToFile('文本'); 
  TempDat.Free; 
end; 

Answer 2

var 
TempDat:tstrings; 
S:string; 
begin 
  TempDat:=TStringlist.Create; 
  TempDat.LoadFromFile('文本'); 
  s:=string(tempdat[2]); 
  Delete(S,1,40); 
  tmpdat[2] := s;
  TempDat.SaveToFile('文本'); 
  TempDat.Free; 
end;