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