[StudentMarat]

На форме имеются 2 компонента edit, 1 кнопка, 1 компонент Memo. Компонент edit1 предполагает ввод марки автомобиля, компонент edit2 предполагает ввод цены автомобиля. При нажатии на кнопку (Button1) данные в виде одной строки с разделителями * добавляются к содержимому окна Memo с автоматической нумерацией списка.

Так вот, как добавить данные я разобрался, привожу код:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.Add(edit1.text+'*'+edit2.text);
end;

А как сделать, чтобы эти данные добавлялись с нумерацией, т.е. например:
1 Skoda Yeti 25000
2 Great Wall Hover H3 35000
3 УАЗ Patriot 40000
и т.д.

[poli-smen]

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

Так вот, как добавить данные я разобрался, привожу код:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.Add(edit1.text+'*'+edit2.text);
end;

А как сделать, чтобы эти данные добавлялись с нумерацией

Код:

Memo1.Lines.Add(IntToStr(Memo1.Lines.Count + 1) + ' ' + Edit1.Text + '*' + Edit2.Text);

[StudentMarat]

Сообщение от poli-smen

Код:

Memo1.Lines.Add(IntToStr(Memo1.Lines.Count + 1) + ' ' + Edit1.Text + '*' + Edit2.Text);

Реально ступил я Сам не додумался