hallo,
in einem edit feld

markieren

Delphi-Quellcode:

anzahl:=anzahl+1;
daten[anzahl].name:=edit1.Text;

werden namen von produkten eingegeben, die ich dann in einer combobox gespeichert habe.

markieren

Delphi-Quellcode:

combobox1.clear;
for i:=1 to anzahl do
combobox1.Items.Add(daten[i].name)

wie kann ich jz eine abfrage machen wenn ein name schon in der combobox verwendet zum beispiel suppe, dass dieser artikel nicht noch einmal eingetragen werden darf?
gruß

Zitat von ph0:

... ... wie kann ich jz eine abfrage machen wenn ein name schon in der combobox verwendet ...

Hai ph0,

schaue Dir mal IndexOf der Items der TComboBox an.

habe es jz hiermit versucht:

markieren

Delphi-Quellcode:

var i : integer;
    gefunden : bool;
begin
  gefunden := false;
  for i := 0 to ComboBox1.Items.Count-1 do
    if ComboBox1.Items[i] = Edit1.Text then gefunden := true;
  if not gefunden then ShowMessage('Gibts nicht!');
end;

wenn ich das ganze aber umdrehe:

markieren

Delphi-Quellcode:

  for i := 0 to ComboBox1.Items.Count-1 do
    if ComboBox1.Items[i] = Edit1.Text then gefunden:=true
    if not gefunden then
    begin
    combobox1.clear;
    for i:=1 to anzahl do
    combobox1.Items.Add(daten[i].name);
    end

dann wird es auch eingetragen, obwohl der name bereits vorhanden ist. (kleiner denkfehler?)

Hallo,

Sharky hat dir die Lösung eigentlich schon geschrieben.
Mit "IndexOf" gehts kanns einfach.

Hier mal ein Beispiel:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  S: String;

begin
  S := Edit1.Text;

  with ComboBox1.Items do
    begin
      If IndexOf(S) = -1 then
        Add(S)
      else
        ShowMessage('schon drin');
    end;
end;

ok danke jz klappts

Zitat von ph0:

ok danke jz klappts

Das weiss ich - habs ja schliesslich geprüft

aber weisst du auch wie das geht? - was IndexOf macht?