No hay respuestas en este tema

[sir.dev.a.lot]

[TRUCO DELPHI] Verificar si un elemento existe en una Listbox/Combobox/Memo.

delphi

function StrIsInList(
	  sl             : TStrings;
	  s              : string;
	  bCaseSensitive : boolean )
	    : boolean;
	var
	  n : integer;
	begin
	  Result := False;
	  if( not bCaseSensitive )then
	    s := LowerCase( s );
	  for n := 0 to ( sl.Count - 1 ) do
	  begin
	    if( ( bCaseSensitive and
	        ( s = LowerCase(
	                sl.Strings[ n ] ) ) )
	         or ( s = sl.Strings[ n ] )
	      )then
	    begin
	      Result := True;
	      Exit;
	    end;
	  end;
	end;

Ejemplo de Uso:

delphi

procedure
	  TForm1.Button1Click(Sender: TObject);
	begin
	  if( not StrIsInList( ListBox1.Items,
	                    Edit1.Text, False ) ) then
	    ListBox1.Items.Add( Edit1.Text );
	end;

Saludos!