На форме имеются 2 компонента edit, 1 кнопка, 1 компонент Memo.
Компонент edit1 предполагает ввод марки автомобиля,
компонент edit2 предполагает ввод цены автомобиля. При нажатии на кнопку (Button1) данные в виде одной строки с разделителями * добавляются к содержимому окна Memo с автоматической нумерацией списка.
Так вот, как добавить данные я разобрался, привожу код:
Код:
1 2 3 4 | 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
и т.д.