如圖所示，我的資料 如何 跳過0 與 6 也就是x為0及6時，不畫點 因為使用.vec --------------- 10*1 0 0 2 1 3 2 5 3 10 4 8 5 9 6 10 7 5 8 7 9 6 10 2 0及6都要輸入資料 輸入為0時，線又會畫到bottom

Hi seedbcc,    在以下範例程式中 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=50782 我又加了一小段程式，你可以參考看看 http://delphi.ktop.com.tw/loadfile.php?TOPICID=15913559&CC=355901 ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

謝謝啦    但是，會先出現錯誤 'List index out of bounds(9)'    才會將第一個點移除    以下為小弟的繪圖程式片斷 td.vec如 問題    

  TdData:=Tvec.Create;
  TdDraw:=Tvec.Create;
  TdConfidence := 99.8;
  try
    TdData.LoadFromFile('Td.vec');
  except
  end;      TdSampleSize := 1;
  QCPChart(TdData,TdSampleSize,TdDraw,CL,UCL,LCL,TdConfidence*0.01);
  Tdseries.CL := CL;
  Tdseries.LCL := LCL;
  Tdseries.UCL := UCL;      DrawValues(TdDraw,TdSeries);
  TdSeries.ColorEachLine:=False;
  TdSeries.Delete(TdData.Find(0));

debug....    

引言: 但是，會先出現錯誤 'List index out of bounds(9)'->原始資料跟畫圖資料不一樣

  TdData:=Tvec.Create;
  TdDraw:=Tvec.Create;
  TdConfidence := 99.8;
  try
    TdData.LoadFromFile('Td.vec');
  except
  end;      TdSampleSize := 1;
  QCPChart(TdData,TdSampleSize,TdDraw,CL,UCL,LCL,TdConfidence*0.01);
  Tdseries.CL := CL;
  Tdseries.LCL := LCL;
  Tdseries.UCL := UCL;      DrawValues(TdDraw,TdSeries);
  TdSeries.ColorEachLine:=False;
  TdSeries.Delete(TdData.Find(0));->TdSeries.Delete(TdDraw.Find(0));

你好 我修改 你紅色的部分 但是 ，bug仍然一樣

上面二位高手 可否再回答我上述的問題

舉凡會出現'List index out of bounds(9)'這樣的錯誤訊息.. 都是因為你想要Access TList中物件超出它的Index..    所以類似像Delete(I) Items[I] Lines[I]這類access方法.. 如果說是在跑迴圈下 for I:=0 to XXX.Count do begin    end; 自然是不用檢查I 是否在Count內.. 但如果是像TdSeries.Delete(TdData.Find(0)).. 這時因為TdData.Find(0)有可能傳回-1.. Delete(-1)就會出錯了.. 所以在Delete之前必須先檢查是否>0 and