Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.09.2010, 20:53   #1
-=Virus=-
Форумчанин
 
Аватар для -=Virus=-
 
Регистрация: 03.07.2009
Сообщений: 246
По умолчанию Сравнить значение из lisbox

Подскажите какк странить текст каждой строчки из lisbox с текстом из edit.
-=Virus=- вне форума Ответить с цитированием
Старый 28.09.2010, 21:15   #2
ImmortalAlexSan
Участник клуба
 
Аватар для ImmortalAlexSan
 
Регистрация: 13.01.2009
Сообщений: 1,353
По умолчанию

Код:
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    ListBox1: TListBox;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
ListBox1.Items.Add('Edit2');
ListBox1.Items.Add('Edit3');
ListBox1.Items.Add('Edit1');
ListBox1.Items.Add('Edit4');
end;

procedure TForm1.Button1Click(Sender: TObject);
Var i:integer;
s:string;
begin
s:=Edit1.Text;
For i:=0 to ListBox1.Count-1 do
If s=ListBox1.Items[i] then
ShowMessage('текст из Edit1 соответствует тексту из листа с № '+inttostr(i+1));
end;

end.
"Тебе то может на меня и насрать, но твои глаза меня обожают!"
ImmortalAlexSan вне форума Ответить с цитированием
Старый 28.09.2010, 21:17   #3
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

Код:
for i:=0 to ListBox.Items.Count-1 do if ListBox.Items[i]=Edit.Text then //тогда равно(можно break применить и выйти из цикла)
вот.
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Найти значение на другом листе и подставить значение следующей ячейки ElenaNTro Microsoft Office Excel 12 11.02.2019 12:44
сравнить 2 массива... pobedin Паскаль, Turbo Pascal, PascalABC.NET 8 19.08.2010 09:03
Lisbox to Word Val Rubis Microsoft Office Word 1 13.01.2010 01:10
сравнить 2 строчки oLMeR Общие вопросы Delphi 3 02.11.2007 11:51