Insertar valores en Combobox

[coej]

Si eso imagino que se podrá hacer, cuando llegue a ello , ya preguntaré seguro, ahora solo estoy viendo cosas muy básicas siguiendo la biblia de delphi 7 de marco cantu.

java, oracle 10g, no tiene nada parecido a las units, y el project, donde se inicializa la aplicación, al menos no igual...

[[oscarac]]

no hay mejor forma de aprender que metiendote a programar y haciendo preguntas.....

no se donde lo lei pero lo cito.... No hay preguntas tontas... es tonto el que no pregunta

solo ten en cuenta la guia de estilo

[coej]

No te preocupes, que soy preguntón por naturaleza, y os vais a hartar de verme por aquí, y lo del las guías de estilo, ya me tiraron hace 2 días de las orejas por ello...

Pues eso, la duda que me sigue aún rondando es si no se puede escribir en las units líneas de código fuera de procedures, types, var etc, y donde se escribiría???
O si quiero iniciar un combobox al abrir el programa valdría con la solución del oncreate , onshow, pero si lo quiero hacer fuera de procedure se podría , en el unit, o debería ser al inicializar en project???

Edito , acabo de probar el código con la solución formshow, y me abre el programa, sin los items añadidos?????

[[oscarac]]

yo acabo de hacer la prueba y si me salen los items

[[oscarac]]

otra forma es que desde el mismo project (program) hagas esto

Código Delphi [-]
program Project1;
uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Form1.cmb1.Items.Add('Item 1');
  Form1.cmb1.Items.Add('Item 2');
  Form1.cmb1.Items.Add('Item 3');
  Form1.cmb1.Items.Add('Item 4');
  Form1.cmb1.Items.Add('Item 5');
  Form1.cmb1.Items.Add('Item 6');
  Application.Run;
end.

para un ejemplo sencillo funciona bien... pero imaginate en una aplicacion... tendrias que cargar todos los formularios y pues no es muy aconsejable

[coej]

A eso me refería desde el principio, voila...

No entendía donde poner ese código , y porque no podía ponerlo en el código de unit, al final imaginaba que era ahí...

[coej]

Poniendo este codigo en unit no me salen los items...

Código Delphi [-]
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;


    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}



procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
if key = Chr(13) then
with Combobox1 do
if (Text <> '') and (Items.Indexof (Text) < 0) then
Items.Add (Text);
end;
procedure TForm1.FormShow(Sender: TObject);
begin
 Combobox1.items.add('ITEM 1');
 Combobox1.items.add('ITEM 2');
end;


end.

Poniendo esto en Project , si...

Código Delphi [-]
program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
   Form1.Combobox1.Items.Add('Item 1');
  Form1.Combobox1.Items.Add('Item 2');
    Form1.Combobox1.Items.Add('Item 3');
  Application.Run;
end.

Ni idea de porque???

[[oscarac]]

ok
si necesitas algo mas.. solo pregunta