Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 09-08-2017
Unkger Unkger is offline
Miembro
 
Registrado: ago 2017
Posts: 11
Poder: 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
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
llamar a procedure desde otra procedure anubis Varios 23 04-03-2010 18:44:37
Error al llamar a store procedure hmv Conexión con bases de datos 2 28-10-2006 18:07:51
llamar a un Store Procedure BlueSteel Firebird e Interbase 6 05-07-2006 09:01:40
Llamar stored procedure con BDE Ricardo Alfredo Conexión con bases de datos 3 12-09-2003 03:09:31
llamar a un procedure desde otro negama Conexión con bases de datos 1 28-08-2003 01:22:15


La franja horaria es GMT +2. Ahora son las 22:25:10.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi