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;