VPF::ComboBox - Форум программистов

Sirbesh

Дата 27.5.2010, 18:39 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 16.3.2010

Репутация: нет
Всего: нет

Здравствуйте, прошу помощи.

Как сделать чтобы ComboBox запоминал строчку, введённую в него пользователем, при нажатии кнопки и как сделать, чтобы при удалении удалялась именно та строка которую выбрали. Допустим: Я запустил программу в строку combobox ввёл емейл, нажимаю кнопку и этот емейл как бы запоминаеться в раскрывающимся списке combobox. Ну и если мне нужно удалить определённую из списка записей, я её выбираю и жму кнопку удалить и она пропадает.

former

Дата 27.5.2010, 19:15 (ссылка)

(нет голосов)

Загрузка ...

MEMS Expert

Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

Репутация: 4
Всего: 17

Вот пример:

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  ComboBox1.Clear;
  ComboBox1.Items.LoadFromFile(ExtractFilePath(Application.ExeName)+'items.lsc');
  ComboBox1.ItemIndex:=0;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ComboBox1.Items.SaveToFile(ExtractFilePath(Application.ExeName)+'items.lsc');
  ComboBox1.Clear;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
    AddNo:boolean;
begin
  if Length(ComboBox1.Text)>0 then //проверяем наличие текста в ComboBox
  begin
    for i:=0 to ComboBox1.Items.Count-1 do //выполняем поиск дубликата
    begin
      if ComboBox1.Items.Strings[i]=ComboBox1.Text then
      AddNo:=true;
    end;
    if AddNo=false then //дубликат не найден
    begin
      ComboBox1.Items.Add(ComboBox1.Text); //добавляем item
    end;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if Length(ComboBox1.Text)>0 then
  begin
    ComboBox1.Items.Delete(ComboBox1.ItemIndex);
    ComboBox1.ItemIndex:=0;
  end;
end;

end.

Исходник прилагается (D2009)

Это сообщение отредактировал(а) former - 27.5.2010, 22:37

Присоединённый файл ( Кол-во скачиваний: 7 )

ComboBox_LoadItems.7z 7,28 Kb

--------------------

Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.

Sirbesh

Дата 27.5.2010, 21:06 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 16.3.2010

Репутация: нет
Всего: нет

Большое спасибо вы мне оочень помогли smile

Добавлено через 8 минут и 8 секунд
Не затруднит ли вас прокомментировать процедуру добавления записи?

former

Дата 27.5.2010, 22:37 (ссылка)

(нет голосов)

Загрузка ...

MEMS Expert

Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

Репутация: 4
Всего: 17

Добавил комментарии. Все просто. smile

--------------------

Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.

Sirbesh

Дата 27.5.2010, 23:14 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 16.3.2010

Репутация: нет
Всего: нет

спасибо

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »