Memo. как правильно считать мне данные

[NativeLand]

Делаю РГР.
Суть: создал Memo1 на форме и нужно ввести сюда координаты точек.
Взял в качестве разделения x и y пробел.
Вот кусок кода, из-за которой не работает программа:

{описание}
Type koord= record
              x: array [1..100] of integer;
              y: array [1..100] of integer;
              b: array [1..100] of boolean
            end;

var k: koord;
    om,ox,i,s,n,l:byte;
    a,b:boolean;

...

{код ступора программы}
 for i:=1 to n do
    begin
      ox:=0;
      for om:=1 to length(memo1.Lines[i]) do
        begin
          if Copy(memo1.Lines[i],om,1)<>' ' then ox:=ox+1 else
            begin
              k.x[i]:=Strtoint(Copy(memo1.Lines[i],1,om-1));
              k.y[i]:=Strtoint(Copy(memo1.Lines[i],om,length(memo1.Lines[i])- om));
              k.b[i]:=false;
            end;
         end;
    end;

Ошибку (несоответствие типов) прикрепил.
П.С.: может я не правильно строки из мемо копирую или что-то в этом роде ...

[Valio]

Суть: создал Memo1 на форме и нужно ввести сюда координаты точек.
Взял в качестве разделения x и y пробел.

Сюда это куда? В Мемо?

Тоесть от сюда k: koord; нужно взять коордлинаты точек и записать в Мемо через пробел?

адд: А это что такое?

length(memo1.Lines[i])

Если нужно узнать кол-во строк в Мемо то это делается так:

REProcess.Lines.Count

PS: а не, ступил.

[NativeLand]

Сообщение от Valio

Сюда это куда? В Мемо?

Тоесть от сюда k: koord; нужно взять коордлинаты точек и записать в Мемо через пробел?

Наоборот. С мемо берутся координаты и заносятся в k.
В одной строчке содержится 2 числа - k.x[i] и k.y[i] (координаты точек), разделенные пробелом. Всего n строчек.

Сообщение от Valio

адд: А это что такое?

length(memo1.Lines[i])

Я пытаюсь "вытянуть" данные с i-й строки в memo. Мб просто я не правильно это делаю, т.к. вообще с memo не работал...

Сообщение от Valio

Если нужно узнать кол-во строк в Мемо то это делается так:

REProcess.Lines.Count

PS: а не, ступил.

Кол-во строк в мемо я знаю.

П.С.: извеняюсь, что все так напутано ...

[Valio]

На вскидку:

....
z := Pos(' ', memo1.Lines[i]); // Смотрим где стоит пробел.
k.x[i] := StrToInt(Copy(memo1.Lines[i], 1, z - 1)); // Копируем до пробела
k.y[i] := StrToInt(Copy(memo1.Lines[i], z + 1, Length(memo1.Lines[i]))); // Копируем после пробела
...

[Человек_Борща]

Ошибка в том что ваш "код" встретил пустую строку. как правило она в конце строки. И он пытается перевести её в число.

[NativeLand]

Сообщение от Человек_Борща

Ошибка в том что ваш "код" встретил пустую строку. как правило она в конце строки. И он пытается перевести её в число.

Ясно... Теперь вот что случилось:
написал новый код

 for s:=1 to n do
  begin
     k.b[s]:=false;
     l:= Pos(' ',memo1.lines[s]);
     for i:=1 to l-1 do
      begin
        st:= Copy(memo1.lines[s],i,1);
          for j:=0 to 9 do
           begin
             ch:=Inttostr(j);
             if Copy(st,1,1) = Copy(ch,1,1) then Insert(ch,ox,l-i);
           end;
       end;

       k.x[s]:=Strtoint(ox);
     for i:=l+1 to length(memo1.lines[s]) do
      begin
        st:= Copy(memo1.lines[s],i,1);
          for j:=0 to 9 do
           begin
             ch:=Inttostr(j);
             if Copy(st,1,1) = Copy(ch,1,1) then Insert(ch,al,i-l);
           end;
      end;

      k.y[s]:=Strtoint(al);
 end;

st,al,ox,ch:string...
Сталкнулся с новой бедой: как видите в коде строки не обнуляются и при вводе точек (1,1),(2,2),(3,3) под x3 у3 вносит значения 32.
Попробывал обнулить в коде - выдает вновь ошибку. Можете помочь подправить код?
П.С.: есть ли команда в делфи, строящая кривую по точкам, заданным пользователем?

[NativeLand]

Закрывайте тему, нашел ошибку.