Insertar valores en Combobox

[coej]

Hola de nuevo, por aquí sigo con la biblia de delphi, ahora trabajando con combobox, me gustaría insertar valores para que aparecieran en el combobox, pero al insertar este código, me da error...

Código Delphi [-]
unit Unit1;

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);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
   begin
  Form1.Combobox1.items.add('ITEM');

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;


end.

El error es Statement expecte but procedure found, en la línea de procedure, he probado a quitar la procedure, y me da error , violación de escritura, es como si en tiempo de ejecución no pudiera insertar un valor en el combobox..., gracias por las respuestas y comprensión de la tontería que será seguramente, un saludo...

[nemesio]

Saludos.

El error te lo da porque no estas colocando la inserción en un procedimiento o función, sino que abres un begin, escribes el código y el begin nunca tiene el end que le corresponde. Copia el código en un Botón para que hagas la prueba y verás que si te funciona.

[*Caro*]

Hola coej, tienes que quitar las dos líneas que estan en rojo para que funcione tu codigo, la explicación ya te la ha dado nemesio.

......................................
implementation
{$R *.dfm}
  begin
  Form1.Combobox1.items.add('ITEM');

procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
if key = Chr(13) then
.........................

Saluditos

[coej]

Solo se puede hacer la inserción si introduzco ese código en una procedure o función???, si no no puedo conseguir que funcione???, podríais ponerme un ejemplo modificado de mí codigo , en el que se introducen un valor en el combobox'??, gracias...

[nemesio]

Código Delphi [-]

unit Unit1;
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);
   private    { Private declarations }  
   public    { Public declarations }  
end;
var  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
   Form1.Combobox1.items.add('ITEM');
end;
procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
  if key = Chr(13) then
  with Combobox1 doif (Text <> '') and (Items.Indexof (Text) < 0) then
     Items.Add (Text);
end;

end.

Ahí está un ejemplo de como lo harás en el evento onClick de un Button. Tambien puedes hacerlo en cualquier otro evento como el OnShow del formulario o como mejor te convenga dependiendo de la necesidad.

Saludos

[coej]

Gracias Nemesio, eso no lo puedo hacer "a pelo", es decir siempre lo tengo que asociar a un evento o componente del formulario, si lo quisiera hacer simplemente insertarlo sin asociarlo a algún evento o componente???, es decir, simplemente quiero insertar 2 items a pelo en línea de codigo sin asociar a nada...?????

[*Caro*]

Empezado por coej

.............. si lo quisiera hacer simplemente insertarlo sin asociarlo a algún evento o componente???, es decir, simplemente quiero insertar 2 items a pelo en línea de codigo sin asociar a nada...?????

Hola de nuevo coej, puedes utilizar el evento OnCreate o OnShow de tu formulario:

Código Delphi [-]
unit Unit1;

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.

Saluditos