Нарисовать линию по координатам из memo

[Дмитрий8]

Люди подскажите неучу
пытаюсь нарисовать линию по занесенным координатам в memo прежде делаю очистку от ненужных записей но не получаеться организовать цикл : (в данный момент ругаеться на первый if который заменяет x=)

procedure TForm4.BitBtn1Click(Sender: TObject);
var xp,yp,i: integer;
k:string;
begin
   for i:=0 to Memo1.Lines.Count-1 do
     begin
      if Memo1.Lines[i]<>'' then

       k:= Memo1.Lines[i];
       if StringReplace(k,'x=','',[rfReplaceAll]) then
       xp:=StrToInt(k)
       else
       StringReplace(k,'y=','',[rfReplaceAll]);
       yp:=StrToInt(k);
       ShowMessage(k);
       Form1.Image1.Canvas.LineTo(xp,yp);

     end;
end;

Буду очень благодарен помощи!



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

я понимаю в чем щас ошибка "знач if должно выдавать bollean тип, но не понимаю как сделать такую конструкцию правильно"

[Serge_Bliznykov]

код у Вас неправильный (запутанный, и операторных скобок begin end не хватает).

По моему, то, что Вы хотитет сделать, называетс "парсинг" (разбор) текста, с выделением из текста нужных элементов.

Вы лучше расскажите, в каком виде у Вас хранятся x и y в тексте.
Тогда будет повод для конкретной помощи!

[Дмитрий8]

извиняюсь за теги, а про парсинг это видимо то, что я хочу, да мне нужно взять из поля memo только координаты, а значения храняться в таком формате
{
x=...(число)
y=...
x=...
y=...
и.т.д.
}
именно 2 символа в начале надо отрезать, перевести остаток строки в координ и нарисовать линию потом.

[Serge_Bliznykov]

попробуйте такой код:

procedure xxxxxxxClick(Sender: TObject);
var px,py,i: integer;
  s : string;
begin
   Image1.Canvas.MoveTo(0,0); {первая-начальная точка}
   i:=0;
   while i<Memo1.Lines.Count-2 do begin
     if (Pos('x=', Memo1.Lines[i])>0)
          and (Pos('y=', Memo1.Lines[i+1])>0) then begin
            s := Memo1.Lines[i];
            try
              px := StrToInt(Trim(Copy(s, Pos('x=', s)+2, Length(s))));
              s := Memo1.Lines[i+1];
              py := StrToInt(Trim(Copy(s, Pos('y=', s)+2, Length(s))));
              Image1.Canvas.LineTo(px,py);
            except
              ShowMessage('в строках '+IntToStr(i)+' '+IntToStr(i+1)+ ' неверные числа' );
            end;
            Inc(i,2)
          end
          else Inc(i)
   end;
end;

ну, как заготовка для дальнейше доработки...

важно.
1) обрабатываются только строки, где X= и y= идут подряд
2) x= и y= регистрозависимые (малый регистр)

[Дмитрий8]

Serge_Bliznykov
Большое спасибо зарисовало, только замысел был слегка иной
чтоб он брал идущие координаты "x=" и "y=" и между ними рисовал линию, потом брал след пару и между ними уже рисовал линию
ну сейчас попробую помозгую еще сам с твоим кодом
для начала это закоментил //Image1.Canvas.MoveTo(0,0);{первая-начальная точка}
И теперь он рисует правильно первую линию, а дальше начинает пририсовывать лишние

[Дмитрий8]

Как вариант я чищю поле мемо после каждой прорисовки линии, после чего можно заного внести туда новые 4 координаты и нарисовать линию, это конечно чучуть не как я задумывал ))) но тоже работает

[Дмитрий8]

сделал и тоб лини отдельно рисовалась и чтоб многоугольник даже, после всех отмеченых точек на рис. спасибо еще раз за код Serge_Bliznykov