Edit inhalt in eine Combox liste

[SaFu]

Hi hab mal ne frage wie kann ich den inhalt eines Editfelds in eine Combobox übergeben und notfalls wieder löschen :gruebel:

Wollte denn inhalt der Combobox zum laden einer text datei benutzen


z.B.

Sl.Loadfromfile('C:\Dokumente und Einstellungen\Datei\'+(Combobox1.text)+'.txt');

dazu müste ich erst wissen wie ich den inhalt eines Editfelds in die Cobobox liste bekomme so das sie sich immer erweitert

[EDatabaseError]

Also...

Delphi-Quellcode:

Combobox1.Items.Add(edit1.Text);

//oder meinst du

Combobox1.Text := Edit1.Text

//edit das erste sollte das sein

[SaFu]

Hab es so

combobox3.Text:= Edit3.Text;

aber somit wird es nur in die Combobox eingetragen aber nicht in die Liste (Items) die items müssten sich bei jedem eintrag in das Editfeld erweitern

[EDatabaseError]

ne du musst es mit dem add machen und dann den itemindex auf den hinzugefügten eintrag setzen...glaube add liefert sogar die position zurück...

Delphi-Quellcode:

var
i: integer;
begin
i:=combobox1.add(edit1.Text)
combobox1.itemindex := i;
end;

:angel2: hoffe es stimmt alles - ungetestet - vllt. noch irgentwo - oder +

[SaFu]

Danke Funktioniert ist ziemlich einfach wenn man es so sieht :wall:

[SaFu]

Hab doch noch mal eine Frage und wie übergebe ich diesen eintrag ebenfalle in eine andere Combobox auf einem anderen Formblatt

[EDatabaseError]

Delphi-Quellcode:

var
  I: Integer
begin

for i := 0 to ComboBox1.Items.Count - 1 do
 Form2.Combobox1.Items.Add(ComboBox1.Items[i]);
end;

sollte so funktionieren - auch ungetestet

tobi

[SaFu]

Hab jetzt festgestellt das nach dem erneuten Programm Start die einträge wieder verschwunden sind :gruebel:

[EDatabaseError]

Zitat:

Zitat von fuknersascha

Hab jetzt festgestellt das nach dem erneuten Programm Start die einträge wieder verschwunden sind :gruebel:

wenn du sie nirgentwo (z.b. in einer Datei) speicherst ist das doch wohl klar ;-)

[SaFu]

Danke dann versuch ich das jetzt mal hast mir schon sehr geholfen :thumb:

[EDatabaseError]

da ich gerade eh nichts zu tun hab:

Delphi-Quellcode:

//Im OnClose

var
   i: integer;
   f: Textfile;
begin
 AssignFile(f, ExtractFilePath(ParamStr(0)) + 'comboboxeintraege.txt');

 ReWrite(f);

 for i := 0 to Combobox1.Items.Count - 1 do
  begin
   WriteLN(f,Combobox1.items[i]);
  end;

 CloseFile(f);
end;

//Im OnCreate

var
   f: TextFile;
   s: String;
begin
 AssignFile(f, ExtractFilePath(ParamStr(0)) + 'comboboxeintraege.txt');

 Reset(f);

 while eof(f) = false do
  begin
   s := readln(f,s);
   combobox1.items.add(s);
  end;

 CLosefile(f);
end;

du musst die datei in diesem fall zuerst im editor erstellen sonst knallts weil er sie im oncreate nicht findet - existiert sie einmal sollte das alles so laufen - ungetestet

tobi

[SaFu]

Habe es so ein getragen aber es Funktioniert so nicht habe folgenden Fehler

Code:

[Fehler] Unit7.pas(104): Inkompatible Typen: 'String' und 'procedure, untyped pointer or untyped parameter'

es tut mir echt leid wenn ich damit nerve :cry:

[marabu]

Hallo,

du kannst die Einträge in deiner ComboBox-Liste mit einem einzigen Befehl speichern oder wiederherstellen:

Delphi-Quellcode:

var
  fn: TFileName;
begin
  fn := ExtractFilePath(ParamStr(0)) + Name + '.ini';
  with ComboBox do
  begin
    Items.SaveToFile(fn);    // sichern
    Items.LoadFromFile(fn);  // wiederherstellen
  end;
end;

Freundliche Grüße

[SaFu]

Danke Klappt soweit :P :cyclops: