eingabe in edit schon vorhanden?

[ph0]

hallo,
in einem edit feld

Delphi-Quellcode:

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

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

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ß

[Sharky]

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.

[ph0]

habe es jz hiermit versucht:

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:

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?)

[Helmi]

Hallo,

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

Hier mal ein Beispiel:

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;

[ph0]

ok danke jz klappts

[Helmi]

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?