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
public
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...