Einträge in ComboBox hinzufügen

[Jack23]

Ich füge mit folgenden Code in ein ComboBox Einträge aus einer DB hinzu.

Bei einem onCreate Ereignis.

Warum klappt das nicht? Das ist mein ganzer Code:

Delphi-Quellcode:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
ComboBox1.Items.Add(ADOQuery1.FieldByName('Test').asString);
end;

[quendolineDD]

Weil du das nicht im OnCreate- Ergeignis aufrust, sondern im onChange-Ereignis.
Und dann solltest du mal schauen ob in deinem String auch was drinnen steht.
Also

Delphi-Quellcode:

ShowMessage(ADOQuery1.FieldByName('Test').asString)

Hab hier letztens über Probleme damit gelesen und der Verwendung von Parametern, eventuell solltest du mal im Forum danach suchen, gibt ganz aktuelle Themen, welche darüber handeln.

Grüße

[Jack23]

Woher willst du denn wissen das es im onChange aufgerufen wird?

Es kommt übrigens eine Fehlermeldung zurück:

Access Violation

[DeddyH]

Zitat:

Zitat von Jack23

Woher willst du denn wissen das es im onChange aufgerufen wird?

Zitat:

Zitat von Jack23

Delphi-Quellcode:

procedure TForm1.ComboBox1Change(Sender: TObject);

:stupid:

[quendolineDD]

Delphi-Quellcode:

procedure TForm1.ComboBox1Change(Sender: TObject);

Weil das dort steht >.<

Wäre ja echt cool, wenn du den ganzen Fehler kopieren würdest, aber egal :)

Kann es sein, das du garnicht die Recht für die Datenbank hast?!
Ich kann leider nur Raten, bisher kamen ja nicht viele Informationen deinerseits :)

[Jack23]

Delphi-Quellcode:

procedure TForm1.ComboBox1Change(Sender: TObject);

Wenn ich da hin schreibe TForm1.AllesBloed

Ist dann gleich Alles Blöd?

Also es wird im onCreate aufgerufen.

Ich habe die rechte für die Datenbank.

Des ist bisher mein Code auf dem Formular. Mehr gibt es nicht. Fehlt da etwas?

Delphi-Quellcode:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
ComboBox1.Items.Add(ADOQuery1.FieldByName('Test').asString);
end;

ComboBox1 ist vorhanden

ADOQuery1 auch und eine DataSource auch.

Ich bekomme außerdem noch die Meldung: ComBoBox1 enthält kein Element namens 'Items'.
Nicht deklarierter Bezeichner 'Add'.

Und zur der Access Violation Meldung. Wenn ich da auf Hilfe gehe kommt die Meldung "Namespace nicht definiert".

Ich hoffe diese Infos helfen weiter.

[quendolineDD]

Also bei mir sieht das onCreate-Ereignis etwas anders aus :)

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

Wie ich feststellte, scheint die ComboBox keine Ereignisroutine onCreate zu besitzen.

Aber mal was für with (Herrn Naseweiß as Jack23) do

Zitat:

Delphi-Syntax:

property OnChange: TNotifyEvent;

C++ Syntax:

__property Classes::TNotifyEvent OnChange = {read=FOnChange, write=FOnChange};

Beschreibung

Mit einer Ereignisbehandlungsroutine für OnChange können Sie bestimmte Aktionen durchführen, wenn sich der Text des Kombinationsfelds ändert. Das Ereignis OnChange tritt ein, wenn der Benutzer einen neuen Wert in den Eingabebereich eingibt oder einen anderen Eintrag in der Liste auswählt. Die Eigenschaft Text enthält den neuen Wert.

Hinweis: Das Ereignis OnChange wird nicht ausgelöst, wenn Style den Wert csDropDownList hat. Verwenden Sie für solche Kombinationsfelder stattdessen OnSelect.
Hinweis: OnChange tritt nur als Reaktion auf Benutzeraktionen ein. Wenn die Eigenschaft Text programmgesteuert geändert wird, wird das Ereignis OnChange nicht ausgelöst.

Edit:

Hast du gar keine Uses deklariert o.ä.?

Da ich mit der ADO-Komponente noch nie gearbeitet habe, kann ich dir dazu leider auch nicht helfen.

[Jack23]

Aber ich kann das ding doch nennen wie ich will. Gut nenne ich es eben FormCreate. Ändert doch aber auch nichts.

edit.
Wird doch alles automatisch deklariert.

[quendolineDD]

Les dir mal diesen Grundlagen-Thread durch, um mehr über Delphi zu erfahren.

Du solltest nicht einfach das umbennen, das bringt garnichts. Zumal du gesehen hast, das dies die onCreate-Routine der Form war.

[Jack23]

Meine Procedure war die ganze Zeit schon die on create der Form. Nur weil der Name anders ist heißt das doch nicht gleich das es onChange der ComboBox ist.