Ver Mensaje Individual
  #1  
Antiguo 09-08-2017
Unkger Unkger is offline
Miembro
NULL
 
Registrado: ago 2017
Posts: 13
Reputación: 0
Unkger Va por buen camino
Llamar procedure con TStringList

Hola!, tengo un procedure llamado "listas" donde dentro tengo dos listas "lista1 y lista2", lo que quiero ahora es que cada que le de click a button1 me aparezca la lista1 y cuando le de a button2 me aparezca la lista2 sin tener que hacer dos procedure, aquí el código reducido:

Código Delphi [-]
implementation

procedure listas;
var
lista1 : TStringList;
lista2 : TstringList;
i, j : Integer;
begin
  lista1 := TStringList.Create;
  lista2 := TStringList.Create;

  lista1.Add('1');
  lista1.Add('2');
  lista1.Add('3');

  lista2.Add('4');
  lista2.Add('5');
  lista2.Add('6');

  for i := 0 to lista1.Count - 1 do
  begin
    Form1.ListBox1.items.add(lista1.Strings[i]);
  end;

  for j := 0 to lista2.Count - 1 do
   begin
     Form1.ListBox2.items.add(lista2.Strings[j]);
   end;
end;

Intente con esto pero no funciona:
Código Delphi [-]
implementation
procedure listas;
var
lista1 : TStringList;
lista2 : TstringList;
i, j : Integer;
begin
  lista1 := TStringList.Create;
  lista2 := TStringList.Create;

  lista1.Add('1');
  lista1.Add('2');
  lista1.Add('3');

  lista2.Add('4');
  lista2.Add('5');
  lista2.Add('6');

  for i := 0 to lista1.Count - 1 do
  begin
    Form1.ListBox1.items.add(lista1.Strings[i]);
  end;

  with Form1.Button2 do /////////////////////////
  if sender = Button2 then ///////////////////////
  begin
  for j := 0 to lista2.Count - 1 do
   begin
     Form1.ListBox2.items.add(lista2.Strings[j]);
   end;
  end;
end;

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
listas; ???????
end;

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
begin
????????
end;
Responder Con Cita