Fórum busca numa array #226464

Var
strtexto : array [0..5] of string;
texto : string;
C : Byte;
begin
   texto := ´e´;
   strtexto[0] := ´a´;
   strtexto[1] := ´b´;
   strtexto[2] := ´c´;
   strtexto[3] := ´d´;
   strtexto[4] := ´e´;
   For C := 0 To Length(strtexto)Do
   Begin
      If(strtexto[C] = texto)Then
      Begin
         ShowMessage(´Achou...´);
         Exit;
      End;
   End;
end;

function StrCase(Selector: string; StrList: array of string): Integer;
var I: Integer;
begin
 Result := -1;
 for I := 0 to High(StrList) do 
 begin
  if Selector = StrList[I] then 
  begin
   Result := I;
   Break;
  end;
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 case StrCase(Edit1.Text, [´EP´, ´EM´, ´RS´]) of
   0: ShowMessage(´1: Entrada de produtos´ );
   1: ShowMessage(´2: Entrada de materiais´);
   2: ShowMessage(´3: Registro de servico´ );
 else
   ShowMessage(´else: ´ + Edit1.Text);
 end;
end;

var Palavras: TStringList;
    nPos: Integer;
begin

  Palavras := TStringList.Create;

  Palavras.Add(´Um´);
  Palavras.Add(´Dois´);
  Palavras.Add(´Três´);
  Palavras.Add(´Quatro´);
  Palavras.Add(´Cinco´);

  Palavras.Sort;

  if Palavras.Find(´Dois´, nPos) then ShowMessage(´Encontrada´);

  Palavras.Free;

end;