Alias en un ComboBox especificando algunos

[afunez2007]

Hola Quiesiera saber como hacer lo siguiente:

Tengo un form para cambiarme de alias dentro del sistema, el cual tiene un combobox con la lista de alias, ya puedo escoger el alias y cambiar la base, sin embargo quiero que solo salgan los alias que tienen una base de datos que hacen funcionar el sistema.

Hay Varios alias en el BDE, que tienen un mismo nombre de Base de datos 'DATASYS.GDB' en el Parametro ServerName del Alias de FireBird

EL punto es como puedo decir en un combo Box que solo me muestre los que contienen ese nombre de Base de Datos

el codigo que actualmente estoy utilizando me pone todos los alias del BDE es el siguiente:

Código Delphi [-]
procedure TfrmCambiaBD.FormShow(Sender: TObject);
var
  I: Integer;
  Names: TStringList;
begin
  Names := TStringList.Create;
  try
    Names.Sorted := True;

     Form1.Session1.GetAliasNames(Names);
    For I := 0 to Names.Count -1 do
      ComboBox1.Items.Add(Names[i]);
  finally
    Names.Free;
  end;
ComboBox1.Text:=Form1.Database1.AliasName;
end;

[roman]

Pue si todos los alias que te interesan comienzan con la cadena datasys, puedes hacer algo así:

Código Delphi [-]
for I := 0 to Names.Count -1 do
  if Pos('DATASYS', Names[i]) then
    ComboBox1.Items.Add(Names[i]);

// Saludos

[yusnerqui]

Empezado por roman

Pue si todos los alias que te interesan comienzan con la cadena datasys, puedes hacer algo así:

Código Delphi [-]

for I := 0 to Names.Count -1 do
if Pos('DATASYS', Names[i]) then
ComboBox1.Items.Add(Names[i]);


// Saludos

Teniendo en cuenta que la función pos debuelve un entero sería

Código Delphi [-]
  for I := 0 to Names.Count -1 do
  if Pos('DATASYS', Names[i])>0 then
    ComboBox1.Items.Add(Names[i]);

Saludos

[afunez2007]

Faltaba un pequeño > 0

El Codigo correcto es:

Código Delphi [-]
procedure TfrmCambiaBD.FormShow(Sender: TObject);
var
  I: Integer;
  Names: TStringList;
begin
  Names := TStringList.Create;
  try
    Names.Sorted := True;

     Form1.Session1.GetAliasNames(Names);
    For I := 0 to Names.Count -1 do
      if Pos('SAE40', Names[i])>0 then
       ComboBox1.Items.Add(Names[i]);
  finally
    Names.Free;
  end;
ComboBox1.Text:=Form1.Database1.AliasName;
end;

Upps se me adelantaron, pero se agradece la colaboracion con la causa