[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]

    { method #1 }

    unit Unit1;

    interface

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

    type
      TForm1 = class(TForm)
        ComboBox1: TComboBox;
        Edit1: TEdit;
        Edit2: TEdit;
        procedure Edit1Change(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;

    var
      Form1: TForm1;

    implementation

    {$R *.DFM}

    function ComboBox_Item_Exists(ComboBox: tComboBox; str: string): Integer;
    var i: Integer;
    begin
             if ComboBox.Items.Count = 0 then
             // ComboBox is empty
             begin
                  Result := -1;  // not found
                  Exit;
             end else
                      for i := 0 to ComboBox.Items.Count -1 do
                      begin
                           if ComboBox.Items[i] = str then
                           begin
                                Result := i; // eureka
                                // str at pos i in ComboBox
                                Exit; // look no further
                           end
                           else Result := -1; // not found
                      end;
    end;

    procedure TForm1.Edit1Change(Sender: TObject);
    begin
         ComboBox1.ItemIndex := ComboBox_Item_Exists(ComboBox1, Edit1.Text);
    end;

    end.

    What do you think about this replace ?

    function ComboBox_Item_Exists(ComboBox: tComboBox; str: string): Integer;
    begin
       Result := ComboBox.Items.IndexOf( Str );
    end;

[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]