Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - [ComboBox] Sachen hinzufügen?


Hendi48 - Di 03.04.07 14:37
Titel: [ComboBox] Sachen hinzufügen?
Hi,
ich hab eine Frage zu ComboBoxen: Wie kann man da Sachen hinzufügen (die sollen nicht mehr editierbar sein, man soll sie nur auswählen können). Kann man das irgendwie in den Delphi-code mit reinnehmen oder muss man das aus einer externen Datei lesen lassen?


ZeitGeist87 - Di 03.04.07 14:44
Hallo!

Stell um Objektsinspektor den Style deiner Combobox auf csDropDownList

Über Combobox.items.add('STRING') kannst du Sachen hinzufügen!

LG
Stefan


Hendi48 - Di 03.04.07 15:52
Danke das geht jetz! =)
kann ich auch das was in den Combo Boxen eingestellt ist mit in meine Ini speichern?


ZeitGeist87 - Di 03.04.07 16:40
ja!

Falls du beim Softwarestart die gleichen Elemente in der Combobox hinterlegt hast wie beim Beenden der Software, dann ist es ausreichend wenn du den Itemindex speicherst und über

Combobox.Itemindex:= INI.ReadInteger('COMBO', 'Wert', -1);.

Sollte dies aber nicht der Fall sein, dann ist es besser du speicherst über Combobox.items.strings[Combobox.itemindex] den Text (String) ab und über combobox.items.add(INI.ReadString('COMBO', 'WERT', 'NULL') kannst ihn wieder laden!

Hoffe meine Erläuterungen sind hilfreich.

LG
Stefan


Hendi48 - Di 03.04.07 17:04
irgendwie geht das nicht..bei save so

Delphi-Quelltext 
1:
 
Ini.WriteString('Bereich1','Schlüssel31',Combobox1.items.strings[Combobox1.itemindex]);

und load so

Delphi-Quelltext 
1:
 
Combobox1.items.strings[Combobox1.itemindex]:=Ini.ReadString('Bereich1','Schlüssel31','Leer');

ist doch falsch oder?
und bei dem was du gesagt hast speichert er nichts in die ini

Moderiert von user profile iconChristian S.: Delphi-Tags hinzugefügt


ZeitGeist87 - Di 03.04.07 17:25
schnell getippt:


Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
 
uses inifiles;

var INI: TINIFile;

function schreibeINI: Boolean;
begin;
 //INIT
 schreibeINI:= false;
 try
  //Ini erzeugen
  INI:= TINIFile.create(extractfilepath(application.exename) + 'Konfig.INI');

  //Um den Inhalt zu speichern
  INI.writeString('Konfig', 'CBox1', CBbox1.items.strings[CBox1.itemindex]);
  //Um die Position zu speichern,
  INI.writeInteger('Konfig', 'CBox1', CBox1.itemindex);

  //INI wieder freigeben
  INI.free; 
  
  //Alles OK
  schreibeINI:= true;
 except
  on e: exception do
  begin
   messagebox(application.handle, pchar('Fehler beim Speichern: ' + #10#13#10#13 + e.message), 'Fehler', MB_IconERROR);
   exit;
  end;
 end;
end;


Laden:


Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
 
function ladeINI: Boolean;
begin;
 //Init
 ladeINI:= false;
 
 try
  //INIzugriff
  INI:= TINIfile.create(extractfilepath(application.handle) + 'Konfig.INI');
 
  //Wenn du den Wert gespeichert hast:
  CBox1.Items.add(INI.ReadString('Konfig', 'CBox1', '<WERT>');
  //Wenn du die Position gespeichert hast:
  CBox1.itemindex:= INI.ReadInteger('Konfig', 'CBox1', -1);

  //INI freigeben
  INI.free
  //allesOK
  ladeINI:= true;
 except
  on e: exception do
  begin
   messagebox(application.handle, pchar('Fehler beim Laden: ' + #10#13#10#13 + e.message), 'Fehler', MB_IconERROR); 
   exit;
  end;
 end;
 
end;


LG
Stefan


Hendi48 - Di 03.04.07 19:06
danke, das klappt jetz auch!! :D


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!