Форум: "WinAPI";
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];

Вниз

Как программно посмотреть повторяются ли строки в listbox’е или нет?   Найти похожие ветки 

← →
Evgeny   (2001-12-01 06:08) [6]

Не знаю поможет или нет, но я просто не допускал такой ситуации


procedure TOpt_ATM.btnInsertClick(Sender: TObject);
var
S : String;
begin
if (InputQuery("Редактор АТМ", "Введите номер АТМ", S)) and
(S <> "") then
begin
btnErase.Enabled := True;
btnEdit.Enabled := True;

if lbFieldName.Items.IndexOf(S) = -1 then
lbFieldName.Items.Add(S)
else
begin
MessageDlg("Такой номер уже существует!", mtError, [mbOK], 0);
Exit;
end;
inc(EditNumberField);
lbFieldName.ItemIndex := lbFieldName.Items.Count - 1;
FEditLength[lbFieldName.ItemIndex] := 1;
end;
end;


---

Страницы: 1 вся ветка

Форум: "WinAPI";
Текущий архив: 2002.01.31;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.004 c