Удаление всех точек в Image (Delphi)

[zaira001002]

Я задала цикл удаления , но у меня удаляет не все, отрывками, и какие-то точки в конечном итоге вообще остаются на графике, выдает ошибку, но не знаю, что не так. Писала исходя из удаления одной точки, кусок программы, который работал правильно:

procedure TForm2.BtnDeletePointClick(Sender: TObject);
var
  S, SDeleted: String;
  Num: Boolean;
  I,X,Y: Integer;
begin
  if Num = False then
  begin
    if CheckBoxPoint.Checked = True  then
    begin
      // Удаляем нумерацию точек в ListBox
      for I := 0 to ListboxCoordinatesPoints.Items.Count - 1 do
      begin
        S:= ListboxCoordinatesPoints.Items.Strings[I];
        Delete(S,1,2);
        ListboxCoordinatesPoints.Items.Strings[I]:=S;
      end;
      with ListBoxCoordinatesPoints do
      if ItemIndex <>-1 then
      begin
        SDeleted:=Items.Strings[ItemIndex];
        Items.Delete(ItemIndex);
        // Находим координаты удаленной точки
        Delete(SDeleted,Pos('X: ',SDeleted),3);
        Delete(SDeleted,Pos(' Y: ',SDeleted),4);
        S:=SDeleted;
        Delete(SDeleted,Pos(';',SDeleted),(length(SDeleted)-(Pos(';',SDeleted)-1)));
        X:=StrToInt(SDeleted);
        Delete(S,1,Pos(';',S));
        Y:=StrToInt(S);
        // Пронумеровываем список после изменений
        for I := 0 to ListboxCoordinatesPoints.Items.Count - 1 do
        begin
          ListboxCoordinatesPoints.Items.Strings[I]:=IntTostr(I+1)+'.'+ListboxCoordinatesPoints.Items.Strings[I];
        end;
        //Удаление точки в график Image
        with Image1.Canvas do
        begin
          Canvas.Pen.Color := clWhite;
          Image1.Canvas.Pixels[X,Y]:=clWhite;
        end;
      end
      else ShowMessage('Выберите точку из списка')
    end
  else
  if CheckBoxAllPoints.Checked = True then
  begin
    // Удаляем нумерацию точек в ListBox
    for I := 0 to ListboxCoordinatesPoints.Items.Count - 1 do
    begin
      S:= ListboxCoordinatesPoints.Items.Strings[I];
      Delete(S,1,2);
      ListboxCoordinatesPoints.Items.Strings[I]:=S;
    end;

    for I := 0 to ListBoxCoordinatesPoints.Items.Count - 1 do
    with ListBoxCoordinatesPoints do
    begin
      SDeleted:=Items.Strings[I];
      Items.Delete(I);
      // Находим координаты удаленной точки
      Delete(SDeleted,Pos('X: ',SDeleted),3);
      Delete(SDeleted,Pos(' Y: ',SDeleted),4);
      S:=SDeleted;
      Delete(SDeleted,Pos(';',SDeleted),(length(SDeleted)-(Pos(';',SDeleted)-1)));
      X:=StrToInt(SDeleted);
      Delete(S,1,Pos(';',S));
      Y:=StrToInt(S);
      // Пронумеровываем список после изменений
     // for I := 0 to ListboxCoordinatesPoints.Items.Count - 1 do
      //begin
      //  ListboxCoordinatesPoints.Items.Strings[I]:=IntTostr(I+1)+'.'+ListboxCoordinatesPoints.Items.Strings[I];
      //end;
      //Удаление точки в график Image
      with Image1.Canvas do
      begin
        Canvas.Pen.Color := clWhite;
        Image1.Canvas.Pixels[X,Y]:=clWhite;
      end
    end
  end
  else ShowMessage('Выберите, что хотите удалить');
  Num := True;
  end;
end;

[Son Of Pain]

А зачем все так жутко усложнять ) храни отдельно массив из координат точек, тогда не придется заниматься этим лютым шаманством со строками.

[zaira001002]

Ну раз затеяла эту суету))) скажи все- таки))) что не так с циклом))))? вот этим

if CheckBoxAllPoints.Checked = True then
  begin
    // Удаляем нумерацию точек в ListBox
    for I := 0 to ListboxCoordinatesPoints.Items.Count - 1 do
    begin
      S:= ListboxCoordinatesPoints.Items.Strings[I];
      Delete(S,1,2);
      ListboxCoordinatesPoints.Items.Strings[I]:=S;
    end;

    for I := 0 to ListBoxCoordinatesPoints.Items.Count - 1 do
    with ListBoxCoordinatesPoints do
    begin
      SDeleted:=Items.Strings[I];
      Items.Delete(I);
      // Находим координаты удаленой точки
      Delete(SDeleted,Pos('X: ',SDeleted),3);
      Delete(SDeleted,Pos(' Y: ',SDeleted),4);
      S:=SDeleted;
      Delete(SDeleted,Pos(';',SDeleted),(length(SDeleted)-(Pos(';',SDeleted)-1)));
      X:=StrToInt(SDeleted);
      Delete(S,1,Pos(';',S));
      Y:=StrToInt(S);
      // Пронумеровываем список после изменений
     // for I := 0 to ListboxCoordinatesPoints.Items.Count - 1 do
      //begin
      //  ListboxCoordinatesPoints.Items.Strings[I]:=IntTostr(I+1)+'.'+ListboxCoordinatesPoints.Items.Strings[I];
      //end;
      //Удаление точки в график Image
      with Image1.Canvas do
      begin
        Canvas.Pen.Color := clWhite;
        Image1.Canvas.Pixels[X,Y]:=clWhite;
      end
    end
end

[Stilet]

Я... Эм... Глупый вопрос задам - TChart уже не в моде?

[zaira001002]

ну я вообще никогда не сталкивалась с этим компонентом)по ходу да)))

[Stilet]

Так может пора попробовать?
Он ведь специально предназначен для построения и управления графиками.

[zaira001002]

ну у меня по условию задачи так: Задано множество точек и множество треугольников) Необходимо найти ломаную линию из двух звеньев , пересекающую наибольшее множество треугольников))) то есть я смогу выполнить данное условие в TChart))) я уже 3 сутки делаю эту программу)))) не уж то все придется полностью переделывать)? хотя нет)))) только ту часть) где обращаемся к рисованию, так ?))) ну и что ты хотел сказать насчет этого компонента))) какие рекомендации))?

[Stilet]

то есть я смогу выполнить данное условие в TChart

Этот компонент призван рисовать графики а не рассчитывать их.
Собсно он уберет из твоего кода всю отрисовку.
Однако поиск ломанной придется тебе оформлять самостоятельно.
Вот если я ниче не путаю такой код:

const
   tri:array[1..1,1..3] of TPoint=(
     ((x:10;y:1),(x:20;y:20),(x:5;y:2))
   );
var j,i:integer; sr:TLineSeries;
begin
 for i:=Low(tri) to high(tri) do begin
  sr:=TLineSeries.Create(Chart1);
  Chart1.AddSeries(sr);
  sr.XValues.Order:=loNone;
  for j:=low(tri[i]) to high(tri[i]) do sr.AddXY(tri[i,j].x,tri[i,j].x);
 end;
end;

поможет построить тебе столько треугольников сколько укажешь в массиве tri.
Поменяй только тип sr на тип того что у тебя Chart понимает, у меня в Лазаре он так называется, в Делфи будет по другому.
Но смысл остается таким же.

[Stilet]

то есть я смогу выполнить данное условие в TChart

Этот компонент призван рисовать графики а не рассчитывать их.
Собсно он уберет из твоего кода всю отрисовку.
Однако поиск ломанной придется тебе оформлять самостоятельно.
Вот если я ниче не путаю такой код:

const
   tri:array[1..1,1..3] of TPoint=(
     ((x:10;y:1),(x:20;y:20),(x:5;y:2))
   );
var j,i:integer; sr:TLineSeries;
begin
 for i:=Low(tri) to high(tri) do begin
  sr:=TLineSeries.Create(Chart1);
  Chart1.AddSeries(sr);
  sr.XValues.Order:=loNone;
  for j:=low(tri[i]) to high(tri[i]) do sr.AddXY(tri[i,j].x,tri[i,j].x);
 end;
end;

поможет построить тебе столько треугольников сколько укажешь в массиве tri.
Поменяй только тип sr на тип того что у тебя Chart понимает, у меня в Лазаре он так называется, в Делфи будет по другому.
Но смысл остается таким же.