А со списками не поможете:
Задание Создать проект работы со списками. В проекте предусмотреть:
1 Заполнение комбинированного списка из поля ввода.
2 Редактирование комбинированного списка (ввести строку, переместить строку).
3 Копирование строк из списка ComboBox список ListBox,
Форма содержит следующие компоненты:
ListBox1 -простой список.
Label1 – метка для заголовка компонента ListBox1.
ComboBox1 -комбинированный список.
Label2 – метка для заголовка компонента ComboBox1.
Edit1-однострочный редактор для ввода текста. В него вводится текст строки для списка.
Label3 – метка для заголовка редактора Edit1.
Button1– кнопка "Инициализация". Позволяет очистить поле Edit1 и установить там курсор.
Button2 – кнопка "Принять ComboBox" для заполнения компонента ComboBox1.
Button3 – кнопка "Редактировать ComboBox". Позволяет вводить, удалять, взаимозаменять и перемещать строки списке.
Button4 – кнопка "Копировать ListBox". Позволяет скопировать ListBox строки, выбираемые ComboBox.
unit Prg_12_1_;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
ComboBox1: TComboBox;
ListBox1: TListBox;
Edit1: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:='';
Edit1.SetFocus;
end;
procedure TForm1.Button2Click(Sender: TObject); --- выбивает ошибку
begin
ComboBox1.Items.Add(Edit1.Text);
Edit1.Text:='';
Edit1.SetFocus;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
ComboBox1.Items.Insert(ComboBox1.ItemIndex,Edit1.Text);
Edit1.Text:='';
Edit1.SetFocus;
procedure TForm1.Button4Click(Sender: TObject);
begin
ListBox.Items.Add(ComboBox1.Items[ComboBox1.ItemIndex];
end;
end.