Items einer Listbox an einer Combobox übergeben???

[mlspider]

Hallöchen,

und wieder ein Problem. Ich versuche nun vergeblich alle Einträge einer Listbox an eine Combobox zu übergeben.

Delphi-Quellcode:

procedure TBrowser.FormCreate(Sender: TObject);
var
  SL: TStringList;
begin
  SL := TStringList.Create; //Stringliste erzeugen
  SL.LoadFromFile('conf\Cache\Cache'+'.txt');//Datei mit den Werten
  //öffnen
  ListBox1.Items.AddStrings(SL);//Listbox mit Werte aus Datei füllen
  spSkinComboBox1.Items:=Listbox1.Items;// Und hier ist mein Problem. Es
  //werden nicht alle Werte übergeben!!!
  SL.Free;
end;

Ich verstehe die Welt nicht mehr!!!

[Sharky]

Hai mlspider,

seltsam. Bei mir geht es ohne Probleme.
BTW: Wofür verwendest Du die StringList? Du kannst die Items der Listbox doch auch direkt laden ;-)

[mlspider]

Ja, ich weiß. Warum ich nun eine Listbox noch zwischen "geschaltet" habe weiß ich selber nicht.

Nur leider ändert das nicht an mein Problem.

[sniper_w]

Delphi-Quellcode:

// entweder direkt
ComboBox1.Items.LoadFromFile('FileName');
// oder indirekt
ComboBox1.Items.Assign(ListBox1.Items);

[Sharky]

Zitat:

Zitat von mlspider

...Nur leider ändert das nicht an mein Problem.

Wie gesagt, bei mir geht es (mit deinem Code) ohne Probleme.

[sniper_w]

Zitat:

Wie gesagt, bei mir geht es (mit deinem Code) ohne Probleme.

Ebenfalls.

[mlspider]

Jetzt werden wie von Geisterhand die Werte übernommen. Nur leider nicht alle!!!! Der erste Eintrag wird in der Combobox einfach abgeschnitten!

In der Listbox ist alles vollständig aufgelistet!

Was ist das denn nun wieder für ein Phänomen?

[sniper_w]

Mit

Delphi-Quellcode:

// oder indirekt
ComboBox1.Items.Assign(ListBox1.Items);

sollte es kein Problemm sein, oder ? Oder du hast ein Bug bei dir.

[mlspider]

Führt alles nicht zum gewünschten Erfolg

[Die Muhkuh]

Stellst du noch irgendwas mit dieser Combobox an? Bei mir klappt auch alles.

[mlspider]

Das einzige Ereignis ist DropDown:

Delphi-Quellcode:

procedure TBrowser.ComboBox1DropDown(Sender: TObject);
var i:Integer;
begin
 with ComboBox1 do begin
  if Text = '' then
  begin
   Items.Delete(ix);
    ix:=-1
  end else begin
   for i := 0 to Items.Count-1 do
    if Text = Items[i] then Exit;

    Items.Add(Text)
  end
 end
end;

[Catbytes]

Hallo,

ist das die Standardkomponente von Borland (TComboBox)? spSkinComboBox1 hört sich nach Fremdkomponente an - eventuell gibt es da bei den Eigenschaften einen Filter oder sowas? Oder Du hast die Sortierung eingeschalten und der Eintrag ist zwar da, aber eben nicht an erster Stelle.

Leg' Dir doch mal zwei Labels auf das Formular und lass Dir die Anzahl der Einträge anzeigen - jeweils für Die ComboBox und die ListBox.

Übrigens: Bei mir klappt das auch wundrbar... :wink:

[Die Muhkuh]

Aha,

ich gehe mal von folgender Situation aus:

Du startest dein Prog und das lädt nun die ComboBox. Im Text der ComboBox (also das was angezeigt wird) steht nichts drin. Wenn du nun auf die ComboBox klickst wird der erste Eintrag gelöscht.

Kommentier mal diese Zeile zum Test aus:

Delphi-Quellcode:

Items.Delete(ix);

[shmia]

Zitat:

Zitat von mlspider

Jetzt werden wie von Geisterhand die Werte übernommen. Nur leider nicht alle!!!! Der erste Eintrag wird in der Combobox einfach abgeschnitten!

In der Listbox ist alles vollständig aufgelistet!

Was ist das denn nun wieder für ein Phänomen?

Deine Datei enthält irgendwelche "Dreckzeichen".
Nimm einen HexEditor und schau mal rein.

[mlspider]

Jupp, das wars gewesen!!!

Delphi-Quellcode:

Items.Delete(ix);

auskommentieren. Jetzt geht alles nach Plan. Ja es handelt sich um eine Fremdkompo "spSkinComboBox". Ist aber vom Typ ComboBox.

Danke nochmals an alle!!!