ListBox, memo и кнопка

[T@tali]

Разработайте приложение, разместив на форме компоненты Memo, ListBox и Button. В компонент Memo введите строку из четырех целых чисел, разделенных пробелом (пробел после каждого числа, включая последнее). На форме поместите также компонент ListBox и кнопку Button. Запрограммируйте: при щелчке по кнопке в списке ListBox появляется столбец чисел, содержащихся в строке компонента Memo.


Кнопка не работает. Исправлять прогу не надо. Подскажите просто где у меня ошибка. Вроде все компилируется. Хочу сама разобраться. ПЛИЗ...

[ex.cluz]

Программа работает, только добавляет вместо чисел пробелы в ListBox.
Смотрите, что копируете, а что удаляете.

На будущее: создавайте подобные темы в "Общих вопросах", а не в "Базах данных" (кстати, причем они здесь?).
Там и народу больше -> больше вероятность, что вам помогут.

Ошибка тут:

s1:=Copy(s,0,Pos(' ',s)-1); //был не поставлен пробел между одиночными кавычками

И тут:

delete(s,1,Pos(' ',s)); //аналогично

[Dark_Spirit]

procedure TForm1.Button1Click(Sender: TObject);
var i:byte; s,s1:String;
begin
ListBox1.Items.Clear;
s:=memo1.Lines[0];
for i:=1 to length(s) do
 if s[i]<>' ' then s1:=s1+s[i]
  else
   begin
    ListBox1.Items.Append(s1);
    s1:='';
   end;
ListBox1.Items.Append(s1);
end;

[SERG1980]

procedure TForm1.Button1Click(Sender: TObject);
var sl:tstringlist;
begin
 sl:=tstringlist.Create;
 sl.Delimiter:=' ';
 sl.DelimitedText:=memo1.Text;
 listbox1.Items.Assign(sl);
sl.Free;
end;