Programmierung Delphi 7 Combobox Eintrag einfügen

Moin
ich habe mal eine frage, wie kann man bei delphi 7 einen eintrag in einer combobox hinzufügen ??
habe auch schon sufu benutzt doch nichts gefunden !
brauche hilfe !?

mfg

Diman94

 

Google, 1ter Eintrag:

[Delphi 7] ComboBox programmieren aber wie? - Krawall Foren

 

Ja denn hatte ich auch schon doch i wie verstehe ich den nicht ich will nur einträge einfügen von 1-99 wie mache ich das ??
dann will ich noch wenn ich auf einen button klicke er die zahl benutzt um zu rechnen ?ß

mfg

 

Moin,

schau nachfolgendes Beispiel:

Code:

Procedure TfrmMain.SetLanguageBox;
Var
  LanguagePath: String;
  Found, Rc: Integer;

Begin
  cboLanguage.Clear;
  LanguagePath := ExtractFilePath(GetLanguageFile());
  Found := GetFiles(LanguagePath, 1);
  If Found > 0 Then Begin
    Rc := FindFirst(LanguagePath + '*.LTF', faAnyFile, SearchRec);
    While Rc = 0 Do Begin
      cboLanguage.Items.Add(SearchRec.FindData.cFileName); // ComboBox füllen
      Rc := FindNext(SearchRec);
    End;
    FindClose(SearchRec);
  End;
  lblLanguage.FileName := GetLanguageFile();
  cboLanguage.Text     := ExtractFileName(lblLanguage.FileName);
End;

Bei Rückfragen bitte ne PN schicken.

Gruss
Amalkotey