Перенос данных из RichEdit в StringGrid (элементарщина, помогите плз!)

[Sad_SmiliK]

Есть либо объект RichEdit, либо Memo, в первой строке которых написано два числа, разделённых пробелом. Каким образом перенести эти два числа в разные ячейки таблицы StringGrid? Help!

[Sazary]

procedure TForm1.Button1Click(Sender: TObject);
var
s,s1,s2 : string;
k : integer;
begin
s := RichEdit1.Lines[0];
k := pos(' ',s);
s1 := copy(s,1,k-1);
s2 := copy(s,k+1,length(s));
StringGrid1.Cells[1,1] := s1;
StringGrid1.Cells[2,1] := s2;

end;

[Serge_Bliznykov]

if Pos(' ',RichEdit1.Text)>0 then begin
  1e число := Copy(RichEdit1.Text,1,Pos(' ',RichEdit1.Text)-1);
  2e число := Copy(RichEdit1.Text,Pos(' ',RichEdit1.Text)+1,Length(RichEdit1.Text)-Pos(' ',RichEdit1.Text));
end;

[Sad_SmiliK]

Извиняюсь, а для какого это языка?
Пробовал вводить оба кода (я работаю в C++ Builder 6), ошибки...

[Sazary]

Sad_SmiliK, это на Делфи. В следующий раз указывайте язык.

void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString s,s1,s2;
int k;

s = (AnsiString)RichEdit1->Lines[0].Text;
k = s.Pos(' ');
s1 = s.SubString(1,k-1);
s2 = s.SubString(k+1,s.Length()-k-2);
StringGrid1->Cells[1][1] = s1;
StringGrid1->Cells[2][1] = s2;

}

[Sad_SmiliK]

спасибо, заработало!

[Sad_SmiliK]

UPDATE: Спасибо посту ниже. Тему при необходимости можно снести.

[Sazary]

Данный код работает для двух чисел в строке, а что делать при необходимости разноса по ячейкам трёх и более чисел?

Вот так, например:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString s;
int k=1;
char *p;

s = RichEdit1->Lines[0].Text.SubString(1,RichEdit1->Lines[0].Text.Length()-2);
p = strtok(s.c_str()," ");
if(p) StringGrid1->Cells[k++][1] = p;
while(p=strtok(NULL," "))
 StringGrid1->Cells[k++][1] = p;

}

(подключить string.h)

[Sad_SmiliK]

Возникла проблема:
почему, если заменить в строке
s = RichEdit1->Lines[0].Text.SubString(1,RichEdit1->Lines[0].Text.Length()-2);
Нули в индексах на единицы (то есть брать данные из второй строки), то возникает ошибка? И как "перескочить" на новую строчку?

[Sazary]

Вот так. Предыдущий пример был не совсем верный.

void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString s;
int k=1;
char *p;
s = RichEdit1->Lines->Strings[0].SubString(1,RichEdit1->Lines->Strings[0].Length());
p = strtok(s.c_str()," ");
if(p) StringGrid1->Cells[k++][1] = p;
while(p=strtok(NULL," "))
 StringGrid1->Cells[k++][1] = p;

}