Utilizamos cookies propias y de terceros. [Más información sobre las cookies].
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Wiki
Comprobar si existe un elemento en un TStringList - Delphi
Lenguaje de programación Borland Delphi


Una variable de tipo TStringList sirve para almacenar cadenas de caracteres. Una forma rápida de saber si una cadena determinada existe en un TStringList es la siguiente:

function existeCadena (lista : TStringList; cadena : string) : boolean;
var
 posicion : integer;
begin
  //para poder utilizar la función Find, el TStringList debe estar ordenado
  lista.Sort;
  existeCadena := lista.Find(cadena, posicion);
end;
Ejemplo de utilización (en el evento Click de un TButton) colocamos el siguiente código:
procedure TForm1.Button1Click(Sender: TObject);
var
  lista : TStringList;
  posicion : integer;
  cadenaAComprobar : string;
begin
  lista := TStringList.Create;
  //introducimos algunas cadenas de ejemplo
  lista.Add('Cadena de texto 1');
  lista.Add('Cadena de texto 2');
  lista.Add('Cadena de texto 3');
  lista.Add('Cadena de texto 4');
  lista.Add('Cadena de texto 5');
  cadenaAComprobar := InputBox('Comprobar existencia...', 'Introduzca una cadena de texto:','');
  posicion := 0;
  if existeCadena(lista, cadenaAComprobar) then
    MessageDlg('La cadena de texto introducida ya existe, elija otra.',
        mtWarning, [mbok], 0)
  else
  begin
    lista.Add(cadenaAComprobar);
    MessageDlg('La cadena de texto introducida no existe, se ha añadido correctamente.',
        mtInformation, [mbok], 0);
  end;
end;




Publicado el: 2004-12-25

Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A